Di sunting 4 tahun lalu oleh bejo
slmat malam all master yg saya hormati, saya ingin minta tolong, bagaimana script find and goto, / meletakkan pointer pada range yg dituju, terima kasih sebelumnya
slmat malam all master yg saya hormati, saya ingin minta tolong, bagaimana script find and goto, / meletakkan pointer pada range yg dituju, terima kasih sebelumnya
Coba kode untuk CommandButton1-nya diganti ini:
Private Sub CommandButton1_Click() Dim rCari As Integer With Sheet7 rCari = .Cells.Find(Cbkelas2.Value).Row Application.Goto .Range("B" & rCari), True End With End Sub
TERIMA KASIH BANYAK MASTER, ITS DONE!!!!!!!