Makro ile Sütunu bölerek kopyalama

[olmayan]

Merhaba Arkadaşlar,
excellde aşağıdaki kodla A1 den A20000 e kadar B1 e kopyalıyoru. benim istediğim
bir C1 sütunuda da A20001 ile A40000 ini alsın ve böle tüm sutunu bölerek kopyalasın? yani 20.000 er stünlara aktarsın. yapılabilir mi acaba ?

Range("A1:A20000").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste

 

[Emir Hüseyin Çoban]

. . .

Bitiş satır sayısı sabit mi yoksa sürekli değişken mi ?

. . .

 

[Murat OSMA]

Hüseyin Bey'in müsadesiyle..

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    While Range("A65536").End(3).Value <> ""
        Range("A1:A2000").Cut Cells(1, Columns.Count).End(1).Offset(0, 1)
        Range("A1:A2000").Delete Shift:=xlUp
    Wend
End Sub[/FONT]

 

[Emir Hüseyin Çoban]

. . .

Bir örnekte benden.

Sub kod()
    sut = 2
    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 20000
        Range(Cells(i, "A"), Cells(i + 19999, "A")).Copy Cells(1, sut)
        sut = sut + 1
    Next i
End Sub

. . .

 

[olmayan]

Murat bey, çok Teşekkürler, elinize sağlık. Hüseyin bey teşekkürler elinize sağlık, her iki makroda işimi görüyor.