Aralık Seçme

[rabbace]

Merhaba,

Dosyamda C3:H3'den başlayarak 34'er satır atlayıp 1023'e kadar satırları kopyalayıp özel yapıştırmam gerek. Makroda yeniyim ve bilgim az. Aşağıdaki gibi bir kod yazayım dedim hata verdi. Yardımcı olabilir misiniz?

Dosya paylaşamıyorum, maliyet dosyası olduğu için.

Sub kopyala()
For i = 3 To 1023 Step 34

x = Range("c" & i)
y = Range("h" & i)


Range(x & ":" & y).Select
Selection.Copy
    Range("R3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True



Next i

End Sub

 

[askm]

Aralık seçme işlemini Range(Cells(i, 3), Cells(i, 8)).Select şeklinde yapın. r3 neden seçtirip durduğunuzu anlamadım. Dosyadaki verileri boşaltıp eklerseniz daha faydalı sonuç alırsınız.

 

[rabbace]

Aralık seçme işlemini Range(Cells(i, 3), Cells(i, 8)).Select şeklinde yapın. r3 neden seçtirip durduğunuzu anlamadım. Dosyadaki verileri boşaltıp eklerseniz daha faydalı sonuç alırsınız.

Çok teşekkürler ilginize hemen deniyorum.

R3'ü yanlış yapmışım, Range("R"&i) olacaktı o, dosyada düzelttim