satırdaki hücreleri saydırma ??

[dimor]

Merhaba

satır boyunca. 2. 6. 10. böyle 4 er artarak gidecek şekilde girilen 1 değerlerinin kaç tane olduğu aynı şekilde 3.7.11. 4 er artarak girilen 0 değerlerinin toplam kaç tane olduğunu makro ile nasıl bulurum.

Not. Satır uzunluğu 1000 i geçmiş vaziyette elle tek tek seçmem çok zor

 

[ÖmerBey]

Merhaba,
Verdiğiniz bilgilerden hareketle bu kadar yazabildim. Satırın 2. satır olduğunu varsaydım.

Sub Kod()
For a = [COLOR="red"]2[/COLOR] To Cells([COLOR="Blue"]2[/COLOR], Columns.Count).End(1).Column Step [COLOR="red"]4[/COLOR]
    If Cells([COLOR="blue"]2[/COLOR], a) = [COLOR="Red"]1[/COLOR] Then say = say + 1
Next
MsgBox say
End Sub