textbox yazdırma hatası

[işsiz123]

merhaba arkadaşlar userform daki textboxların butonla hem data hemde veri sayfasına yazdırmasını istiyorum aşagıdaki kodlarla userformu hangi sayfada açtıysam diğer sayfa boş geçiyor yani data sayfasında userformu çagırdıgımda veri sayfası boş geçiyor


bide yazdırma işlemini hızlandırmak için ne yapmamız lazım

rivate Sub CommandButton1_Click()

'son satır altına yazma textbox ve Checkbox için
For a = 1 To 100
'
Next
sonsat = [c65536].End(3).Row + 1

Sheets("data").Cells(sonsat, 3) = TextBox1
Sheets("data").Cells(sonsat, 4) = TextBox2
Sheets("data").Cells(sonsat, 5) = TextBox3
Sheets("data").Cells(sonsat, 6) = TextBox4
Sheets("data").Cells(sonsat, 7) = TextBox5
Sheets("data").Cells(sonsat, 8) = TextBox6
Sheets("data").Cells(sonsat, 9) = TextBox7
Sheets("veri").Cells(sonsat, 3) = TextBox1
Sheets("veri").Cells(sonsat, 4) = TextBox2
Sheets("veri").Cells(sonsat, 5) = TextBox3
Sheets("veri").Cells(sonsat, 6) = TextBox4
Sheets("veri").Cells(sonsat, 7) = TextBox5
Sheets("veri").Cells(sonsat, 8) = TextBox6
Sheets("veri").Cells(sonsat, 9) = TextBox7

 

[Ömer BARAN]

Merhaba.

Bence sadece kod yerine,
kodlar ve UserForm'un içerisinde olduğu örnek belge yükleyerek
daha hızlı sonuca ulaşabilirsiniz.
.

 

[Orion1]

Buyurun.

Dim i As Integer, sh As Worksheet, arr()
arr = Array("", "Veri", "data")
For i = 1 To 2
    Set sh = Sheets(arr(i))
    sonsat = sh.[c65536].End(3).Row + 1
    sh.Cells(sonsat, 3) = TextBox1
Next i

 

[vardar07]

Buyurun.

Sayın Orion1 affınıza sığınarak sütunlar farklı ise klasik yöntem mi yapmak lazım.

 

[işsiz123]

Ayni butonları Data sayfasına her zaman son satıra veri sayfasına ise her zaman 1. Satıra yazdırdım

 

[Orion1]

Sayın Orion1 affınıza sığınarak sütunlar farklı ise klasik yöntem mi yapmak lazım.

Sayfadaki Sütun başlıkları farklı ise her sayfaya ayrı kod yazmak lazım.