Soru Belirli bir metni içeren son satırı bulma

[Baturfurkan]

Genelde internette son dolu satırı bulma ve son dolu satırın bi altındaki bol satıra gitme makroları var. Benim ihtiyacım olan belirli bir metinin son satırını bulup bi alt satıra gitmek. Örnek verecek olursam A1 - A20ye Kadar Ankara, A21 - A31e kadar İstanbul yazıyor olsun. Ben A sütununda “Ankara” yazılı son hücreyi bulmak ve bi alt satırına geçmek istiyorum. Yani A21e. Bu konuda yardımcı olabilir misiniz?

 

[veyselemre]

Sub test()
    aranacak = "ankara"
    Set c = [A:A].Find(aranacak, , xlValues, xlPart, , xlPrevious)
    If Not c Is Nothing Then c.Offset(1).Select
    Set c = Nothing
End Sub

 

[Baturfurkan]

Sub test()
    aranacak = "ankara"
    Set c = [A:A].Find(aranacak, , xlValues, xlPart, , xlPrevious)
    If Not c Is Nothing Then c.Offset(1).Select
    Set c = Nothing
End Sub

Çok teşekkür ederim, bir altındaki hücreyi değilde satırı seçmek için ne gibi bi değişiklik yapmam lazım acaba?