hücreleri başka bir sayfada aralıklı kopyalamak

[srnskn]

Merhabalar
bir sayfadaki periyodik aralıklı hücreleri başka bir sayfaya ardışık olarak alabileceğimiz bir formül varmı ? şimdiden teşekkür ederim

 

[hamitcan]

Sub RenkliHucreleriKopyala()
    With Sayfa1
    .Columns(1).Clear
    For Each hcr In .Range("a1:a" & .[a65536].End(3).Row)
    If hcr.Font.Color = vbRed Then c = c + 1: Sayfa2.Cells(c, 1) = hcr.Value
    Next
    End With
End Sub

 

[srnskn]

teşekkür ederim hamitcan. ama benim kırmızı renkte verdiğim belli olsun diyeydi. aslolanda hepsi siyah renkte ve çok fazla...aralıklarda değişken olabiliyor bazen 20 şer bazende 70 er şeklinde.

 

[hamitcan]

Belli bir diziliş mantığı var mı ?

 

[srnskn]

yok yalnızda a1 den sonra a21 ,a41 a61 gibi

 

[srnskn]

hamitcan bey bir sorum daha olacak ama uygunsanız 1 den 30 a kadar sayfadan yalnızca b1 hücrelerini başka bir sayfada alt alta liste yapabilirmiyiz. ilginiz için teşekkür ederim.

 

[hamitcan]

Sub Aktar()
    For i = 1 To Sayfa1.[a65536].End(3).Row Step 20
        Sayfa2.Cells(c, 1) = Sayfa1.Cells(i, 1)
        c = c + 1
    Next
End Sub

 

[srnskn]

kardeş çok teşekkür ederim yardımın için ama sanırım ben yapamadım. bunu yerine sayfa1 den sayfa 30 a kadar olan sayfalardaki b1 hücrelerini 31. sayfaya aynı sütunda alt alta formülle kopyalaya bilirmiyiz.

 

[hamitcan]

Kod bu şekilde çalışıyor.