Veri doğrulama ile silmeyi engelleme

[tarık34]

Hazırlanmış olan bir isim listem var. (A1:A10 aralığında)
B1:B10 aralığında ise çeşitli rakamlar ve metinler var.

A1 hücresinin karşısındaki B1 de veri varsa A1 silinemesin üzerine bir şey yazılamasın. Bir nevi pasif olsun yani.
Bu durum A1 den A10 a kadar bu şekilde engellensin.

Bunu Veri Doğrulama ile yapmak için uğraştım sanırsam olmuyor. Ama siz değerli forumdaşlara bir sorayım belki yapılabilir dedim.

NOT: Veri yazma engelleniyor ama silme engellenemiyor benim çıkardığım sonuç.

Bilginiz varsa paylaşabilir misiniz?

 

[Korhan Ayhan]

Veri doğrulama yapılabileceğini zannetmiyorum. Olabiliyorsa bende öğrenmiş olurum.

Alternatif makrolu çözüm önerebilirim.

Sayfanızın kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not IsEmpty(Target.Next) Then
        Application.Undo
    End If
    Application.EnableEvents = True
End Sub

 

[tarık34]

Korhan Hocam
Makro ile çözümü düşünmediğim için farklı durumları yazmamıştım. A1:A10 aralıklarını örnek olarak vermiştim.

1. Yazdığınız makro işlemi yapıyor.

2. Benim yapmak istediğim Sayfa2'den Sayfa7'ya kadar olan sayfalardaki E7:AM7 ve AT7:BA7 aralıklarında veri varsa
Sayfa1'deki C7 ve D7'nin silinememesi.

3. Bu şekilde aşağı doğru devam etmesi C66-D66'ya kadar. (Bakılan yerler de Sayfa2 - Sayfa7'de aşağı doğru E66:AM66 ve AT66:BA66'ya kadar devam ediyor.

4. İlgili hücreler silinmeye çalışıldığında da bir uyarı çıkabilir mi? (Burayı silemezsiniz.)

Vaktiniz varsa, ilgilenmek isterseniz yardımınızı beklerim.
İlgilenseniz de ilgilenmeseniz de şimdiden teşekkürler.
NOT: Konunu acelesi yoktur birkaç gün çözümü bekleyebilirim.