makro

[<<<<zc<sc<sgveds]

A bloğundaki 1 2 3 4 5 6 7 8 9 10 sayılarının tek olanlarının sayısını nasıl b2 sütününa yazarım makroda

 

[Emir Hüseyin Çoban]

.

Sub kod()

For Each alan In Range("A1:A100")
If WorksheetFunction.IsOdd(alan) Then
say = say + 1
End If
Next
Range("B2") = say

End Sub

.