Memunculkan data Pada sebuah Textbox dengan memasukkan kode pada textbox lain

Selamat Pagi...Ketemu lagi dengan saya, oke langsung saja ya, kemaren iseng-iseng buat proyek berbasis Database menggunakan Userform excel,pagi ini kita akan membahas bagaimana memunculkan data pada sebuah textbox dengan hannya mengetikkan kode dari data tersebut, oke langsung aja ya

1. Pertama kita buka dulu Excel nya
2. Buat Userform nya dengan cara Alt + F11, Insert >> Userform
3. Buatlah dua buah textbox, dimana Textbox pertama merupakan tempak kita mengetikkan kode sebuah data dan akan muncul otomatis isi dari data yang akan kita munculkan tadi
4. Tinggal memberika rumus Macronya saja...
   
   
   Private Sub TextBox1_Change()
       'ambil nomor urut yang ada pada textbox1
       nomorurut = Me.TextBox1.Value
      
       'cari nomor urut pada database sheet 1
       With Worksheets("sheet1").Range("a2:a1000")
           Set C = .find(nomorurut, LookIn:=xlValues)
          
           'jika ditemukan, maka lihat barisnya.
           'selanjutnya pindahkan nomor urut dari sheet1 ke TextBox2.
           'jika tidak ditemukan, munculkan pesan.
           If Not C Is Nothing Then
               Baris = C.Row
               Me.TextBox2.Value = Worksheets("sheet1").Cells(Baris, 2).Value      
           Else
               MsgBox "Maaf, data tidak ditemukan.."
           End If
       End With
   End Sub 

cukup sekian dulu, semoga bermamfaat

tautan :
1.  Memunculkan data Pada sebuah Textbox dengan memasukkan kode pada textbox lain
2.  Penggunaan SpinButton pada Userform...
3.  Penjumlahan antara dua buah TextBox
4.  Cara Membuat Pemisah Ribuan pada TextBox Excel
5.  Membuat tombol cetak di Worksheets Excel