en son girilen veriyi bulmak

[jinken]

koda göre a sütunundaki en son veriyi bulmak isitiyorum.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
Application.ScreenUpdating = False

Range("F4") = ""
If Range("G4") <> "" Then
For i = [B65536].End(3).Row To 2 Step -1
If Cells(i, "B") = Range("G4") Then
Range("F4") = Cells(i, "A")
Exit Sub
Else: End If
Next i
Else
MsgBox " Veri Yok ", vbCritical
Exit Sub
End If

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[jinken]

teşekkürler

 

[jinken]

hüseyin bey teşekkür ederim. çeki hazırlama konumada yardım edebilirmisin.

 

[turist]

Alternatif olarak Formül ile çözümlü dosya eklidir.