Hücreye değer girildikten sonra o değeri 4 e bölüp 3 ile çarpması

[number469]

Merhaba arkadaşlar, hücreye değer girildikten sonra o hücredeki değeri 4 e bölüp 3 ile çarpmasını nasıl yapabilirim? Formül yazılacak ise ne yazmalı? örneğin I3 hücresine 1200 yazılınca 4 e bölüp 3 ile çarptı mı 900 sonucu yazmalı yine o I3 hücresinde

 

[Mdemir63]

Selamlar
Formumuza hoş geldiniz.
Aşağıdaki kodu buton içine yazarak deneyebilirsiniz.

Private Sub CommandButton1_Click()
  Range("I3") = Range("I3") / 4 * 3
End Sub

 

[Mustafa MUTLU]

Buda Buton suz örnek
Sayfanın Kod Kısmına yapıştır.
Deneyiniz.
I sütunun 2 den 300 e kadar geçerli.
Değiştirebileceğiniz kısım renklendirilmiştir.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("I2:I300")) Is Nothing Then
Target = Target / 4 * 3
End If
Application.EnableEvents = True
End Sub

 

[number469]

Selamlar
Formumuza hoş geldiniz.
Aşağıdaki kodu buton içine yazarak deneyebilirsiniz.

Private Sub CommandButton1_Click()
  Range("I3") = Range("I3") / 4 * 3
End Sub

Teşekkür ederim hocam hoşbuldum. buton olarak değil de anlık değişmeliydi o yüzden 2. cevap uygun oldu.

Buda Buton suz örnek
Sayfanın Kod Kısmına yapıştır.
Deneyiniz.
I sütunun 2 den 300 e kadar geçerli.
Değiştirebileceğiniz kısım renklendirilmiştir.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("I2:I300")) Is Nothing Then
Target = Target / 4 * 3
End If
Application.EnableEvents = True
End Sub

Size de teşekkür ederim hocam bunu kullandım I3 yazarak o alana kod nereye yazılıyor diye araştırdım bi önce makro olaylarını farkettim anca yaptım saolun