Belirtilen Satırdan itibaren alt alta yazdırma

[stirra_ej]

On Error Resume Next
With Sheets("Kıymetli Evrak")
satır = .Range("a65536").End(xlUp).Row + 1 ( Burda bulunan kod en son bulunan boş satırdan kopyalama devam ediyor.. ) Ben ilk kopyalamayı a7 hücresine yapmasını ve a7 den sonra alt alta veri göndermesini istiyorum.. Lütfen Yardımcı olabilirmisiniz. )

For a = 0 To 9
.Cells(satır, 1) = Label4
.Cells(satır, 2) = ComboBox1
.Cells(satır, 3) = TextBox2
.Cells(satır, 4) = TextBox3 & " - " & TextBox4

Next

End With

End Sub

 

[Korhan Ayhan]

"satır" ile başlayan satırın hemen altına aşağıdaki satırı ekleyip deneyiniz.

If satır < 7 Then satır = 7

 

[stirra_ej]

Çok teşekkürler