makro kod yardımı

[Tarikkk_]

Merhabalar, C3 hücresindeki değer ÜRETİCİLER sayfasındai D71000" hücreleri arasında yoksa HESAP TÜRÜ ÜRETİCİ DEĞİL mesajı almak ve sub dan çıkış yapmasını istiyorum. aşağıdaki kodu farklı bir kaç şekilde denedim olmadı yardımlarınızı bekliyorum. şimdiden teşekkürler

         Var = WorksheetFunction.CountIf(Worksheets("ÜRETİCİLER").Range("D7:D1000"), ("C3"))
    If Var < 0 Then
         MsgBox ("HESAP TÜRÜ ÜRETİCİ DEĞİL")
     Exit Sub
      End If

 

[çıtır]

Aşağıdaki şekilde sanırım olur.

Var = WorksheetFunction.CountIf(Worksheets("ÜRETİCİLER").Range("D7:D1000"), ("C3"))
    If Var = 0 Then
         MsgBox ("HESAP TÜRÜ ÜRETİCİ DEĞİL")
     Exit Sub
      End If

 

[Tarikkk_]

Aşağıdaki şekilde sanırım olur.

Var = WorksheetFunction.CountIf(Worksheets("ÜRETİCİLER").Range("D7:D1000"), ("C3"))
    If Var = 0 Then
         MsgBox ("HESAP TÜRÜ ÜRETİCİ DEĞİL")
     Exit Sub
      End If

cevabınız için teşekkür ederim. bu şekilde ÜRETİCİLER sayfasındai D71000" hücreleri arasında olan olmayan tüm isimler için mesaj uyarısı veriyor

 

[çıtır]

Deneyiniz.

Var = WorksheetFunction.CountIf(Sheets("ÜRETİCİLER").Range("D7:D1000"),Sheets("ÜRETİCİLER"). Range("C3"))
    If Var = 0 Then
         MsgBox ("HESAP TÜRÜ ÜRETİCİ DEĞİL")
     Exit Sub
      End If

 

[Tarikkk_]

Deneyiniz.

Var = WorksheetFunction.CountIf(Sheets("ÜRETİCİLER").Range("D7:D1000"),Sheets("ÜRETİCİLER"). Range("C3"))
    If Var = 0 Then
         MsgBox ("HESAP TÜRÜ ÜRETİCİ DEĞİL")
     Exit Sub
      End If

istediğim gibi çalıştı çok teşekkür ederim. birşey sormak istiyorum

WorksheetFunction.CountIf(Sheets
WorksheetFunction.CountA(Worksheets

Sheets ve Worksheets her iki şekildede çalışıyor ikisi arasındaki fark nedir acaba

 

[Korhan Ayhan]

Sheets (Çalışma kitabındaki sayfaları ve grafik sayfalarını kapsar)
Worksheets (Çalışma kitabındaki sadece sayfaları kapsar)

 

[Tarikkk_]

Sheets (Çalışma kitabındaki sayfaları ve grafik sayfalarını kapsar)
Worksheets (Çalışma kitabındaki sadece sayfaları kapsar)

açıklama için teşekkürler hocam