Aranılan değerin bir sütundaki son indexini (son satır numarasını) bulma

[diligenthn]

Merhabalar,

Bir kolon içinde aradığım birden fazla kez geçen değerin en son geçtiği satır numarasını nasıl bulabilirim?

Örneğin D kolonunda 1,2,8 nolu satırlarda A yazılı olsun. A'nın D kolonundaki minimum satır nosu = 1 onu bulabiliyorum ancak max satır nosu yani 8'i nasıl bulabilirim?

Yardımlarınızı rica ederim, şimdiden çok teşekkürler

 

[Muzaffer Ali]

Merhaba.

A kolonunda en son geçen "A" yı arar.

Sub test()
    Dim Bul As Long
    Dim BulSon As Long
    Dim Kolon As String
    
    Kolon = "A"
    BulSon = 1
    Do
        Bul = Range(Kolon & ":" & Kolon).Find(What:="A", After:=Cells(BulSon, Kolon), LookAt:=xlWhole).Row
        If Bul < BulSon Then
            MsgBox BulSon
            Exit Do
        Else
            BulSon = Bul
        End If
    Loop
End Sub

 

[veyselemre]

Sub test()
    Dim bul As Object, aranan$
    aranan = "A"
    Set bul = Range("D:D").Find(aranan, , , , xlByRows, xlPrevious)
    If Not bul Is Nothing Then
        MsgBox bul.Row
    Else
        MsgBox "Bulunamadı..."
    End If
End Sub