Değer Sıfır ise sayma, Değer varsa say

[htsumer]

C1 Hücresinden C350 Hücresine kadar değerler var. Bu hücrelerden bazıları sıfır olarak geçiyor. Sıfır olanları saymaması için aşağıdaki fonksiyonu yazdım ama alt alta 3 yada4 tane sıfır olduğunda hata veriyor.

=EĞER(C4=0;"";EĞER(G3="";G2+1;G3+1))

öRNEK DOSYA EKTEDİR.

 

[Emir Hüseyin Çoban]

. . .

Size Sıra No listesimi gerekiyor yoksa toplamda kaç kişinin maaş alacağı sayısı yeterli mi.

G3 için formül, aşağıya doğru çoğaltın.

=EĞER(C3>0;EĞERSAY($C$3:C3;">"&0);"")

Maaş alacak toplam sayısı için formül

=MAK(G:G)

. . .

 

[aliveli06]

Macro ile yapmak isterseniz çalışma sayfanızın kod kısmına aşağıdaki kodları kopyalayıp F5 tuşuna basmanız yeterlidir.

Sub say()
Range("g3:g500").ClearContents
y = 1
For x = 3 To [c65536].End(3).Row - 1
If Cells(x, 3).Value > 0 Then
Cells(x, 7) = y
y = y + 1
End If
Next x
End Sub

 

[htsumer]

@Hüseyin Çoban,

Verdiğiniz ilk fonksiyon tam istediğime uygundur. Çok sağolun.

@aliveli06

Kod çalışıyor teşekkür ederim, ancak;
Kod ilk çalıştığında boş veya sıfır olanları saymıyor sorun yok güzel. Çalışma içinde bazen veri sıfır sonradan olabiliyor, dolayısıla kodu tekrar çalıştırmak gerekiyor. Kod bir kere çalıştıktan sonra manuel sıfır yada boşluk verdiğimde tekrar değerlendirip saymıyor.

Örnek; kodu çalıştırdım.
Sıralamayı yaptı
Daha sonra veri olan bir değeri sildim.
Tekrar çalıştırdım, o satırdaki sıralama duruyor ve yeniden sıralıyor. Kodun başına
clear gibi bir kod eklersek sanırım olur fakat dediğim gibi fonksiyon olarak, değerlerin güncellenecği açısından daha sağlam olacak. İlginiz için teşekkür ederim.