Bir hücreye değer girdiğimde aynı hücreye katını yazdırma

[zeugma06]

yazdırmaBir hücreye değer girdim örneğin 8 ancak bu değerin 0,15 katını yani 1,2 değerini aynı hücreye otomatik yazmasını istiyorum bu mümkün müdür?

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("a1:a20")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = Target.Value * 0.15
Application.EnableEvents = True
End Sub

 

[zeugma06]

Teşekkürler...