Assalamualaikum para master
mohon pencerahannnya..
- perintah macro tombol edit,hapus dan cari
- data ketika diinput id double bs masuk
berikut filenya
Assalamualaikum para master
mohon pencerahannnya..
berikut filenya
Private Sub cbCLEAR_Click()
tbNIS.Value = ""
tbNOREG.Value = ""
tbNAMALENGKAP.Value = ""
tbNIKSANTRI.Value = ""
tbNOMORKK.Value = ""
tbJENISKELAMIN.Value = ""
tbTEMPATLAHIR.Value = ""
tbTANGGALLAHIR.Value = ""
tbAGAMA.Value = ""
tbKEWARGANEGARAAN.Value = ""
tbANAKKE.Value = ""
tbJUMLAHSAUDARA.Value = ""
tbDESA.Value = ""
tbDUSUN.Value = ""
tbRT.Value = ""
tbRW.Value = ""
tbNOMORWHATSAAP.Value = ""
tbNAMAAYAH.Value = ""
tbNIKAYAH.Value = ""
tbNAMAIBU.Value = ""
tbNIKIBU.Value = ""
tbKELAS.Value = ""
End Sub
Private Sub cbEDIT_Click()
Set ws = Worksheets("DATA SANTRI")
Dim rng As Range
If MsgBox("Apakah Anda Yakin Merubah Data Ini ?", vbOKCancel + vbQuestion, "konfirmasi") = vbOK Then
Set rng = ws.Range("D18:X222").Find(tbNAMALENGKAP.Value, LookIn:=xlValues)
' krn yg dijadikan acuan adalah "tbnamalengkap" , maka namalengkap tidak dapat dirubah
' kalau yg dijadikan acuan "tbniksantri" , maka niksantri tidak dapat dirubah
' untuk merubah , pakai tombol hapus , lalu input lagi yg benar
If Not rng Is Nothing Then
baris = rng.Row
With ws
.Cells(baris, 2).Value = tbNIS.Value
.Cells(baris, 3).Value = tbNOREG.Value
.Cells(baris, 4).Value = tbNAMALENGKAP.Value
.Cells(baris, 5).Value = tbNIKSANTRI.Value
.Cells(baris, 6).Value = tbNOMORKK.Value
.Cells(baris, 7).Value = tbJENISKELAMIN.Value
.Cells(baris, 8).Value = tbTEMPATLAHIR.Value
.Cells(baris, 9).Value = tbTANGGALLAHIR.Value
.Cells(baris, 10).Value = tbAGAMA.Value
.Cells(baris, 11).Value = tbKEWARGANEGARAAN.Value
.Cells(baris, 12).Value = tbANAKKE.Value
.Cells(baris, 13).Value = tbJUMLAHSAUDARA.Value
.Cells(baris, 14).Value = tbDESA.Value
.Cells(baris, 15).Value = tbDUSUN.Value
.Cells(baris, 16).Value = tbRT.Value
.Cells(baris, 17).Value = tbRW.Value
.Cells(baris, 18).Value = tbNOMORWHATSAAP.Value
.Cells(baris, 19).Value = tbNAMAAYAH.Value
.Cells(baris, 20).Value = tbNIKAYAH.Value
.Cells(baris, 21).Value = tbNAMAIBU.Value
.Cells(baris, 22).Value = tbNIKIBU.Value
.Cells(baris, 23).Value = tbKELAS.Value
End With
End If
End If
End Sub
Private Sub cbHAPUS_Click()
' fungsi hapus disini = kalau kita mendelete baris didata excel
' jadi blok area database buat sebanyak mungkin kebawah
' jika blok area sampai baris 10 , kemudian baris 10 dihapus , maka input baru
' akan masuk ke baris 10 , namun dilist box (dng rowssource "hasil") tidak akan nampak
nama = tbNAMALENGKAP.Value
' ini perlu dibuat sebagai acuan pertama dan dipakai pada script berikutnya
' kl masterdata berupa nama stok , maka nama ini akan merujuk pada textboxstok ("nama =tbstock")
' atau barang = tbstok
Set ws = Worksheets("DATA SANTRI")
With ws.Range("D18:D222")
Set c = .Find(nama, LookIn:=xlValues)
baris = c.Row
If MsgBox("Apakah Data Akan Dihapus ?", vbOKCancel + vbQuestion, "konfirmasi") = vbOK Then
If Not c Is Nothing Then
ws.Cells(baris, 24).EntireRow.Delete
'ws.Cells(baris, 24).EntireRow.ClearContents
End If
MsgBox "Data Telah Dihapus"
End If
End With
End Sub
Private Sub CBSIMPAN_Click()
'script simpan
Set ws = Worksheets("DATA SANTRI")
With ws.Range("D18:X222")
barisakhir = ws.Range("D" & Rows.Count).End(xlUp).Row + 1
ws.Range("B" & barisakhir).Value = tbNIS.Text
ws.Range("C" & barisakhir).Value = tbNOREG.Text
ws.Range("D" & barisakhir).Value = tbNAMALENGKAP.Text
ws.Range("E" & barisakhir).Value = tbNIKSANTRI.Text
ws.Range("F" & barisakhir).Value = tbNOMORKK.Text
ws.Range("G" & barisakhir).Value = tbJENISKELAMIN.Text
ws.Range("H" & barisakhir).Value = tbTEMPATLAHIR.Text
ws.Range("I" & barisakhir).Value = tbTANGGALLAHIR.Text
ws.Range("J" & barisakhir).Value = tbAGAMA.Text
ws.Range("K" & barisakhir).Value = tbKEWARGANEGARAAN.Text
ws.Range("L" & barisakhir).Value = tbANAKKE.Text
ws.Range("M" & barisakhir).Value = tbJUMLAHSAUDARA.Text
ws.Range("N" & barisakhir).Value = tbDESA.Text
ws.Range("O" & barisakhir).Value = tbDUSUN.Text
ws.Range("P" & barisakhir).Value = tbRT.Text
ws.Range("Q" & barisakhir).Value = tbRW.Text
ws.Range("R" & barisakhir).Value = tbNOMORWHATSAAP.Text
ws.Range("S" & barisakhir).Value = tbNAMAAYAH.Text
ws.Range("T" & barisakhir).Value = tbNIKAYAH.Text
ws.Range("U" & barisakhir).Value = tbNAMAIBU.Text
ws.Range("V" & barisakhir).Value = tbNIKIBU.Text
ws.Range("W" & barisakhir).Value = tbKELAS.Text
End With
End Sub
Private Sub lbHASIL_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Dim daftar As Long
'Dim ws As Worksheet
'set ws as sheets("DATA SANTRI")
Set ws = Worksheets("DATA SANTRI")
With Me.lbHASIL
If daftar < 2 Or daftar = ListCount Then
daftar = .ListIndex
tbNIS.Value = .List(daftar, 1)
tbNOREG.Value = .List(daftar, 2)
tbNAMALENGKAP.Value = .List(daftar, 3)
tbNIKSANTRI.Value = .List(daftar, 4)
tbNOMORKK.Value = .List(daftar, 5)
tbJENISKELAMIN.Value = .List(daftar, 6)
tbTEMPATLAHIR.Value = .List(daftar, 7)
tbTANGGALLAHIR.Value = .List(daftar, 8)
tbAGAMA.Value = .List(daftar, 9)
tbKEWARGANEGARAAN.Value = .List(daftar, 10)
tbANAKKE.Value = .List(daftar, 11)
tbJUMLAHSAUDARA.Value = .List(daftar, 12)
tbDESA.Value = .List(daftar, 13)
tbDUSUN.Value = .List(daftar, 14)
tbRT.Value = .List(daftar, 15)
tbRW.Value = .List(daftar, 16)
tbNOMORWHATSAAP.Value = .List(daftar, 17)
tbNAMAAYAH.Value = .List(daftar, 18)
tbNIKAYAH.Value = .List(daftar, 19)
tbNAMAIBU.Value = .List(daftar, 20)
tbNIKIBU.Value = .List(daftar, 21)
tbKELAS.Value = .List(daftar, 22)
'tbSTATUS.value = format(cdbl(tbSTATUS.value, "#;##0;00")
End If
End With
End Sub
kali aja cocok