Mükerrer kayıt hakkında

Katılım
7 Temmuz 2009
Mesajlar
21
Excel Vers. ve Dili
excel 2007
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
:cool:
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.........
Kod:
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
 
Katılım
7 Temmuz 2009
Mesajlar
21
Excel Vers. ve Dili
excel 2007
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
 
Üst