dolu hücrelerin sayısını veren formul

[ozkankac]

Sayın Grup Üyeleri excelde ki hücrelerin içindeki sayı yada yazı olan hücrelerin sayısını rakam ile veren bir formul warmi



selamlar.

 

[muygun]

=BAÐ_DEÐ_DOLU_SAY(A1:A100)

 

[erdem519]

Sayın Grup Üyeleri excelde ki hücrelerin içindeki sayı yada yazı olan hücrelerin sayısını rakam ile veren bir formul warmi



selamlar.

+alttoplam(3;c6:c30) bu da aynı sonucu verir

 

[nziya]

BAÐ_DEÐ_SAY İÇİNDE RAKAM OLAN DOLU HÜCRELERİ SAYAR,BAÐ_DEÐ_DOLU_SAY RAKAM,HARF DUYARLIDIR

=BAÐ_DEÐ_SAY(A1:G1)
=+BAÐ_DEÐ_DOLU_SAY(A1:G1)

 

[Kemal Demir]

arkadaslar baya bir cevap yazmıs:

Ama yapmıs bulundum umarım değişik bir yol ama aynı sonucu veriyor

Sub boslarınsayısını_Göster()
'7 sutun ve 16 satır ıcın gecerlidir
For c = 1 To 16
For k = 1 To 7
If Cells(c, k).Value = "" Then
Cells(c, k).Value = 1
say = Cells(c, k)
d = Cells(c, k)
e = e + d
End If
Next
Next
Range("z1").Value = e
MsgBox (e) & " " & " " & "adet"

End Sub


Biraz uzun ama devamlı kullanılabilir sutun ve satırlar ayarlagındı surece kullanılabilir.

Saygılar.
(Cevap Kirliliği İçin Ã?zür)

 

[Kemal Demir]

aklıma gelmişken excel sayfası içerisinde boş hücreler harıcınde 1 varsa söle bir ilave yapabilirz.

Sub boslarınsayısını_Göster()
'7 sutun ve 16 satır ıcın gecerlidir
For c = 1 To 16
For K = 1 To 7
If Cells(c, K).Value = "" Then
Cells(c, K).Interior.ColorIndex = 4
Cells(c, K).Value = 1
say = Cells(c, K)
d = Cells(c, K)
e = e + d
End If
Next
Next
Range("z1").Value = e
MsgBox (e) & " " & " " & "adet"

End Sub

Zannedersem bu daha sağlıklı