- Katılım
- 26 Nisan 2021
- Mesajlar
- 178
- Excel Vers. ve Dili
- TR 2021
- Altın Üyelik Bitiş Tarihi
- 27-04-2022
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.