Private Sub CommandButton1_Click()
Dim d As Range
Set d = [D].Find(what:=TextBox1.Value, LookAt:=xlWhole)
If Not d Is Nothing Then
d.Offset(0, 2).Select
Else
MsgBox "Aradığınız Sicil Numarası Bulunamadı...!", vbCritical, "Dosya Sicil Numarası Sorgulama"
End If
TextBox1.Value = ""
End Sub
Sayfada aramak için yukarıdaki kodu kullanıyorum.
Fakat tüm sayfalardaki yine aynı D sütunundan arama yaptırmak ve ilgili sayfa ve satıra
gitmek istiyorum. Bu koda ne eklemek veya çıkartmak gereklidir. Şimdiden teşekkür ederim.
Dim d As Range
Set d = [D].Find(what:=TextBox1.Value, LookAt:=xlWhole)
If Not d Is Nothing Then
d.Offset(0, 2).Select
Else
MsgBox "Aradığınız Sicil Numarası Bulunamadı...!", vbCritical, "Dosya Sicil Numarası Sorgulama"
End If
TextBox1.Value = ""
End Sub
Sayfada aramak için yukarıdaki kodu kullanıyorum.
Fakat tüm sayfalardaki yine aynı D sütunundan arama yaptırmak ve ilgili sayfa ve satıra
gitmek istiyorum. Bu koda ne eklemek veya çıkartmak gereklidir. Şimdiden teşekkür ederim.