Excel sayıyı otamatik çıkarma + bölme

[kenanilipinar]

Merhaba arkadaşlar işim gereği bir kod lazım oldu ve nasıl yapılabilceğini bilmiyorum.
Örneğin ; A1 satırına 17.000 sayısını girdiğimde bunun otamatik olarak öncelikle 4275 çıkarmasını ardından 10'a bölmesini istiyorum 17.000 sayısı önemli değil fakat 4275 ve 10 sayıları benim için önemli bunu nasıl yapabilirim ?

 

[çıtır]

İşlem bir başka hücrede görüleçek ise Örn:B1 hücresi kopyalayınız.A1 hücresinde olaçak ise makro ile olabilir.

=(A1-4275)/10

 

[Merhum İdris SERDAR]

Sayfa koduna;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = ([A1] - 4275) / 10
End Sub

yazabilirsiniz.

.

 

[AdemCan]

Merhaba,
Ustalarımızın müsaadesi ile bende bir alternatif örnek paylaşayım.

Sub ornek()
a = Range("a1").Value
c = 4275
d = 10
If IsNumeric(a) = True Then
b = (a - c) / d
Range("a2").Value = b
Else
MsgBox "İşlem İçin Sayısal Değer Giriniz", vbInformation, "Bilgi"
End If
End Sub

 

[kenanilipinar]

Hepinize çok teşekkür ederim yardımcı olduğunuz için.