Hücre doluysa diğer hücreleri temizleme

[muratgunay48]

Arkadaşlar, örnek fotoğrafta görüldüğü üzere C5 ile C12 arasında herhangi bir hücreye yazı yazılıp enter yapılırsa (D512) ve (E5:E12) ve (F5:F12) ve (G5:G12) temizlenecek. Aynı şekilde D5 ile D12 arasında herhangi bir hücreye değer yazılıp enter yapınca diğerleri temizlenecek.
Bu mümkün müdür.
Şimdiden teşekkür ederim.

 

[muygun]

Merhaba;
Eki deneyin. (Tabi bu gibi bir işlem makro ile çözümlenir)
İyi çalışmalar.

 

[muratgunay48]

Merhaba;
Eki deneyin. (Tabi bu gibi bir işlem makro ile çözümlenir)
İyi çalışmalar.

Hocam teşekkür ederim.

 

[muratgunay48]

Merhaba;
Eki deneyin. (Tabi bu gibi bir işlem makro ile çözümlenir)
İyi çalışmalar.

Hocam ben yanlış anlattıysam özür dilerim. C'nin herhangi bir satırında işlem yapınca sadece yan hücre değil. Mesela D5'ten D12'ye komple silinecek.

 

[muygun]

Kodları aşağıdaki şekilde değiştirerek deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
sat = Target.Row
süt = Target.Column

If Cells(sat, süt) <> "" Then ' C sütununda ilgili aralıkta işlem varsa
Range("c5:g12").ClearContents
Cells(sat, süt) = "x"
End If

Application.EnableEvents = True
End Sub

İyi çalışmalar.

 

[muratgunay48]

Kodları aşağıdaki şekilde değiştirerek deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
sat = Target.Row
süt = Target.Column

If Cells(sat, süt) <> "" Then ' C sütununda ilgili aralıkta işlem varsa
Range("c5:g12").ClearContents
Cells(sat, süt) = "x"
End If

Application.EnableEvents = True
End Sub

İyi çalışmalar.

Teşekkür ederim hocam.