Ustam;
DATA sayfasında J sütununda 2.satırdan itibaren en son veriyi textboxa almak istiyorum. Ama kod kafasına göre takılıyor. Bir alıyor bir almıyor.
Rica etsem başka bir kod için yardımcı olabilir misiniz?

Sayın malatyalı

Private Sub UserForm_Initialize()

Dim son As Integer

Set s1 = Sheets("DATA")

son = s1.Range("J" & Rows.Count).End(xlUp).Row

TextBox8.Text = s1.Range("J" & son)

End Sub

Üstteki kodu dener misin?

Baba Gurban
dosyayı ekliyorum. Yapamadım çünkü.
Userformda
Taban Aylık (TextBox8) = DATA J sütununda en son yazan değeri alacak
Yakıt Fiyatı (TextBox10) = DATA K sütununda en son yazan değeri alacak

Uygulamaya çalıştığım kod "Private Sub UserForm_Initialize()" kısmında yazılı.
Rica etsem yardımcı olabilir misiniz?

Merhaba.

Evaluate ile yaptım istenirse döngü ile sondan başlatılıp len> 0 diye koşul sağlanıpta son satır buldurulabilinirdi.
J sütununda formül olduğu için farklı çıkıyor normal son satır ile bulunan.

Eğer alttaki kod yavaş çalışırsa k1:k65536 gibi değiştirin ilgili yerleri

Private Sub UserForm_Initialize()

CommandButton1.Caption = "KAY " & Chr(10) & "DET"

CommandButton2.Caption = "Günlük " & Chr(10) & " Yaklaþýk " & Chr(10) & " Maliyet"



Dim son, X As Long



Set s1 = Sheets("DATA")

On Error Resume Next

son = Evaluate("LOOKUP(2,1/(" & s1.Name & "!k:k<>""""),row(" & s1.Name & "!k:k))")

TextBox10.Text = IIf(son < 2, "", s1.Range("K" & son))



son = Evaluate("LOOKUP(2,1/(" & s1.Name & "!j:j<>""""),row(" & s1.Name & "!j:j))")

TextBox8.Text = IIf(son < 2, "", s1.Range("j" & son))

On Error GoTo 0

For X = 2 To 17

If s1.Cells(X, "F") <> "" Then ComboBox1.AddItem s1.Cells(X, "F")

If s1.Cells(X, "D") <> "" Then ComboBox2.AddItem s1.Cells(X, "D")

Next

    

End Sub

Sayın malatyalı ekteki dosyayı incler misin?

Ustalarım ellerinize sağlık. Teşekkür ederim.
Hakkınızı helal edin. Tekrar teşekkür eder, saygılarımı sunarım.