Skip to main content

AccessTr.neT


Sütundaki En Son Yazılan Değeri Textboxa Alma

Sütundaki En Son Yazılan Değeri Textboxa Alma

Çözüldü #1
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?
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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?
"Dünyayı fazla düşünme."
Cevapla
#3
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?
.rar Yeni Microsoft Excel Worksheet.rar (Dosya Boyutu: 39,51 KB | İndirme Sayısı: 3)
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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
Cevapla
#5
Sayın malatyalı ekteki dosyayı incler misin?
.rar Yaklaşık_Maliyet_userx.rar (Dosya Boyutu: 38,26 KB | İndirme Sayısı: 4)
"Dünyayı fazla düşünme."
Cevapla
#6
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.
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task