ekleme çıkarma konusunda yardım lütfen

[speeddxxl]

arkadaşlar sayfa 1 a1 hücresine sayı girdiğimde sayfa2 a1 hücresine yazsın ve sayfa1 a1 hücresine tekrar sayı girdiğimde sayfa2 a1 hücresindeki değerin üzerine toplasın.
sayfa 1 b1 hücresine sayı girdiğimde sayfa2 b1 hücresine yazsın ve sayfa1 b1 hücresine tekrar sayı girdiğimde sayfa2 b1 hücresindeki değerden çıkarsın

 

[conari]

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 1 Then
If Target.Value <> "" Then
Sayfa2.Range("a" & Target.Row) = Sayfa2.Range("a" & Target.Row) + Target.Value
End If
End If
If ActiveCell.Column = 2 Then
If Target.Value <> "" Then
Sayfa2.Range("b" & Target.Row) = Sayfa2.Range("b" & Target.Row) - Target.Value
End If
End If
End Sub


ilgili sayfan&#305;n kod blo&#287;una yap&#305;&#351;t&#305;r&#305;n&#305;z.

 

[speeddxxl]

te&#351;ekk&#252;r ederim sayg&#305;lar&#305;mla

 

[speeddxxl]

&#231;ok te&#351;ekjk&#252;r ler denedim &#231;al&#305;&#351;&#305;yor