Hücrede girilen rakama 2 ekleme

[sirkülasyon]

Üstadlarım
I2 hücresine hangi rakamı girersem iki fazlasını yazacak.
Yardımcı olabilir misiniz?

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I2")) Is Nothing Then Exit Sub
Application.EnableEvents = False

Target.Value = Target.Value + 2

Application.EnableEvents = True

End Sub

 

[sirkülasyon]

Süleyman Abi teşekkür ederim.
Sağolasın

 

[aylakvolkan]

Bunun hücre biçimlendir - isteğe uyarlanmış biçimi var mı acaba?
0,5 çıkartmak istiyorum ben de.