Soru VERİ KOPYALAMA, YAPIŞTIRMA

[openstar]

Merhabalar
Veri isimli bir sayfada uzunca bir tablomuz var. Veri sayfasından h4,h22,h40 ....... şeklinde devam eden aralarında 18 hücre olan h sütünundaki bu hücreleri sayfa1 adlı sayfanın c1,c2,c3... sütünuna alt alta sıralamak istiyorum. ister makro ile ile isterse formül ile fark etmez, nasıl yaparız? Yardımcı olursanız sevinirim.
Teşekkürler..

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Test()
    Sheets("Veri").Range("H:H").SpecialCells(xlCellTypeConstants).Copy Sheets("Sayfa1").Range("C1")
End Sub

 

[openstar]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Test()
    Sheets("Veri").Range("H:H").SpecialCells(xlCellTypeConstants).Copy Sheets("Sayfa1").Range("C1")
End Sub

Bu kod veri sayfasındaki tüm h sutununu sayfa1'in c sütünuna olduğu gibi kopyaladı. aslında benim istediğim bu değildi. h4,h22,h40 vs. şeklinde 18'li atlayarak kopyalamasını istedim.

 

[dEdE]

Merhaba,
Dener misiniz?

Sub Test()
x = 1
    ss = Sheets("Veri").Cells(Rows.Count, "H").End(3).Row
    For i = 4 To ss Step 18
        Sheets("Sayfa1").Cells(x, 3) = Sheets("Veri").Cells(i, 8).Value
        x = x + 1
    Next i
End Sub

 

[openstar]

teşekkürler. çalıştı ama başka bir sorun var şimdi de. yine de saolun.