En son aynı değeri bulma

[Barons]

Merhaba

Ekli dosyada sistem no sütununda aynı değere sahip verilerden en son olanını buldurmak istiyorum.Ara butonuna basıldığında örnek olarak sistem no sütunundaki 2 değerinin en son olanını okutmak istiyorum(Kırmızı renkli kısımdaki değer) .

Yardımlarınız için teşekkürler

 

[dost]

Merhaba,

Private Sub CommandButton3_Click()

sat = 0
With Range("D2:D" & WorksheetFunction.CountA(Range("D2:D65000")) + 1)
    Set c = .Find(TextBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            If StrConv(TextBox1.Value, vbUpperCase) = StrConv(c.Value, vbUpperCase) Then
                If CDate(c.Offset(0, -2).Value) > tar Then sat = c.Row
                tar = CDate(Cells(sat, "B").Value)
            End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
        TextBox2.Value = Cells(sat, "C").Value
        TextBox3.Value = Cells(sat, "E").Value
        TextBox4.Value = Cells(sat, "G").Value
        TextBox5.Value = Cells(sat, "J").Value
        Exit Sub
    End If
End With

MsgBox "Aradığınız numarada beyanname bulunamadı"


End Sub

 

[Barons]

Maşallah bu ne hız böyle...
Çok teşekkürler istediğim olmuş...elinize sağlık DOST

 

[prodigy]

aynı degeri bul

bu işine yarayabilir

Sub Makro1()
ilkdeger = ActiveCell.Value
Set ilk = Columns("a").Find(ilkdeger)
ilkadres = ilk.Address
Set ilk = Columns("a").FindPrevious(ilk)
sonadres = ilk.Address
ilk.Select

 

[Barons]

Sn Prodigy

Çok teşekkürler..