Mükerrer kayıt hakkında

[akrhector05]

MERHABA ARKADAŞLAR

AŞAĞIDA KIRMIZI İLE İŞARETLEDİĞİM YERİ İNCELERSENİZ DAHA İYİ ANLARSINIZ.

Private Sub CommandButton1_Click()

Sheets("KSM-LİST").Select
For a = 1 To 3
If Controls("combobox" & a) = "" Then
MsgBox "VERİ GİRİŞİ EKSİKTİR"
Exit Sub
End If
Next

Dim M As Range
Set M = Sheets("KSM-LİST").Range("c2:c65536").Find(ComboBox2.Value, , xlValues, xlWhole)

KIRMIZI İLE YAZILAN KISMA BUNUDA EKLEMEM LAZIM Sheets("KSM-LİST").Range("d2:d65536").Find(ComboBox3.Value, , xlValues, xlWhole)


''''YANİ İKİ KOŞULDA GERÇEKLEŞTİĞİNDE AŞAĞIDAKİ UYARI MESAJINI VERSİN.........

If Not M Is Nothing Then
MsgBox "BU ÜRÜN DAHA ÖNCE KAYDEDİLMİŞTİR.."
Exit Sub
End If

 

[Orion1]

Dim M As Range,K as range
Set M = Sheets("KSM-LİST").Range("c2:c65536").Find(ComboBox2.Value, , xlValues, xlWhole)
set K=Sheets("KSM-LİST").Range("d2:d65536").Find(ComboBox3.Value, , xlValues, xlWhole)
''''YANİ İKİ KOŞULDA GERÇEKLEŞTİĞİNDE AŞAĞIDAKİ UYARI MESAJINI VERSİN.........

Set M = Sheets("KSM-LİST").Range("c2:c65536").Find(ComboBox2.Value, , xlValues, xlWhole)
set K=Sheets("KSM-LİST").Range("d2:d65536").Find(ComboBox3.Value, , xlValues, xlWhole)
If Not M Is Nothing or not K is nothing Then
MsgBox "BU ÜRÜN DAHA ÖNCE KAYDEDİLMİŞTİR.."
Exit Sub
End If

 

[akrhector05]

Hocam öncelikle teşekkürler

Burada her iki koşulda gerçekleşirse yani combobox2=ahmet c2:c de ve combobox3=mehmet d2:d de olursa hata mesajı versin istiyorum.or yazan yeri and ile değiştirdim ancak yine olmadı....


Saygılarımla