excel de 1 satır atlayarak verileri kopyalama

[semaa.nur]

merhaba. excelde sayfa1 de 1 den başlayıp 30 a kadar giden 30 adet verim var. Amacım bir satır atlayarak verileri kopyalamak. örneğin 2-4-6-8 gibi çift sayılara denk gelen sayıları yeni bir sayfaya yazırmak istiyorum nasıl yaparım

 

[excelokyanus500]

Deneyin

Sub Kopyala()
   Dim i As Long
   Dim Rng As Range

   With Sheets("Sayfa1")
      Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
   End With
   For i = 2 To Rng.Count * 1 Step 2
    
     Sheets("Sayfa2").Range("B" & i).Value = Rng(i).Value
    
   Next i
End Sub


Veya

Sub Kopyala2()
   Dim i As Long, r As Long
   Dim Rng As Range
   r = 1
   With Sheets("Sayfa1")
      Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
   End With
   For i = 2 To Rng.Count * 1 Step 2
    
     Sheets("Sayfa2").Range("B" & r).Value = Rng(i).Value
     r = r + 1
   Next i
End Sub