Hücreye girilen değerden başka bir hücredeki değeri çıkarma

[babelfish]

Merhaba arkadaşlar,

Şimdi elimizde boş bir tablo var. Ben bu tabloya her hangi değerler girdikten sonra bu hücrelerden başka bir hücrede bulunan sabit sayının çıkmasını istiyorum. Yani istediğim şey aslında özel bir sayı biçimi oluşturmaya benziyor; ama türetemedim.

A1:A10 hücreleri arası tamamen boş.
C1:2,13

A1:A10 arasında her hangi bir değer girdiğim zaman yazdığım hücrede değer 2,13 eksik görünecek.

İyi akşamlar.

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False

If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub

If Target.Value = "" Or Target.Value = 0 Then
Else

sonuc = Target.Value - Range("C1")
Target.Value = sonuc
End If

Application.EnableEvents = True
End Sub

. . .

 

[babelfish]

Bir sonuç vermedi.

 

[Emir Hüseyin Çoban]

. . .

Doğru uyguladığınızdan emin misiniz ?
Dosya ve sonuçlarının ekran görüntüsü ektedir.

. . .

 

[babelfish]

Teşekkür ederim Hüseyin Bey. Yardımınızla çözdüm.