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.