satır alyarak veri alma

[bozturk35]

sayfa1 a1, a2, a3, ........ hücrelerindeki verileri sayfa2 a1, a3, a5, ........ hücrelerine aktarmak istiyorum yardımınız için şimdiden teşekkür ederim

 

[systran]

module içine kodları ekleyin ve makrolar kısmından çalıştırın.

sub aktar()
sonsatir=sayfa1.range("a65536").end(3).row

for i=1 to sonsatir*2 step 2
   sayfa2.range("A" & i).value = sayfa1.range("A" & (i+1)/2 ).value
next i
end sub