Sayfadaki son dolu Satırı Textboxa yazma

[sait2020]

Merhaba Arkadaşlar;

Userform da bulunan Bayi No bölümüne 810,831 veya 832 yazdığımda bu ada sahip sayfadaki F sütunundaki son dolu olan hücredeki veriyi textbox1'e yazmasını istiyorum. Bu konuda sizlerden yardım bekliyorum. Şimdiden teşekkürler.

 

[dellerlim]

Merhaba.
Private Sub TextBox24_Change() kodlarının altında End Sub satırının üstüne yapıştırıp deneyiniz.

Set s1 = ThisWorkbook.Worksheets(TextBox24.Text)
sonsatir = s1.Range("f65536").End(xlUp).Row
TextBox3.Text = ThisWorkbook.Worksheets(TextBox24.Text).Cells(sonsatir, 6)

 

[dellerlim]

Uygulanmış hali ektedir.