A sütununa girilen değeri B2 sütunundaki değerden çıramak

[suikastx]

Merhabalar,

A1 A1000 arasına girilen her değeri B2 de yazan değerden çıkarmak istiyorum.
yani b2 de diyelim 500 yazıyor, ben A1=10 yazdıgımda B2=490 A2=20 yazdığımda B2=470 olmasını istiyorum.

 

[çıtır]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A1000]) Is Nothing Then Exit Sub
[B2] = [B2] - Target
End Sub

 

[suikastx]

Eline sağlık çok güzel çalışıyor.

 

[çıtır]

Eline sağlık çok güzel çalışıyor.

Dönüş yaptığınız için teşekkür ederim.