ctrl + f

[mesutaygun70]

Ben sayfa icerisindeki au hücresindeki veriyi a3:a nın son dolu hücresinde aramak istiyorum. Aşağıda bir kod oluşturdum ama yol kısmında bir sorun var yapamıyorum. Yardımcı olabilirmisiniz.
Sub Makro5()
Sheets("MÜŞTERİ").Select
ActiveWindow.SmallScroll Down:=-18
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
yol = Sheets("MÜŞTERİ").Range("au2")
Selection.Find(What:=yol, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

 

[Muzaffer Ali]

Aşağıdaki kodları deneyin.

Sub Ara()
    On Error Resume Next
    If Range("AU2").Value = "" Then MsgBox "'AU2' Hücresi boş. Lütfen aramak istediğiniz değeri 'AU2'  hücresine giriniz.."
    Range("A3:A" & 100).Find(What:=Range("AU2").Value).Activate
    If Err.Number = 91 Then MsgBox "Bulunamadı."
End Sub