aynı sayfada 2 hücreyi birbirine eşitleme

[Crazy Drake]

aynı sayfada bulunan a1 hücresindeki veriyi değiştirdiğimde b1e kopyalasın,
b1deki veriyi değiştirdiğimde a1e kopyalasın yani birbirine eşit olsun birine ne girersem öbürünede aynısını girsin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("b1") = Range("a1")
Range("a1") = Range("b1")
End Sub

bu kodla a1i değiştirdiğimde b1 değişiyor ancak b1i değiştiremiyorum

 

[explain]

aynı kodu 2 hücrede de denedin mi?

 

[Crazy Drake]

ewet b1i değiştiremiyorum değiştirince tekrar a1deki değieri alıyor

 

[Skorpiyon]

Sayın Crazy_Drake,

Aşağıdaki kodları bir deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = [A2].Address Then
[B1] = [A1]
[A1].Select
GoTo 10
End If

If ActiveCell.Address = [B2].Address Then
[A1] = [B1]
[B1].Select
End If
10
End Sub

A1 ve B1 'e değer girip ENTER'e basmalısınız ki, alt satıra geçildiğinde işlem yapabilsin.

 

[Crazy Drake]

a2 ve b2 seçilmiyor bu seferde

 

[Skorpiyon]

Koddaki [A1].Select ve [B1].Select'i kaldırarak bir deneyin.
Ama A1'den veya B1'den sonra Enter'e basmaz iseniz yine işlem yapmayacaktır.