Onay kutusu tik işareti kaldırıldığında mesaj çıksın

[klop01]

Arkadaşlar
Ekli belgede ayrıntılı olarak gösterilen konu kısaca şöyle:
Onay kutularına tik işareti koyuyorum.
Belli şartlar sağlanınca onay kutularına atadığım makro çalışıyor.
Bir durumu başaramadım.
Kutuya koyduğum tik işaretini kaldırınca mesaj çıksın istiyorum.
Belgede hazır bir kod var, galiba bir yeri yanlış yapıyorum.

 

[Korhan Ayhan]

Aşağıdaki koşulunuz işi bozuyor. Bu satırı düzenlemeniz gerekir. Kodu F8 ile adım adım çalıştırırsanız durumu görebilirsiniz.

If ActiveSheet.Shapes(XD).OLEFormat.Object.Value < 0 Then

 

[klop01]

Korhan Ayhan
Dediğiniz satırın sorun çıkardığını fark ettim ama durumu düzeltemedim.
Aşağıdaki durumu gerçekleştiren bir kod satırı konusunda yardımcı olur musunuz?

KOŞUL: İşaret konulmuş bir onay kutusunun bulunduğu satırın C sütunundaki değeri boş değilse ve o satırdaki onay işareti kaldırılmak istendiğinde
OLUŞMASI GEREKEN: MsgBox çıksın.