Untuk Menampilkan data di Textbox berdasaran nomor atau kode pencaraian anda dapat menggunakan fungsi .Find. Dengan demikian anda dapat menampilkan seluruh data berdasarkan kode yang di input kedalam textbox. Biasaya fungsi ini digunakan untuk pencarian berdasarkan kode barang atau kode peserta dll

Private Sub CommandButton2_Click()
nopeserta = Me.TextBox1.Value
Set ws = Worksheets("Sheet1")
With ws.Range("A3:a1000")
Set c = .Find(nopeserta, LookIn:=xlValues)
If Not c Is Nothing Then
baris = c.Row
Me.TextBox2.Value = ws.Cells(baris, 2).Value
Me.ComboBox1.Value = ws.Cells(baris, 3).Value
Me.TextBox4.Value = ws.Cells(baris, 4).Value
Else
MsgBox "Maaf no peserta tidak ditemukan..."
End If
End With
End Sub

Video Terkait
Membuat USERFORM (TextBox & ComboBox) [ Ссылка ]
Coding INPUT DATA Userfom VBA Excel [ Ссылка ]
Coding PENCARIAN DATA Userfom VBA Excel [ Ссылка ]
Coding EDIT, HAPUS DATA Userfom VBA Excel [ Ссылка ]
Coding VALIDASI Angka Userfom VBA Excel [ Ссылка ]
Cara Menambah Tab Developer di EXCEL 2010 2013 2016 :[ Ссылка ]

свернуть