sayfa açıldığında uyarı versin

[nugreozlem]

arkadaşlar
ben sayfa açıldığında
uyarı gelsin istiyorum
sütünu kontrol etsin ve sütünda "kapalı" "açık"
diğe değerler var
eğer "kapalı "varsa
şu kadar kapalı var desin
bişiler yaptım ama olmadı acil yardım lütfen

 

[danersin]

Sayfa modülüne aşağıdaki kodu yazarsanız işinizi görür.?

[vb:1:5fc3a24e6f]Private Sub Worksheet_Activate()
MsgBox Application.WorksheetFunction.CountIf(Columns(1), "kapalı") & " tane kapalı var"
End Sub[/vb:1:5fc3a24e6f]


Not : Ben A sütununa göre yazdım ve Columns(1) dedim, hangi sütunda ise kapalı -açık yazıları o sütunun numarasını yazın.

 

[nugreozlem]

çok teşekür edederim çalıştı