Sütun Kopyalama

[mustafa1205]

Ekte örneğini sunduğum dosyamda A sütunundan E sütunu dahil Z1 Hücresindeki sayıya göre yanyana kopyalama yapmak istiyorum. Dosyamda da gerekli açıklamaları yapmaya çalıştım. Teşekkür ederim...

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub SUTUN_KOPYALA()
    Sutun = 5
       
    For X = 1 To Range("Z1")
        Range("A:D").Copy Cells(1, Sutun)
        Sutun = Sutun + 4
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mustafa1205]

Teşekkürler Korhan Hocam. Tam istediğim gibi oldu. Çok sağolun.