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?
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
Bu Konudaki Yorumlar |
Sütundaki En Son Yazılan Değeri Textboxa Alma - Yazar: malatyalı - 23/06/2021, 22:31
RE: Sütundaki En Son Yazılan Değeri Textboxa Alma - Yazar: userx - 24/06/2021, 01:14
RE: Sütundaki En Son Yazılan Değeri Textboxa Alma - Yazar: malatyalı - 24/06/2021, 17:18
RE: Sütundaki En Son Yazılan Değeri Textboxa Alma - Yazar: feraz - 24/06/2021, 19:41
RE: Sütundaki En Son Yazılan Değeri Textboxa Alma - Yazar: userx - 24/06/2021, 21:07
RE: Sütundaki En Son Yazılan Değeri Textboxa Alma - Yazar: malatyalı - 25/06/2021, 15:53
|