Dört satır kopyala tek sutuna yapıştır

[nadirornek]

Sayfa1'de A1:NC4 satırını aynı şekilde kopyalıyarak Sayfa2'de H5 hücresinden başlayarak alt alta yapıştıracak bir koda ihtiyacım var.Boş hücreleri boş olarak yapıştıraçak.

 

[omerceri]

Sn nadirornek
Aşağıdaki kod işinize yarayabilir.

Sub aktar()
say = Sheets("Sayfa1").Range("a1:Nc4").Count
For i = 1 To say
Sheets("Sayfa2").Range("H" & i + 4).Value = Sheets("Sayfa1").Range("a1:Nc4")(i)
Next
End Sub

 

[nadirornek]

Sorumu yanlış sordum galiba.
Sorum sayfa1de A sutununda A1:A4 kopyalanıp Sayfa2'de H5:H8 hüresine yapıştırılacak.
sayfa1de B sutununda B1:B4 kopyalanıp Sayfa2'de B9.B12 hüresine yapıştırılacak.
Sayfa1'de CO sutununa kadar devam ediyor.
Örnek bir kısa makro oluşturdum.Bunu kısa kod ile yapabilirmiyiz.

 

[omerceri]

Herhalde böyle olacak.

Sub dd()
say = 5
For e = 1 To Sheets("Sayfa1").Range("a1:Nc1").Count
For i = 1 To 4
Sheets("Sayfa2").Range("H" & say).Value = Sheets("Sayfa1").Cells(i, e)
say = say + 1
Next
Next
End Sub

 

[nadirornek]

Teşekkürler Ömer bey