makro kod u

[rolex]

Merhaba

Hazırlamış olduğum bir Userform (Firma adı. Adres1, Adres2, Firma il/ilçe, Firma vergi dairesi ) olan ve bunların karşısına TextBox ekledim excel bir buton ekleyim bu UserForm çalıytırıyorum ama UserForm uzerindeki kaydet butonuna tıklayın ca sayfa 2 deki A-B-C-D-E-F yazıp başka bir kayıtta alt satıra otomatik kendiliginden alt satıra devam etmesini istiyorum bunun için nasıl bir kod yaza bilirim.


Teşekkürler.

 

[veyselemre]

Private Sub CommandButton1_Click()
son = [a65536].End(3).Row + 1
For x = 1 To 6
Cells(son, x) = Controls("textbox" & x)
Next
End Sub

 

[rolex]

hata

Merhaba

Yardımın için saul ama sadece ilk 4 hücreye bilgi Atıyor ve hata veriyor sonra Cells(son, x) = Controls("textbox" & x) satırı sarı renkli oluyor

Teşekkürler

 

[Kemal Demir]

Private Sub CommandButton1_Click()
satir = WorksheetFunction.CountA(Sheets("VERI").Range("A1:A65536")) + 1 'VERİ sayfasında, a kolonundaki son dolu hücreden sonraki satir
Sheets("VERI").Cells(satir, 1) = Textbox1.Value
Sheets("VERI").Cells(satir, 2) = TextBox2.Value
Sheets("VERI").Cells(satir, 3) = TextBox3.Value
Sheets("VERI").Cells(satir, 4) = TextBox4.Value
Sheets("VERI").Cells(satir, 5) = TextBox5.Value
Textbox1.value=""
Textbox2.value=""
Textbox3.value=""
Textbox4.value=""
Textbox5.value=""
End Sub

Sole Sheet İsmini Değiştirerek Yapabilirsin

 

[rolex]

kod

Teşekkürler :hey: