Mouse ile dolu hücre sayma

[TuncDemirkale]

Selam,
Herhangi bir çalışma sayfasında , buton kullanmadan , mouse ile seçilen ( tek tık ) hücreye ait sütundaki , dolu hücre sayısını msgbox olarak gösteren makro yazılabilir mi?

Bu yapılabilirse ek olarak , msgbox için de "Tamam" butonuna basmadan zaman bazında örneğin 1 saniye sonra kendiliğinden kapanması mümkün müdür?

 

[Korhan Ayhan]

Deneyiniz.

İlgili sayfanın kod bölümüne uygulayınız.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CreateObject("WScript.Shell").Popup "Seçtiğiniz alandaki dolu hücre sayısı ; " & _
    WorksheetFunction.CountA(Selection), 1, "Sonuç...", vbInformation
End Sub

 

[TuncDemirkale]

Çok teşekkür ederim Korhan Bey , bu çok işime yarayacak , sayfanın altında "say" olarak veriliyor biliyorum fakat alan seçince renklendirme ile ilgili diğer bir kod ile kalıcı renk alanı oluşuyordu o nedenle o formu kullanamıyordum.
Yalnız ilginç bir şey oldu bu kodla diğerini birleştirince o kalıcı form da ortadan kalkmış oldu. Bu ayrıca bir çözüm de oldu.
Tekrar çok teşekkürler , iyi çalışmalar.

Deneyiniz.

İlgili sayfanın kod bölümüne uygulayınız.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CreateObject("WScript.Shell").Popup "Seçtiğiniz alandaki dolu hücre sayısı ; " & _
    WorksheetFunction.CountA(Selection), 1, "Sonuç...", vbInformation
End Sub