excel'de çalışma sayfalarında değer olup olmadığını gösterme

[enderuzuner]

Arkadaşlar benim sorunum şu: ben kendi çabalarımla yaklaşık 8 sayfadan oluşan bir program yaptım.Ancak şunu oluşturamadım.Ana sayfada iken diğer sayfalara gitmeden bu sayfalarda bilgi bulunup bulunmadığını ''dolu'' veya ''boş'' şeklinde gösteren bir formül veya makroya ihtiyacım var.Teşekkürler :hey:

 

[Recep İpek]

Sayın enderuzuner,

Biraz basit oldu ama, belki değişik fikirler verebilir.

Makro 50 satır , 50 kolonu kontrol ediyor.Siz kendinize göre uyarlayabilirsiniz.

[vb:1:4a00e14d0f]
Sub Button1_Click()
Dim Sy1, s As Variant
s = 0
Set Sy1 = Sheets("VERİ1")

For i = 1 To 50 'Kolon Numarası
For j = 1 To 50 ' Satır Numarası
If Sy1.Cells(j, i).Value <> "" Then
s = s + 1
End If
Next j
Next i
MsgBox "Seçtiğiniz Sayfada " & s & " Adet Veri Var.", vbCritical, "UYARI"
End Sub
[/vb:1:4a00e14d0f]