Veri Girilen Hücrede Sonucu Görme

[isteobenim]

Merhaba,

Veri girilen hücrede sonucu görebileceğimiz bir kod veya fonksiyon varmıdır acaba?Örneğin A1 hücresine girilen veriyi yine A1 hücresinde 0,60 a bölecek...A1 e 125 değeri girdiğimde 125/0,60=208,3 sonucunu A1 de göreceğim.Benzer örnekleri inceledim ama tam istediğimi bulmadım,

Teşekkürler,

 

[Necdet]

Merhaba,

Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyayalıp deneyiniz. Sadece A ve B sütununda çalışır. Duruma göre siz sınırlayabilir ya da genişletebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target = Target.Value / 0.6
    Application.EnableEvents = True
End If
Son:
End Sub

 

[isteobenim]

Necdet Bey,

Cevabınız ve çözümünüz için için teşekkür ederim,
Kod, sayfadaki bütün hücrelerde çalışıyor.Belirleyeceğimiz tek bir hücrede çalışmasını sağlayabilmek mümkünmüdür?

 

[Korhan Ayhan]

Merhaba,

Necdet beyin önerdiği kodun ikinci satırına aşağıdaki kodu uygulayın.

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

Bu şekilde işlem sadece A1 hücresinde olacaktır.

 

[isteobenim]

Merhabalar,

Necdet Bey, Korhan Bey,

Çok teşekkür ederim.

İyi Çalışmalar,