Çözüldü Bulunanın son satır no(Find) ile

[FERAZ]

Merhaba.
Benim dorum find kodu ile ilgili.
Mesela A sütununda 10 tane Ankara var.
Find koduyla aratıınca ilk bulduğu Ankara hücresinin satır numarasını buluyor.
İstediğim son Ankaranın olduğu satır numara.

Döngüsüz ve findnext siz olmalı varsa böyle bir kod şayet.

 

[Erdem Akdemir]

Neden bu iki metodu istemiyorsunuz?
Find'ın aşağıdan yukarı arama özelliği var,onu araştırın.

 

[Haluk]

D sütununda bulunan en son "kenan" verisinin olduğu hücrenin adresini verir...

Sub Test()
    Dim myRange As Range, FoundRange As Range, FindWhat As String
    FindWhat = "kenan"
    Set myRange = Range("D:D")
    Set FoundRange = myRange.Find(what:=FindWhat, after:=myRange(1), searchdirection:=xlPrevious)
    MsgBox FoundRange.Address(0, 0)
End Sub

.

 

[FERAZ]

Neden bu iki metodu istemiyorsunuz?
Find'ın aşağıdan yukarı arama özelliği var,onu araştırın.

Haluk Hocam kod yazmış bir deneyeyim.

 

[FERAZ]

D sütununda bulunan en son "kenan" verisinin olduğu hücrenin adresini verir...

Sub Test()
    Dim myRange As Range, FoundRange As Range, FindWhat As String
    FindWhat = "kenan"
    Set myRange = Range("D:D")
    Set FoundRange = myRange.Find(what:=FindWhat, after:=myRange(1), searchdirection:=xlPrevious)
    MsgBox FoundRange.Address(0, 0)
End Sub

.

Elinize sağlık süper oldu.

searchdirection:=xlPrevious bu aklıma gelmemişti