eğersay vba kodu

[muallim]

=EÐERSAY(B1:E1;2)
=EÐERSAY(B1:E1;Sayfa2!A1)
bu formülleri vba kodlarıyla yazmak istiyorum. Selamlar...

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

[vb:1:666f06508f]a = WorksheetFunction.CountIf([b1:e1], 2)
b = WorksheetFunction.CountIf([b1:e1], [sayfa2!a1])
[/vb:1:666f06508f]