DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub bul()
On Error GoTo hata
Set ara = Sheets("sayfa1").Columns("A:IV").Find(What:=[a1])
Application.Goto Reference:=Range(ara.Address), _
Scroll:=False
Exit Sub
hata:
MsgBox ("yok")
End Sub
Private Sub CommandButton1_Click()
On Error GoTo hata
Set ara = Sheets("sayfa1").Columns("A:IV").Find(What:=TextBox1)
Application.Goto Reference:=Range(ara.Address), _
Scroll:=False
Exit Sub
hata:
MsgBox ("yok")
End Sub