Boş hücre sayısı

[Baggwell]

Sub bos_hucre_sayisi()
Dim c
toplam = 0
For Each c In Selection
    If c.Value = "" Then
        toplam = toplam + 1
    End If
Next c
MsgBox ("Boş hücre sayısı: " & Chr(13) & ActiveSheet.Name & "=" & toplam)
End Sub

Yukarıdaki çalışan makroyu sağ tuş menüsüne eklediğimde çalışmıyor

 

[YUSUF44]

Makro sağ tuş menüsüne nasıl ekleniyor acaba?

 

[Baggwell]

makro kodları ile

 

[YUSUF44]

Nasıl yani? Nasıl bir kod kullanılıyor?

 

[Baggwell]

Forumdan değerli üstatların desteği sayesinde bir makro kodu hazırlandı. Geçmiş konularda bulabilirsiniz çok kullanışlı oluyor tavsiye ederim.

 

[Ömer]

Yukarıdaki çalışan makroyu sağ tuş menüsüne eklediğimde çalışmıyor

Merhaba,

Denedim, herhangi bir sorun olmadı. Aşağıdaki gibi deneyebilirsiniz.

Sub Auto_Open()
    FareMenu
End Sub
 
Sub FareMenu()
 
    Dim cb As CommandBar, MenuObject
 
    Set cb = Application.CommandBars("Cell")
    Set MenuObject = cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
 
    With MenuObject
        .OnAction = "bos_hucre_sayisi"
        .FaceId = 9
        .Caption = "Yeni--->Boş Hücre"
    End With
 
    Set cb = Nothing: Set MenuObject = Nothing
 
End Sub

Sub bos_hucre_sayisi()
 
    Dim toplam As Double, c As Range

    toplam = 0
    For Each c In Selection
        If c.Value = "" Then
            toplam = toplam + 1
        End If
    Next c
    MsgBox ("Boş hücre sayısı: " & Chr(13) & ActiveSheet.Name & "=" & toplam)
  
End Sub
 
Sub Auto_Close()
     Application.CommandBars("Cell").Reset
End Sub

.