Soru sütun atlayarak sayma

[sirkülasyon]

1 - bul.Offset(0, 24) = .........
2 - TOPLA.ÇARPIM((O2:Z2<>"")*(O2:Z2<>"")*(MOD(SÜTUN(O2:Z2);4)= 0))

Kayıt ettikçe 1. kodda yer alan .... yere 2. kodu formül yerine makro olarak nasıl yazabilirim?

 

[Korhan Ayhan]

Deneyiniz.

Satir = Bul.Row
Formul = "=SUMPRODUCT((O2:Z2<>"""")*(MOD(COLUMN(O2:Z2),4)=0))"
Formul = Replace(Formul, 2, Satir)
Bul.Offset(0, 24) = Evaluate(Formul)

 

[sirkülasyon]

Korhan abi teşekkür ederim.
Evaluate("=SUMPRODUCT((O2:Z2<>"""")*(MOD(COLUMN(O2:Z2),4)=0))")
satır değil de kayıt yaptıkça aşağıda ki gibi sütun bazında nasıl yapılabilir.
3. satır olursa Evaluate("=SUMPRODUCT((O3:Z3<>"""")*(MOD(COLUMN(O3:Z3),4)=0))")
4. satır olursa Evaluate("=SUMPRODUCT((O4:Z4<>"""")*(MOD(COLUMN(O4:Z4),4)=0))")

 

[Korhan Ayhan]

Önerdiğim kodu revize ettim. Kendinize göre uyarlarsınız.

 

[sirkülasyon]

Allah razı olsun. Teşekkür ederim