Kırmızı hücreleri seçtiğimde hata mesajı

[ynmcan]

Merhaba arkadaşlar;
Comboboxlarda kırmızı renkili hücreleri seçtiğmde hata mesajı vermesini istiyorum, yardımcı olursanız sevinirim.
Örnek dosyam ekte.

 

[ynmcan]

Daha önceden bu konuda forumda bilgiler vardı, kendi açtığım konulardan biriydi. Formda elimin altında diye dosyaların kopyasını almamıştım.ama malum form çökünce dosyalar gitti. Yardımcı olursanız sevinirim.

 

[ynmcan]

Ben aşağıdaki kodu düzenledim ama bu kodları her sayfa içi tek tek yazmam gerekiyor.( kırmızı ile belirtiğim yerleri her sayfa için değiştirmek zorunda olduğumdan. ) tek kodla yapmak istiyorum.''Dim,As'' ile yazılan kod larda bilgim çok az. Uğraştım ama yapamadım. Yardım ederseniz sevinirim.

If ComboBox2 = "" Then Exit Sub
sat = ((ComboBox11.ListIndex + 1) * 3)
a = WorksheetFunction.Match(Val(ComboBox2), Sayfa1.Rows(sat), 0)
If Sayfa1.Cells(sat, a).Interior.ColorIndex = 3 Then
MsgBox "BU KALIP HURDAYA AYRILDI !!! LÜTFEN BAŞKA BİR KALIP SEÇİNİZ."
ComboBox2 = ""
End If

Örnek dosyamda değişiklik yaptım incelerseniz sevinirim

 

[leumruk]

Sayfa ismi yazmak yerine Activesheet yazdığınızda olması lazım.

 

[ynmcan]

Sn. Leumruk, teşekkür ederim.