3 hücreden 1'ine veri girildiğinde diğer 2'sindeki veriler silinsin

[manyakbiri]

Değerli arkadaşlar merhaba,

Üzerinde çalıştığım makrolu excel'de 3 adet veri giriş hücresi var. Makrolar bu girilen verilere göre çalışmakta.

Eğer söz konusu 3 hücrenin en az 2'inde veri bulunursa bu karışıklığa yol açmakta.

Bu üç hücrenin adresleri şunlar: b4 , b9 , b16

b16 veri doğrulama ile çalışıyor. Hücrenin üzerine gelindiğinde sağda çıkan oka tıklayarak listeden siz seçiyorsunuz. Diğer 2 hücreye klavyeden yazılarak giriliyor. (Belki makro kodu yazarken bu bilgiler önemlidir diye paylaşmak istedim.)

Benim istediğim b4, b9 ve b16 hücrelerin herhangi birine veri girildiğinde diğer 2 hücredeki veriler silinsin.

Bunu sağlayan makroyu paylaşırsanız sevinirim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayınız.

Not: Dosyanızda aynı olaylar için başka makro kodları varsa çakışma olacaktır. Daha isabetli yardımlar alabilmek için lütfen örnek dosyanızı veya kodlarınızı paylaşınız.
İyi çalışmalar...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hcr As Range, alan As Range
Set alan = Range("B4,B9,B16")
If Intersect(alan, Target) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
For Each hcr In alan
    If Intersect(hcr, Target) Is Nothing Then
        hcr.ClearContents
    End If
Next
Application.EnableEvents = True
End Sub

 

[manyakbiri]

Merhaba,

Ne yazık ki çalışmadı. Söz konusu hücrelerden birine veri girip daha sonra diğerine veri girdiğimde önceki silinmedi.

Şöyle bir kural gerekiyor. Bir hücreye veri girildiğinde bahsi geçen diğer 2 hücredeki veriler silinsin.

 

[ÖmerBey]

İlk mesajda yazdığım notu yeniden okuyunuz.