Penggunaan SpinButton pada Userform...

Selamat Pagi...Ketemu lagi dengan saya, oke langsung saja ya, kemaren iseng-iseng buat proyek berbasis Database menggunakan Userform excel, udah berhari-hari nyari cara penggunaan dan VBA SpinButton di mbah google, hasilnya gak ketemu, tapi ane gak habis akal, akhirnya dicoba kolaborasiin berbagai vba dengan SpinButton dan akhirnya BISA........., oke kita langsung aja ya gan....

1. Pertama kita buka dulu Excel nya
2. Buat Userform nya dengan cara Alt + F11, Insert >> Userform
3. Buat sebuah textbox dan pasang SpinButton disamping TextBox tadi seperti gambar dibawah ini,
   
   
   
    
   
   
   
   
   
   
   
   
   Tinggal memberika rumus Macronya saja...
   
   
   Private Sub SpinButton1_Change()
   TextBox1.Value = SpinButton1.Value
       '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
               Me.TextBox3.Value = Worksheets("sheet1").Cells(Baris, 3).Value
               Me.TextBox4.Value = Worksheets("sheet1").Cells(Baris,4).Value
               Me.TextBox5.Value = Worksheets("sheet1").Cells(Baris, 5).Value
             
           Else
               MsgBox "Maaf, data tidak ditemukan.."
           End If
       End With
   End Sub 
   
   
   dalam rumus diatas merupakan data dari database yang kita tampilkan pada sebuah userform yang sudah kita buat sedemikian rupa sehingga tinggal menekan tombol spinbutton tersebut maka akan muncul data yang akan kita tampilkan.....