SCRIPT MEMBUAT ENTRI CARI SIMPAN EDIT HAPUS DENGAN MACRO EXCEL

sorry gan,, kali ini saya postng diluar topik judul Blogg ini, namun semoga postingan ini bermanfaat bagi yang membutuhkan.

 

 

Private Sub cmdCari_Click()

Dim KodeSiswa

Dim CellTujuan As Range

KodeSiswa = txtKodeSiswa.Text

Set CellTujuan = Range("B:B").Find(What:=KodeSiswa)

If Not CellTujuan Is Nothing Then

txtNamaSiswa.Text = Cells(CellTujuan.Row, 3)

cmbProgramStudi.Text = Cells(CellTujuan.Row, 4)

If Cells(CellTujuan.Row, 5) = "Laki-laki" Then

optLakiLaki.Value = True

ElseIf Cells(CellTujuan.Row, 5) = "Perempuan" Then optPerempuan.Value= True

End If

txtTempatLahir.Text = Cells(CellTujuan.Row, 6)

Else

MsgBox "Tidak Ada Hasil !"

End If

End Sub

Private Sub cmdTambah_Click() 

    Dim baris As Integer

                baris = WorksheetFunction.CountA(Range("B:B"))

baris = baris + 1

               Cells(baris, 2) = txtKodeSiswa 

       Cells(baris, 3) = txtNamaSiswa 

       Cells(baris, 4) = cmbProgramStudi

       If optLakiLaki = True Then 

       Cells(baris, 5) = "Laki-laki" 

       ElseIf optPerempuan = True Then

Cells(baris, 5) = "Perempuan" End If

Cells(baris, 6) = txtTempatLahir

Cells(baris, 7) = txtTanggalLahir

  End Sub

Private Sub cmdUbah_Click() Dim KodeSiswa

Dim CellTujuan As Range

                KodeSiswa = txtKodeSiswa.Text

Set CellTujuan = Range("B:B").Find(What:=KodeSiswa)

  

Cells(CellTujuan.Row, 2) = txtKodeSiswa Cells(CellTujuan.Row, 3) = txtNamaSiswa Cells(CellTujuan.Row, 4) = cmbProgramStudi If optLakiLaki = True Then Cells(CellTujuan.Row, 5) = "Laki-laki" ElseIf optPerempuan = True Then Cells(CellTujuan.Row, 5) = "Perempuan"

End If

Cells(CellTujuan.Row, 6) = txtTempatLahir Cells(CellTujuan.Row, 7) =txtTanggalLahir End Sub

Private Sub cmdHapus_Click() Dim KodeSiswa

Dim CellTujuan As Range

KodeSiswa = txtKodeSiswa.Text

Set CellTujuan =Range("B:B").Find(What:=KodeSiswa) Rows(CellTujuan.Row).Delete Shift:=xlUp

End Sub