Soldan İlk Harf Hk.

[Ömer2134]

Merhabalar

Yapmak istedim g sütununda bulunan hücrelerin ilk harfi s ve c ile başlıyorsa msbox uyarı versin.

Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim Say_S As Long, Say_C As Long
    Say_S = WorksheetFunction.CountIf(Range("G:G"), "S*")
    Say_C = WorksheetFunction.CountIf(Range("G:G"), "C*")
    MsgBox "C ile başlayan hücreler ; " & Say_C & Chr(10) & Chr(10) & _
           "S ile başlayan hücreler ; " & Say_S
End Sub

 

[Ömer2134]

Korhan bey teşekkürler.