makro mod kullanımı

[hasan uyanık]

merhabalar,

a1 ile a10 hücresindeki sayıları seçip 2 ye bölünen kac adet varsa dügmeye tıkladığımda b2 hücresine yazdıran kod nedir?

 

[muratboz06]

Makro aşağıda, herhangi bir düğme oluşturup makroyu atayabilirsiniz.

Sub IkiyeBolunenleriSay()
    Dim hucre As Range
    Dim say As Byte
    say = 0
    ActiveSheet.Range("A1:A10").Select
    For Each hucre In Selection
        If hucre.Value Mod 2 = 0 Then
            say = say + 1
        End If
    Next hucre
    ActiveSheet.Range("B2") = say
End Sub

 

[hasan uyanık]

Makro aşağıda, herhangi bir düğme oluşturup makroyu atayabilirsiniz.

Sub IkiyeBolunenleriSay()
    Dim hucre As Range
    Dim say As Byte
    say = 0
    ActiveSheet.Range("A1:A10").Select
    For Each hucre In Selection
        If hucre.Value Mod 2 = 0 Then
            say = say + 1
        End If
    Next hucre
    ActiveSheet.Range("B2") = say
End Sub

cok tesekkür ederim

 

[çıtır]

If hucre.Value Mod 2 = 0 Then

satırını

    If hucre.Value <> "" And hucre.Value Mod 2 = 0 Then

şeklinde değiştiriniz.Aksi halde boş satırlarıda 2 ye kalansız olarak bölünen olarak sayaçaktır.