Sütun atlayarak aktarma.

[acolkesen1]

Merhaba arkadaşlar,
Ekli çalışmamda verileri başka sayfaya birer sütun aralıkla aktarmak istiyorum. Kod aşağıdaki gibidir;

[s2!c1:z50].ClearContents
[s1!b2].Select
For Z = 2 To [s1!b65536].End(3).Row
Set b = [s!a1:ıv1].Find(ActiveCell, lookat:=xlWhole)
Range(b, b.Offset(20, 0)).Copy [s2!a1].End(xlToRight).Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Next Z

Offset(0, 1) kısmını (0,2) olarak değiştirdim ama olmuyor. ilgilenen arkadaşlara teşekkür ederim.

 

[İsmailCen]

Merhaba,

Sub ösk_akt()
[s2!c1:z50].ClearContents
[s1!b2].Select
x = 1
For Z = 2 To [s1!b65536].End(3).Row
Set b = [s!a1:ıv1].Find(ActiveCell, lookat:=xlWhole)
 Range(b, b.Offset(20, 0)).Copy [s2!a1].End(xlToRight).Offset(0, x)
ActiveCell.Offset(1, 0).Select
x = x + 2
Next Z
End Sub

bu kodları denermisin?

 

[acolkesen1]

Merhaba sayın İsmailCen,
İlk dolu satırdan sonra iki sütun boş bırakıyor, sonra birer sütun boş bırakarak aktarıyor. gerçi bu haliyle de işimi görüyor ama düzeltilebilirse daha iyi olur. İlginize teşekkür ederim.