Örüntülü hücrelerden veri çekme...

[pisagor26]

Değerli arkadaşlar yaklaşık 16 bin hücreli bir sayfadan veri çekmem gerekiyor.Sayfa 1 de yer alan A hücresinde 29 hücre aralıklarla ( a29, a58, a87) devam eden 3 hücre ve 28 hücre ( a115) aralıkla devam eden 1 hücre şeklinde ( 29 hücre aralıklarla üç veri sonra 28 hücre aralıklarla 1 veri, sonra 29 aralıkla üç, 28 aralıklı 1 hücre şekllinde devam ediyor) örüntü şeklinde devam eden hücrelerdeki verileri sayfa 2'de a1, a2, a3, a4 hücrelerine taşımak istiyorum. Sabit aralıklar ile veriler devam etmediğinden taşıyamadım...Yardımcı olur musunuz? Teşekkür ediyorum....(Örnek çalışma ekte yer almaktadır)

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodları deneyiniz.

Sub kod()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
For a = 29 To s1.Cells(Rows.Count, "A").End(3).Row + 28 Step 29
    x = x + 1
    If x Mod 4 = 0 Then a = a - 1
    s2.Cells(x, "A").Value = s1.Cells(a, "A").Value
Next
End Sub

 

[Ömer BARAN]

Madem konu Fonksiyon Soruları bölümüne açılmış; ben de formül ile alternatif vereyim dedim.
Formülü Sheet2 A1 hücresine uygulayın ve aşağı doğru kopyalayın.

=KAYDIR(Sheet1!$A$1;SATIR()*29-(MOD(SATIR();4)=0)-TAMSAYI((SATIR()-1)/4)-1;0)

 

[pisagor26]

Teşekkürler arkadaşlar...süpersiniz...