İçiçe For döngüsü

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarla sayfa1 de şablon vazifesi gören tablomdan sayfa3 e aktarma yapmaya çalışıyorum.
Fakat bir yerde bir yanlışlık var sütun başlıklarını hep bir satır aşağıdan veriyor.
Bu işlemi kopyala yöntemi ile de yapabilirim. Fakat ben For döngüsü ile yapmak istiyorum. Daha doğrusu döngü ile olur mu olmaz mı onu merak ediyorum. İlgilenen arkadaşlara şimdiden teşekkürler.

Private Sub CommandButton1_Click()
Dim syf3 As Worksheet
Dim syf1 As Worksheet

Dim satır As Integer
Dim sütun As Integer
Dim yer As Integer
Set syf3 = Worksheets("Sayfa3")
Set syf1 = Worksheets("Sayfa1")

With syf3

For satır = 2 To 19
For sütun = 2 To 9

yer = syf3.Cells(Rows.Count, 2).End(3).Row + 1
.Cells(yer, sütun) = syf1.Cells(satır, sütun)

Next

Next
MsgBox "işlem tamam"
End With


Application.ScreenUpdating = True


End Sub

 

[dEdE]

Merhaba,

Koddaki şu satırı

    yer = syf3.Cells(Rows.Count, [COLOR="Red"]2[/COLOR]).End(3).Row + 1

şununla değiştirmeniz yeterli olacaktır.

    yer = syf3.Cells(Rows.Count, [COLOR="red"]sütun[/COLOR]).End(3).Row + 1

 

[excellcan]

Merhaba,

Koddaki şu satırı

    yer = syf3.Cells(Rows.Count, [COLOR="Red"]2[/COLOR]).End(3).Row + 1

şununla değiştirmeniz yeterli olacaktır.

    yer = syf3.Cells(Rows.Count, [COLOR="red"]sütun[/COLOR]).End(3).Row + 1

Hocam teşekkürler.