bir hücre değerini bulma

[coşkun79]

Sub bul()
Columns("A:A").Select
Selection.Find(What:="16", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:=False, SearchFormat:=False).Activate
End Sub

Makro kaydet yöntemi ile oluşturduğum yukarıdaki makroda değişiklik yapmak istiyorum.
1- Bütün A sütununda değil de A6'dan başlayacak şekilde A sütununda aramak istiyorum.
2- Aradığım değer 16 değil de bir hücre değeri olmalı. Mesela ben A1 hücresini aramak istiyorum. (Aradıktan sonra bulunan hücreyi seçmeye çalışıyorum)
3- Tam eşleşme olacak şekilde arama yapmalı. Mesela 16'yı arıyorsa 116'yı bulmamalı (A Sütununda A6 dan itibaren benzersiz sıra numaraları var )

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sec()

    Dim c As Range
    
    Set c = Range("A6:A" & Rows.Count).Find([A1], , xlValues, xlWhole)
    If Not c Is Nothing Then
        c.Select
    End If

End Sub

 

[coşkun79]

Teşekkür ederim Ömer Bey