Soru Hücreye x değeri girildiğinde (x/a)*b şeklinde gözükmesi.

[fatihhakkss]

Merhaba iyi forumlar. Benim istediğim şey örneğin bir hücreye 5 değerini girdiğimde bu değer üzerinde belli bir işlem yapılıp hücrede o işlemin sonucunun, örneğin [(5/20)*100] 25 gözükmesi. Bunu hangi formül ile yapabilirim? Cevaplayabilirseniz sevinirim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki formülü herhangi bir hücreye kopyalayın.

=(A1/20)*100

A1 hücresine 5 yazın.

 

[ÖmerFaruk]

Eğer işlemi aynı hücrede yapmak istiyorsanız, Sayfanızın Kod penceresinde (sayfa isminin üzeirne gelip KOD görüntüle diyebilrisiniz) aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = 0
    Target = Target.Value / 20 * 100
    Application.EnableEvents = 1
End Sub

Ben A sütunundaki her hücre için bunu yaptım.
Değiştirmek için sadece aşağıdaki satırda Range("A:A") kısmını değiştirmeniz yeterli olacaktır.
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

Yapmak istedğiniz işlem farklı ise aşağıdaki satırda gereki düzenlemeyi yapmalısınız.
Target = Target.Value / 20 * 100