Aktif Çalışma Sayfasındaki Dolu Hücre Sayısı

[hsayar]

Merhabalar
Excel Durum Çubupunda gözüken Say değeri makro ile nasıl tespit edilir?

Sub DoluHucSay()
Cells.Selected
MsgBox Selected.Count
End Sub

şeklinde denedim ama hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SAY()
    MsgBox Selection.SpecialCells(xlCellTypeConstants, 23).Count 'Formül hariç dolu hücreleri sayar.
    MsgBox Selection.SpecialCells(xlCellTypeFormulas, 23).Count 'Formüllü hücreleri sayar.
End Sub

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Sub SAY()
    Dim Hücre As Range, Say As Long
    For Each Hücre In Selection
    If H&#252;cre.Value <> "" Then
    Say = Say + 1
    End If
    Next
    MsgBox Say
End Sub

 

[hsayar]

Sub DoluHucreSayisi()
 Cells.Select
 On Error Resume Next
 dolu = Selection.SpecialCells(xlCellTypeConstants, 23).Count + Selection.SpecialCells(xlCellTypeFormulas, 23).Count
MsgBox dolu
End Sub

hocam bu şekilde istediğim yani formüllü yada formülsüz dolu ise sonuca ulaşabiliyorum.
Bunu tek satırda ve Dolu hücre yoksa dolu değişkenin 0 eşitleneceği kod ne olmalı.


Not 2 alternatifininiz baya uzun süreceği kanaatindeyim. özellikle 2007 için.

 

[Tarkan VURAL]

Alternatif;

Seçili hücreleri sayar.

Sub say() 
MsgBox Selection.Cells.Count
End Sub

Hücre içeriklerini denetlemek için ayrıca kod takviyesi yazabilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub SAY()
    MsgBox WorksheetFunction.CountA(Selection)
End Sub

 

[veyselemre]

MsgBox Intersect(ActiveSheet.UsedRange, Selection).Count

İşinizi görür mü?

 

[hsayar]

Sn Tarkan önerdiğiniz yöntem Formülleri saymıyor.

Amacımı aslında çamkata fayda var...

Aktif excel çalışma sayfasının üzerinde Dolu hücre, gizli hücre, Grafik, çizim, metinkutusu, word art yada başka bir nesne varsa uyarı almak.

 

[Tarkan VURAL]

hücre say

Formülleri saymaz, sadece seçili hücre adedini sayar.

Hücre içeriklerini denetlemek için ayrıca kod takviyesi yazabilirsiniz.

yazmıştım zaten.
Ama son mesajınızda işin boyutu değişti. Amaç ile çözümler birbirini tutmuyor.
Diğerlerini unutalım... Son mesajınıza göre çözüm üretmek gerek.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod belki size fikir verebilir.

Option Explicit
 
Sub SAY()
    Dim Say1 As Long, Say2 As Long, Say3 As Long
    Say1 = ActiveSheet.DrawingObjects.Count 'Objeler
    Say2 = WorksheetFunction.CountA(Cells) 'Dolu Hücreler
    Say3 = Cells.SpecialCells(xlCellTypeVisible).Count 'Görünür Hücreler
    MsgBox Say1 + Say2 + Say3
End Sub

 

[hsayar]

Selamlar,

Aşağıdaki kod belki size fikir verebilir.

Option Explicit
 
Sub SAY()
    Dim Say1 As Long, Say2 As Long, Say3 As Long
    Say1 = ActiveSheet.DrawingObjects.Count 'Objeler
    Say2 = WorksheetFunction.CountA(Cells) 'Dolu Hücreler
    Say3 = Cells.SpecialCells(xlCellTypeVisible).Count 'Görünür Hücreler
    MsgBox Say1 + Say2 + Say3
End Sub

hocam alakanıza teşekkür ederim, direk görünmez hücreleri tespit etmek mümkün değil mi?
Excel 2007 de de 65536 satır olaydı 65536-görünür der geçerdim ancak versiyon uyumluluğu için görünmezleri doğrudan tespit edebilmek varsa daha iyi olacaktır.
Ayrıca Drawing objects sayfa üzerindeki grafikleri dikkate almıyor.

saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Gizli hücreleri sayana direkt bir komutun olduğunu sanmıyorum. Ayrıca "DrawingObjects" komutunu sayfada grafik oluşturarak denedim ve 2003 versiyonunda olumlu sonuç aldım. 2007 versiyonunda da sorun çıkartacağını sanmıyorum.

Gizli satırlar için versiyon farklılığını gözardı etmek için aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub GİZLİ_SATIR_SAYISI()
    Dim SAY As Long, SATIR As Long
    SATIR = IIf(Val(Application.Version) <= 11, 65536, 1048576)
    SAY = SATIR - [A:A].SpecialCells(xlCellTypeVisible).Count
    MsgBox SAY
End Sub

 

[hsayar]

korhan hocam teşekkürler yarın tekrar denereim.