Textboxtan veri aktarma

[mesutaygun70]

İyi günler. Ben bir userform yaptım. ve userformdada textboxlar var. Textbox1=sayfa11 in son satırın a sütununa , textbox2=sayfa11 in son satırın b sütününa girmesini istiyorum. Biraz araştırdım ama yapamadım yardımcı olabilirmisiniz. Benim kodum aşağıda ama olmuyor

Private Sub CommandButton1_Click()
Sayfa11.Cells(son_satir, "A") = TextBox1.Text
End Sub

Yardımcı olabilirmisiniz.

 

[ÖmerBey]

Bu şekilde deneyiniz...

Private Sub CommandButton1_Click()
son_satir = Sheets("Sayfa11").Range("A65500").End(3).Row + 1
Sheets("Sayfa11").Cells(son_satir, "A") = TextBox1.Text
Sheets("Sayfa11").Cells(son_satir, "B") = TextBox2.Text
End Sub

 

[mesutaygun70]

teşekkürler fakat 2. satır sarı yazıyor sizin gönderdiğiniz kod ile ben sizden esinlenerek şöyle bi kod yazdım fakat son satıra değilde 2. satıra yazıyor ve bir sonraki kayıtta alt satıra geçmiyor

Private Sub CommandButton1_Click()
Dim SY As Worksheet
Set SY = Sheets("VERİLER1")
son_satir = SY.Range("A:B").Row + 1
SY.Cells(son_satir, "A") = TextBox1.Text
SY.Cells(son_satir, "B") = TextBox2.Text

End Sub

 

[ÖmerBey]

Çalışma kitabınızda "Sayfa11" adında bir sayfa yoksa hata verecektir. Kodu aşağıdaki şekilde değiştiriniz.

son_satir = SY.Range("A65500").End(3).Row + 1

 

[mesutaygun70]

teşekkürler