Seçili alanda boş olmayan hücrelerin sayısını veren VBA kodudur.
Option Explicit
Sub SecilenAlandaBosOlmayanHucrelerinSayisiniVer()
Dim bosOlmayanHucreSayisi As Integer
bosOlmayanHucreSayisi = Application.CountA(Selection)
MsgBox "Seçimdeki boş olmayan hücrelerin sayısı: " & bosOlmayanHucreSayisi
End Sub