atlamalı FOR NEXT sorunu

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Yaptığım çalışmada atlamalı FOR NEXT olgusu kullanmak istiyorum.
20. sütun 9. satırdan başlıyor
20. sütun 39. satıra 31 satır kontrol etti
16 satır atladı
20. sütun 55. satırdan başlıyor
20. sütun 85. satıra 31 satır kontrol etti
16 satır atladı
20. sütun 101. satırdan başlıyor
20. sütun 131. satıra 31 satır kontrol etti
16 satır atladı
20. sütun 147. satırdan başlıyor
20. sütun 177. satıra 31 satır kontrol etti
16 satır atladı
20. sütun 193. satırdan başlıyor
20. sütun 223. satıra 31 satır kontrol etti
16 satır atladı
20. sütun 239. satırdan başlıyor
20. sütun 269. satıra 31 satır kontrol etti
Bitti

    For y = 20 To 28 Step 2
        For x = 1 To 31
            Cells(8 + x, y) = 1
        Next x
    Next y

Bu kod 31 satıra 1 yazıyor. Bundan sonra 16 satır aşağı inip bir daha 31 satıra 1 yazması lazım ...
Sıçrama yapıp devam ettiremedim. Yardımcı olursanız sevinirim.
Saygılarımla

 

[Ömer]

Merhaba,

Tam anlayamadım.

Cells(8 + x, y) = 1 satırının altına aşağıdaki kodu ekleyin. İstediğiniz bu mu?

Cells(55 + x, y) = 1

 

[hımmmmmmmm]

bende anlamadım.. böyle bir şey olsun istedin sanırım...

s = 1
    For y = 20 To 28 Step 2
        For x = s To s + 30
            Cells(8 + x, y) = 1
        Next x
        s = x + 15
    Next y

ysütun 20 kalsın istiyosan Cells(8 + x, 20) yap

 

[Tevfik_Kursun]

Sayın Ömer Hocam,
Evet aynı döngüye eklemeyi düşünmemiştim. Çok teşekkür ederim.
Saygılarımla

            Cells(8 + x, y) = 1
            Cells(55 + x, y) = 1
            Cells(101 + x, y) = 1
            Cells(147 + x, y) = 1
            Cells(193 + x, y) = 1
            Cells(239 + x, y) = 1