GAMBAR USERFORM LISTBOX
Private Sub CMDMASUK_Click()
Dim Kolom As Long
Dim lembar As Worksheet
Set lembar = Worksheets("LATIHAN")
Kolom = lembar.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'ngcek kolom kosong
If Trim(Me.txt_no.Value) = "" Then
Me.txt_no.SetFocus
MsgBox "No Tidak Boleh Kosong"
Exit Sub
End If
'fungsi masukan data ke cells
lembar.Cells(Kolom, 1).Value = Me.txt_no
lembar.Cells(Kolom, 2).Value = Me.txt_nama
lembar.Cells(Kolom, 3).Value = ComboBox1
lembar.Cells(Kolom, 4).Value = Me.txt_alamat
lembar.Cells(Kolom, 5).Value = ComboBox2
'hapus data atau Clear Userform
Me.txt_no.Value = ""
Me.txt_nama.Value = ""
Me.txt_alamat.Value = ""
ComboBox1 = ""
ComboBox2 = ""
End Sub
Private Sub CMDKELUAR_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
cancel = True
MsgBox "Gunakan Tombol Untuk Keluar"
End If
End Sub
Private Sub UserForm_Activate()
With ComboBox1
.AddItem "Laki-Laki"
.AddItem "Perempuan"
End With
End Sub
Sub db()
With UserForm1.Lisbox1
.ColumnCount = 4
.ColumnWitdths = "30;60;100;55"
.ColumnHeads = True
.RowSource = A3:d100
End With
End Sub
DOWNLOAD LATIHAN
https://drive.google.com/file/d/1ug05R5o32dakpEdN1TQpImD7z3l-IKmu/view?usp=sharing
