Çok basit bir hata

[antir]

Private Sub TextBox52_Change()
Sheets("sayfa1").Select
If Range("e3:e200").Value = Range("a1").Value Then
MsgBox "UYUMLU DEĞİL "
End If
End Sub

arkadaşlar burada kırmızı olan yerde hata veriyor bnm yapmak istediğim e3 ile e200 arasında a1 deki yazanın aynısı varsa uyumlu değil yazısını çıkarmak ?

 

[uzmanamele]

merhaba
If Range("e3:e200").Value = Range("a1").Value Then
e3:e200 aralığı a1 hücre değerine eşit olamaz.

for-next, For Each gibi döngü kullanmadan böyle bir kıyaslama yapamazsınız.

 

[leumruk]

Selamlar,
Aşağıdaki kod biçimini deneyiniz.
Private Sub TextBox52_Change()
Sheets("sayfa1").Select
Set Bul = [e3:e200].Find([a1], LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
MsgBox "UYUMLU DEĞİL "
End If
End Sub

 

[dEdE]

Private Sub TextBox52_Change()
Sheets("sayfa1").Select
For i = 3 To 200
If [A1].Value = Cells(i, 5).Value Then
MsgBox "UYUMLU DEĞİL "
Exit For
End If
Next
End Sub

 

[antir]

arkadaşlar çok teşekkürler birde bu uyarıyı 10 gün boyunca nasıl göstertebilirim ?

 

[mesuttasar]

Ekteki dosyayı incelermisiniz.

Alternatif olsun.

Sub deneme2()

If WorksheetFunction.CountIf(Range("C3:C100"), Cells(1, 1)) > 0 Then
MsgBox "KAYIT BULUNDU.UYUMLU DEĞİLDİR"
Else
MsgBox "KAYIT BULUNAMADI.UYUMLUDUR"
End If

End Sub

 

[Merhum İdris SERDAR]

Private Sub TextBox52_Change()
Sheets("sheet1").Select
Set alan = Range("e2:e200")
If WorksheetFunction.CountA(alan, [a1].Value) > 1 Then
MsgBox "UYUMLU DEĞİL "
End If
End Sub

şeklinde deneyin.

.

 

[antir]

arkadaşlar teşekkürler sizin sayaenizde sorunu hallettim fakat birde şu sorum var bu uyarıyı 10 gün boyunca nasıl göstertebilirim

 

[leumruk]

Private Sub TextBox52_Change()
Sheets("sayfa1").Select
[COLOR="Red"]If Date >= CDate("15/03/2009") Then[/COLOR]
Set Bul = [e3:e200].Find([a1], LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
MsgBox "UYUMLU DEĞİL "
End If
[COLOR="red"]End If[/COLOR]
End Sub

Aynı mantığı istediğiniz koda uygulayabilirsiniz.

 

[antir]

Teşekkürler