Sondolu satırı textboxa yazdırma

[metin_0606]

Değerli usutatlar Deneme isimli sayfamın A2:G aralığında verilerim bulunmaktadır. Ben her veri girişinden sonra G sütununun sondolu satirindaki veriyi texboxt2 ye almak istiyorum. Yardımlarınız için şimdiden teşekkürler

 

[işsiz123]

Değerli usutatlar Deneme isimli sayfamın A2:G aralığında verilerim bulunmaktadır. Ben her veri girişinden sonra G sütununun sondolu satirindaki veriyi texboxt2 ye almak istiyorum. Yardımlarınız için şimdiden teşekkürler

Merhabalar aşağıdaki gibi deneyebilirsiniz.

TextBox2.Value = Cells(Range("G65536").End(3).Row, 7)

 

[metin_0606]

Merhabalar aşağıdaki gibi deneyebilirsiniz.

TextBox2.Value = Cells(Range("G65536").End(3).Row, 7)

maalesef farklı bir değer getirdi sayın işsiz

 

[metin_0606]

Örnek Dosya

 

[AdemCan]

Userforma aşağıdaki kodları ekleyiniz.

Private Sub UserForm_Initialize()
TextBox2.Value = Sheets("DENEME").Range("G" & Range("G" & Rows.Count).End(xlUp).Row).Value
End Sub

cmdEKLE_Click kodlarına da End Sub satırının üzerine UserForm_Initialize satırını ekleyiniz.

Her kayıt işleminde userform yenilenir ve Textbox2 ye G sütunundaki son dolu hücrenin değeri gelir.

 

[metin_0606]

Userforma aşağıdaki kodları ekleyiniz.

Private Sub UserForm_Initialize()
TextBox2.Value = Sheets("DENEME").Range("G" & Range("G" & Rows.Count).End(xlUp).Row).Value
End Sub

cmdEKLE_Click kodlarına da End Sub satırının üzerine UserForm_Initialize satırını ekleyiniz.

Her kayıt işleminde userform yenilenir ve Textbox2 ye G sütunundaki son dolu hücrenin değeri gelir.

Teşekkürler sayın efsane

 

[Seyit Tiken]

Bu şekilde de kullanabilirsiniz.

Me.TextBox2 = Cells(Rows.Count, "G").End(3).Value

 

[cocoa35]

Merhaba peki ben bu konu ile ilgili olarak Sütundaki son dolu satırın hücre rengini userform açılışta textbox'a nasıl getirebilirim? ayrıca hücre rengi değiştiği anda textboxda'da nasıl değiştirebilirim ?

 

[cocoa35]

Örnek bir dosya ekledim

 

[yusuf1284]

Userforma aşağıdaki kodları ekleyiniz.

Private Sub UserForm_Initialize()
TextBox2.Value = Sheets("DENEME").Range("G" & Range("G" & Rows.Count).End(xlUp).Row).Value
End Sub

cmdEKLE_Click kodlarına da End Sub satırının üzerine UserForm_Initialize satırını ekleyiniz.

Her kayıt işleminde userform yenilenir ve Textbox2 ye G sütunundaki son dolu hücrenin değeri gelir.

Merhaba peki ben bu konu ile ilgili olarak Sütundaki son dolu satırın hücre rengini userform açılışta textbox'a nasıl getirebilirim? ayrıca hücre rengi değiştiği anda textboxda'da nasıl değiştirebilirim ?

 

[cocoa35]

Yusuf bey merhaba, bu kod'lar son dolu hücreyi textbox'a getiriyor, ancak benim istediğim son dolu hücrenin renginin textbox'a gelmesi...

 

[AdemCan]

Merhaba, üzerinden zaman geçmiş ancak örnek kod.

Private Sub UserForm_Initialize()
Dim s1 As Worksheet, son1 As Long
Set s1 = Sayfa1: son1 = s1.Cells(Rows.Count, "I").End(3).Row
    If s1.Range("I" & son1).Value = True Then
        TextBox2.BackColor = s1.Range("I:I").FormatConditions(2).Interior.Color
    ElseIf s1.Range("I" & son1).Value = False Then
        TextBox2.BackColor = s1.Range("I:I").FormatConditions(1).Interior.Color
    End If
End Sub