ŞU Kodlarda ne hata var anlayamadım birde siz bakabilir misiniz?

[domino]

ŞU Kodlarda ne hata var anlayamadım birde siz bakabilir misiniz?

Private Sub CommandButton1_Click()
ass = [A1048576].End(3).Row + 1
ass = [B1048576].End(3).Row + 1
ass = [C1048576].End(3).Row + 1
ass = [D1048576].End(3).Row + 1
ass = [E1048576].End(3).Row + 1
ass = [F1048576].End(3).Row + 1
ass = [G1048576].End(3).Row + 1
Cells(ass, 1).Value = TextBox1.Text
Cells(ass, 2).Value = TextBox2.Text
Cells(ass, 3).Value = TextBox3.Text
Cells(ass, 4).Value = TextBox4.Text
Cells(ass, 5).Value = TextBox5.Text
Cells(ass, 6).Value = TextBox6.Text
Cells(ass, 7).Value = TextBox7.Text
End Sub

Sorunum: Veri girişi son satırdan başlıyor. Dolayısıyla son girişin üzerine yazıyor.

 

[bedri41]

sizce burada ass neye eşit A sütunundaki son dolu satırın bir altına mı ? B sütunundaki son dolu satırın bir altına mı ? C mi ? D mi ? .... G mi ? sorunun cevabı probleminde çözümü.

Tüm textboxlar aynı satıra yazdırlacaksa
ass = Range ("A65536").End(3).Row + 1
tanımı yeterli olacaktır.

Kolay Gelsin

 

[domino]

Peki şu koda bir bakabilir misin?
Private Sub CommandButton2_Click()
'Yazdır

Dim sonsat As Integer
sonsat = Range("a65536").End(3).Row

'Veriyi Kaydet
ActiveWorkbook.saveas Filename:="E:\CARİ KARTLAR\" & ActiveSheet.Range("A17")
Rows("1:" & sonsat - 1).ClearContents (BURADA SATIRLARI SİLMEK YERİNE BEYAZA BOYAMAK İSTİYORUM)
Rows(sonsat).Select
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
(BURADA BEYAZA BOYADIĞIM SATIRLARI ESKİ HALİNE GETİRMEK) Bunu yazıcıdan sadece son satırı yazdırabilmek için yapıyorum.
End Sub