alexa-tracking

persoalan excel vba

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/5b412dffc0cb1717608b4568/persoalan-excel-vba
persoalan excel vba
Assalamu'alaikum para mastah mastah excel, bantuin saya dong ngerjain tugas, jadi saya disuruh membuat fungsi find di vba, sudah bisa tapi yang di inginkan ketika kita memasukkan data yang kita cari dia langsung mencari tanpa kita menekan button cari dan begitu trus di ulang ulang sampai selesai. Kira kira kalau perintah untuh melakukan itu seperti apa ya mastah?? Maaf ini juga sudah salah forum hehe
Terimakasih
Bagi yg tau segera kasih tau ya mastahh
Taruh aja batas panjang karakter di Sub textboxnya gan, contoh

Private Sub NOP_Change()
NOP.MaxLength = 8
Len(NOP.Text) >= 8

kemudian tambahkan pencarian di Bawahnya jadi...
Private Sub NOP_Change()
NOP.MaxLength = 8

If Len(NOP.Text) >= 8 Then
nis = Me.NOP
With Worksheets("Sheet2").Range("E2:E10000")
Set C = .Find(nis, LookIn:=xlValues)
If Not C Is Nothing Then
Baris = C.Row
Me.txtNama.Text = Worksheets("Sheet2").Cells(Baris, 7).Value
Me.txtPajakTerhutang.Text = Worksheets("Sheet2").Cells(Baris, 18).Value
End If
End With
End Sub
×