A1'de formül olan değeri, B1'e rakamsal değer olarak nasıl atabiliriz?

[gurkann]

merhaba arkadaşlar, başlık açıklayıcı olmadıysa kusura bakmayın. Bir de şöyle belirteyim;

a1 hücresi =C1*D1 şeklinde bir formül. (sonucu da 10 olsun.)
b2 hücresinde 10 yazmasını istiyorum. (değer olarak yazmalı)

a1 e bakarsanız sonuç değişken olduğu için b2 değeri de bir yandan güncel kalmalı.

bu mümkün müdür?
sanırım formülle bu mümkün değil, sonuçta döngüsel bir enayilik var işin içinde.
makro mu yazmak gerek??

 

[Korhan Ayhan]

Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayınız. C1 yada D1 hücresine değer girdiğinizde otomatik olarak sonucu B2 hücresinede değer olarak yazacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C1,D1]) Is Nothing Then Exit Sub
    If Target <> "" Then [B2] = [A1]
End Sub

 

[gurkann]

selam sayfa sekmesinden kod görüntüleye tıklayıp yazdığınız kodu paste yaptım ama bir şey değişmedi. neden etkilemedi acaba?

 

[Korhan Ayhan]

Selamlar,

Sanırım mesajımı dikkatli okumadınız. Kodu bahsettiğiniz kısıma uyguladıktan sonra C1 yada D1 hücrelerindeki verileri değiştirip sonucu gözlemleyebilirsiniz. Bu işlemi daha farklı şekillerde de denetleyebiliriz. Siz hangi durumda B2 hücresine değerin yazılmasını istediğinizi belirtirseniz ona göre yardımcı olmaya çalışırız.

Not: Belirtmediğiniz için bende C1 yada D1 hücrelerine veri girdikçe işlemin olmasını istediğinizi düşünerek cevaplamıştım.