Egersay değerinin msbbox ta çıkması

[drejan62]

Merhabalar.
B sütununda bulunan değerler arasında "tamam" yazan hücrelerin toplamını
Msgbox ta nasıl yazabiliriz.

Eğersay formülü ile bu rakamı bir hücreye çıkartıp ordan msgbox ta çıkmasını sağlayabiliriz ama ben hiç hücreye değer atamadan nasıl yaparızı öğrenmek istişorum.

Teşekkürler

 

[halit3]

Merhabalar.
B sütununda bulunan değerler arasında "tamam" yazan hücrelerin toplamını
Msgbox ta nasıl yazabiliriz.

Eğersay formülü ile bu rakamı bir hücreye çıkartıp ordan msgbox ta çıkmasını sağlayabiliriz ama ben hiç hücreye değer atamadan nasıl yaparızı öğrenmek istişorum.

Teşekkürler

bu kodu denermisiniz.

Sub deneme()
sat = 0
For i = 1 To Worksheets(ActiveSheet.Name).[b65536].End(3).Row
If Worksheets(ActiveSheet.Name).Cells(i, "B").Value = "tamam" Then
sat = sat + 1
End If
MsgBox sat & "  adet tamam bulundu"
Next i
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak döngüye girmeden aşağıdaki şekilde de kullanabilirsiniz.

Option Explicit
 
Sub TAMAM_YAZANLARIN_SAYISI()
    MsgBox WorksheetFunction.CountIf(Range("B:B"), "TAMAM")
End Sub

 

[drejan62]

Halit Bey ve Korhan Bey çok teşekkür ederim.
Korhan Bey sizinr kodlar tam istediğim gibi. Halit Beyinkide işimi görürdü ümü döngü olduğu için
"tamam" sayısı kadar habire mesaj çıkıyor.
İkinizede çok teşekkürler sağolun.