veri alma

[özgür33]

1 den 30 kadar olan sayılırdan (5,10,15 ) 5 li atlayarak başka bir sutuna alabilirmiyim. ekte örnek vardır? teşekkürler

 

[Korhan Ayhan]

Selamlar,

Eğer bu işlemi fonksiyon olarak istiyorsanız biraz zor gibi. (Sebebide hücreyi özellikleri ile birlikte taşımak istediğinizden)

Makro ile çözüm isterseniz yardımcı olabiliriz.

 

[hamitcan]

Makrolu çözüm;

Sub atla()
Columns("b").Clear
k = 1
For t = 1 To Application.CountA(Columns(1))
[a1].Copy Destination:=[b1]
k = k + 1
Cells(t * 5, "a").Copy Destination:=Cells(k, "b")
Next
End Sub

 

[İdris SERDAR]

Dosyanız ekte.

 

[Ali]

Formüllü çözüm ise
B1 hücrenize

=İNDİS($A$1:$A$30;SATIRSAY($A$1:$A1)*5-5)

yazıp aşağı doğru çoğaltın.

 

[Recep İpek]

Bir tane de benden olsun.Çalışmam boşa gitmesin.

Sub aktar()
For i = 6 To 50 Step 5
k = i - 1
Cells(k / 5, 2).Value = Cells(k, 1).Value
Next i
End Sub

 

[özgür33]

ÇOk teşekkür ederim arkadaşlar,

Yardımlarınızdan dolayı teşekkür ederim, iyi ramazanlar...