Excel çalışma sayfasından bir hücreden veri çekmek

[m35celik]

Bir çalışma sayfasında yer alan hücreleri başka bir çalışma sayfasına çekmek istiyorum. Sorun şu verileri sırayla almak istemiyorum. Bu yüzden otomatik dolduru kullanamıyorum. Sanırım macro ile yapmam lazım.
Örneğin h3, h21, h39 gibi belirli bir sıraya göre artan (18 satır) isimlerini çekmek istiyorum. Acil lazım yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba

Deneyiniz.

Sub deneme()

    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    S2.Range("A2:A" & Rows.Count).ClearContents
    
    sat = 2
    For i = 3 To S1.Cells(Rows.Count, "H").End(xlUp).Row Step 18
        S2.Cells(sat, "A") = S1.Cells(i, "H")
        sat = sat + 1
    Next i
    
End Sub

 

[m35celik]

Merhaba

Deneyiniz.

Sub deneme()

    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Long
   
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
   
    Application.ScreenUpdating = False
    S2.Range("A2:A" & Rows.Count).ClearContents
   
    sat = 2
    For i = 3 To S1.Cells(Rows.Count, "H").End(xlUp).Row Step 18
        S2.Cells(sat, "A") = S1.Cells(i, "H")
        sat = sat + 1
    Next i
   
End Sub

TEŞEKKÜRLER, SÜPER