ActiveCell' e Ait Hücre Adresini Okumak

[esavas]

Üstadlar merhaba;

ActiveCell ile aktif olan hücrenin adresini okutmak istiyorum. Bu bilgiyide şu şekilde kullanacağım.

Örneğin aktif hücre A5 iken buraya "1" sayısı girildiğinde B5, C5, D5, E5 hücrelerine de kod ile "0" atanmasını sağlamak istiyorum. Aynı şekilde B5 için "1" sayısı girildiğinde ise diğerlerine (A5,C5, D5, E5) de "0" sayısının yine kod ile girilmesini istiyorum. Bu durum diğerleri için de geçerli olmalı. Kısaca hangi hücreye 1 girersem diğerlerine (aynı satırdaki) 0 girilsin.

Bu çalışmayı yapamadım, yardım lütfen.

:kafa:

 

[alpi]

aşağıdaki linki inceleyiniz

http://www.excel.web.tr/viewtopic.php?t=13084

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:b35e2edcb9]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a5:e5]) Is Nothing Then Exit Sub
Application.EnableEvents = False
For a = 1 To 5
If Cells(5, a).Column <> Target.Column Then Cells(5, a) = 0
Next
Application.EnableEvents = True
End Sub
[/vb:1:b35e2edcb9]