Excel VBA Dolu Hücreleri Sayma

Yazar: Temel Excel | Yayın Tarihi: 24 Ocak 2025 | Son Güncelleme: 24 Ocak 2025 | Excel VBA

Excel VBA Dolu Hücreleri Sayma

Excel’de veri analizi ve otomasyon işlemlerinde VBA makrolarını kullanmak oldukça etkilidir. Bu makalede, bir veri setindeki dolu hücreleri saymak için nasıl bir makro yazılacağı gösterilecektir.

Dolu Hücreleri Sayma Makrosu Nasıl Yazılır?

Makro yazmak için öncelikli olarak üst menüden geliştirici sekmesinin aktif olduğundan emin olunuz. Eğer değilse, İlk olarak, Excel’de Geliştirici sekmesini etkinleştirmek için "Dosya" > "Seçenekler" > "Şeridi Özelleştir" menüsünden "Geliştirici"yi işaretleyin. Detaylı bilgi için linke tıklayabilirsiniz. Ardından, "Geliştirici" sekmesinden "Visual Basic" butonuna tıklayarak VBA Düzenleyicisini açabilir ve "Ekle" > "Modül" ile yeni bir modül ekleyebilirsiniz. Daha fazla bilgi için linke tıklayabilirsiniz.

Bu adımlar tamamlandıktan sonra, dolu hücreleri saymak için aşağıdaki VBA kodunu kullanabilirsiniz:

Dolu Hücreleri Sayma Makrosu

Dolu Hücreleri Sayma - VBA Kodu

Sub DoluHücreleriSay()
Dim Sayim As Long
Dim Aralik As Range
' Kullanıcının bir aralık seçmesini iste
Set Aralik = Application.InputBox("Dolu hücreleri saymak istediğiniz aralığı seçin:", Type:=8)
' Seçim yapılmadıysa alt yordamdan çık
If Aralik Is Nothing Then Exit Sub
' Dolu hücreleri say
Sayim = WorksheetFunction.CountA(Aralik)
' Sonucu göster
MsgBox "Seçilen aralıktaki dolu hücre sayısı: " & Sayim
End Sub

Dim Sayim As Long - `Sayim` adında bir uzun tamsayı değişkeni tanımlar, dolu hücrelerin sayısını tutar.
Dim Aralik As Range - `Aralik` adında bir hücre aralığı değişkeni tanımlar, kullanıcı tarafından seçilen aralığı tutar.
' Kullanıcının bir aralık seçmesini iste - Kullanıcıdan bir hücre aralığı seçmesi istenir.
Set Aralik = Application.InputBox("Dolu hücreleri saymak istediğiniz aralığı seçin:", Type:=8) - Kullanıcıdan hücre aralığı seçmesini isteyen giriş kutusu.
' Seçim yapılmadıysa alt yordamdan çık - Kullanıcı seçim yapmazsa, makro durdurulur.
If Aralik Is Nothing Then Exit Sub - Eğer aralık seçilmemişse, makro çalışmaz.
' Dolu hücreleri say - Seçilen aralıktaki dolu hücreler sayılır.
Sayim = WorksheetFunction.CountA(Aralik) - `CountA` fonksiyonu ile dolu hücrelerin sayısı alınır.
' Sonucu göster - Dolu hücre sayısı kullanıcıya gösterilir.
MsgBox "Seçilen aralıktaki dolu hücre sayısı: " & Sayim - Sonuç mesaj kutusunda görüntülenir.

Dolu Hücreleri Sayma - Sonuç

Makrolar, Excel’de tekrarlayan görevleri otomatikleştirmek için mükemmel araçlardır. Yukarıda anlatılan adımlarla, dolu hücreleri saymak için basit ama etkili bir makro oluşturabilirsiniz. Bu makro, özellikle büyük veri setleriyle çalışırken zaman kazandırabilir ve işlerinizi kolaylaştırabilir. VBA’nın gücünü kullanarak Excel’de daha karmaşık işlemleri de otomatikleştirebilir ve veri analizinizi daha verimli hale getirebilirsiniz.