Hücreye Veri Grildiğinde veya Silindiğinde Kodun Çalışmasını Sağlamak

[betoncu]

Aşağıdaki kod sayesinde,
A1 hücresi doluysa B1 hücresine A1 hücresinin değerini yazdırabiliyorum. (A1 hücresi boşsa B1 hücresi de boş oluyor.)


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Range("A1").Value = "" Then
Range("B1").Value = Range("A1").Value
Else
Range("B1").Value = ""
End If
End Sub


Yukarıdaki kodlar uygulandığında, herhangi bir hücrede işlem yapılınca bu kod devreye giriyor.

Sadece A1 hücresinde işlem yapılınca (A1 hücresine veri girilince veya A1 hücresindeki veri silinince) B1 hücresine A1 hücresinin değerini yazdırabilirmiyiz?
YAardımcı dosya ektedir.

 

[asi_kral]

Merhaba
Kodu bununla değiştirir misiniz_?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("A1")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Range("B1") = Target
Application.EnableEvents = True
End Sub

 

[Huseyinkis]

Kodu ekteki gibi yapıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Not Range("A1").Value = "" Then
Range("B1").Value = Range("A1").Value
Else
Range("B1").Value = ""
End If
End Sub

 

[betoncu]

Yardımlarınız için sizlere ayrı ayrı teşekkür ederim.

 

[asi_kral]

Yardımlarınız için sizlere ayrı ayrı teşekkür ederim.

Kolay Gelsin.