CountIf hata nerde anlamadım.

[karakaçan]

Sub aaaaaaaaaaaaaaaaa()
Dim a As Integer
a = Application.CountIf(Sheets("Sayfa3").Range(Cells(1, 1), Cells(5, 1)), Sheets("Sayfa1").Cells(1, 2)).Value
If a < 1 Then
MsgBox "veri bulunamadı", vbCritical, "dur"
End If
Else
MsgBox a, vbCritical, "dur"
End Sub

Sayfa 1 deki B1 hücresinde yer alan değer Sayfa 3 te A1:A5 aralığında yok ise aradığınız veri bulunamadı demesini istiyorum. Varsa tekrar sayısını versin Hata nerde anlamadım.

 

[Mustafa MUTLU]

Şunu Denermisiniz..

Sub aaaaaaaaaaaaaaaaa()
MM=0
For MSTF = 1 To 5
If Sheets("Sayfa3").Cells(MSTF,"A") = [Sayfa1!B1] Then
MM = MM + 1
End If
Next

If MM > 0 Then
MsgBox MM  & " Adet veri bulundu", vbCritical, "dur"
End If

If MM = 0 Then
MsgBox "veri bulunamadı", vbCritical, "dur"
End If

End Sub

 

[Necdet]

Merhaba,

Sub VarYok()
 
    Dim i   As Integer, _
        s1  As Worksheet, _
        s3  As Worksheet
 
    Set s1 = Sheets("Sayfa1")
    Set s3 = Sheets("Sayfa3")
 
    i = Application.WorksheetFunction.CountIf(s3.Range("A1:A5"), s1.Range("B1"))
 
    MsgBox "Bulunan Adet : " & i
 
End Sub

 

[karakaçan]

Hani derler ya "körün istediği bir göz.Allah vermiş iki göz"
ben bir cevap beklerken iki tane geldi. Teşekkürlerimi sunarım iyi bayramlar.