textboxdan veri ekleme

[hakkım]

arkadaşlar bir tane texbox ve bir tanede buton var text boxsa yazdığım şeyi o butona basınca sayfa 1 in a1 hücresinde itibaren aşağa doğru eklemek istiorum örnek kod yazabilcek olan varmı a1den aşaga doğru ekleyecek

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
Cells(65536, "A").End(xlUp).Offset(1, 0) = TextBox1.Value
End Sub

 

[hakkım]

Kod İŞe Yaradi

KOD İŞE YARADI AMA Offset(1, 0) = TextBox1.Value BU KISIM NE ANLAMA GELİYOR ONU AÇIKLAYABİLİRMİSİNİZ

 

[hakkım]

KOD İŞE YARADI AMA Offset(1, 0) = TextBox1.Value BU KISIM NE ANLAMA GELİYOR ONU AÇIKLAYABİLİRMİSİNİZ

 

[Orion1]

KOD İŞE YARADI AMA Offset(1, 0) = TextBox1.Value BU KISIM NE ANLAMA GELİYOR ONU AÇIKLAYABİLİRMİSİNİZ

a sütunundaki son satırdan 1 satır aşağıya git ve textbox1'in içindeki değeri yaz.