for next ile kopyalama

[reel03]

Merhaba arkadaşlar,
Sayfa1 de ki verileri sayfa2 ye tek tek sırası ile kopyalatmak istiyorum nasıl yapabilirim. yArdımlarınız için teşekkür ederim.

 

[askm]

Sub ASKM_Kopyala()
Application.ScreenUpdating = False
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
a = 1
For i = 1 To s1.Cells(65536, 1).End(xlUp).Row
   s2.Cells(a, 1) = s1.Cells(i, 1)
   a = a + 1
Next
Application.ScreenUpdating = True
End Sub

 

[reel03]

merhaba,
teşekkür ederim.

 

[askm]

a = a + 1 kısmını silin ya da başına tek tırnak koyun.

 

[reel03]

peki ben sayfa 2 deki a1:f1 - a10-f10 hücrelerinde verilerim var. bu verileri sırası ile sayfa1 deki a1:f1 hücresine nasıl yazdırabilirim. sadece a1:f1 arasnda yazılacak alta inmeyecek. yardımcı olur musunuz

 

[askm]

Sub ASKM_Kopyala()
Application.ScreenUpdating = False
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 1 To 10
   s1.Cells(1, 1) = s2.Cells(i, 1)
   s1.Cells(1, 2) = s2.Cells(i, 2)
   s1.Cells(1, 3) = s2.Cells(i, 3)
   s1.Cells(1, 4) = s2.Cells(i, 4)
   s1.Cells(1, 5) = s2.Cells(i, 5)
   s1.Cells(1, 6) = s2.Cells(i, 6)
Next
Application.ScreenUpdating = True
End Sub