sütunlara veri kopyalama

[xternet]

Merhaba arkadaşlar,
Yazmaya çalıştığım makroyu örnek dosya içerisinde anlatmaya çalıştım.

Mesela aşağıdaki kod ile BC22 hücresine For-Next döngüsü ile değer atayarak E sütununun farklı satırlarına sırayla değerler yapıştırabiliyorsunuz.
Ben bu işlemi sütunlar için yapmak istiyorum. Yani döngü içerisinde belli bir sütundan başlayarak sağa doğru sırayla aktarmalar yapacak.
Dosya içerisinde de anlatmaya çalıştım. İlgilenecek arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.

Range("A4:A14").Copy
Range("E" & [BC22]).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[xternet]

Arkadaşlar yanıtı beklerken biraz daha kurcaladım sayfaları ve çözümü buldum.

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

Buradaki kodu dosyama uyarladım.
İlgilenen arkadaşlara çok teşekkür ediyorum.