Sutunda bulunan değerin bir önceki satır değerini alma

[kemal turan]

Merhaba,
Verıler alışma sayfasındaki "AK" sutununda yine çalışma sayfasında bulunan textbox1 değerini (sutundaki son hücredir) bulup bir önceki (üstündeki) hücre değerini
Textbox2 ye aldırmak için kod çalışması yaptım Hata vermiyor ama değeri getirmiyor.
Yardımlarınızı rica ediyorum.
Teşekkür ederim

Sub bıroncekı()
Set s1 = ThisWorkbook.Worksheets("VERILER")
Dim bul As Range
For Each bul In s1.Range("AK2:AK" & s1.Range("AK65536").End(3).Row)
If bul.Value = Sheets("VERILER").TextBox1.Text Then
Sheets("VERILER").TextBox2.Text = Cells(bul.Row - 1, 1)
End If
Next bul
End Sub

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bul As Range
    With ThisWorkbook.Worksheets("VERILER")
        Set Bul = .Range("AK:AK").Find(what:=.TextBox1.Text, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox "Aranan değer: '" & .TextBox1.Text & "' bulunamadı.", vbExclamation, "BULUNAMADI"
        Else
            .TextBox2.Text = Bul.Offset(-1, 0).Value
        End If
    End With
End Sub

 

[kemal turan]

Muzaffer Hocam
Çok teşekkür ederim. Kusura bakmayın biraz geç döndüm.
Selametle kalınız