AccessTr.neT

Tam Versiyon: Sütundaki En Son Yazılan Değeri Textboxa Alma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Kod:
Private Sub UserForm_Initialize()
Dim son As Integer
Set s1 = Sheets("DATA")
son = s1.Range("J65536").End(xlUp).Row
TextBox8.Text = s1.Range("J" & son)

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.