etkin hücre formülünü başka yerde görme

[Namık Kemal]

Merhabalar,
A2 hücresindeyken bu hücreye girilmiş varsaydığım bir formül sonucunu hücre açıklamasında yada başka bir hücrede görebilir miyim?
Excel'de böyle bir olanak var mıdır?

 

[Recep İpek]

Anladığım kadarıyla makro ile yapılmış çözümü ekte bulabilirsiniz.
Hücrelerde gezinirken en altaki durum çubuğuna bakınız.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz. İmleci, içinde değer olan hücrelerde gezdiriniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveCell.Validation
.Delete
.Add Type:=xlValidateInputOnly
.InputMessage = ActiveCell.Value
End With
End Sub

 

[Namık Kemal]

İlginize tşk.ler Sn.ripek
İstediğim tam olarak öyle değil. Örneğin ben A2 hücresine =TOPLA(sAYFA1!A1:B10) formülünü girdim. Formül sonucu 6 oldu. Ben A2 hücresine rakam yazdığım sırada 6 değerini durum çubuğunda yada hücre açıklamasında yada ona yakın başka bir hücrede görmek istiyorum. Çünkü o değere bakarak rakam gireceğim.

 

[Namık Kemal]

Sn. Seyit Tiken
Kodu nasıl kullanacağımı anlayamadım. Yardımcı olursanız sevinirim

 

[harziyan]

Kodu olduğu gibi alıp isteğiniz hangi sayfa için geçerli ise o sayfanın kod bölümüne yapıştırın. ben baktım, hücrenin açıklamasında hücre içindeki değer var.

 

[Seyit Tiken]

Ekli dosyayı inceleyin. İmleci, içinde veri olan hücrelerde gezdirip sonucu gözlemleyiniz.

 

[Namık Kemal]

Arkadaşlar,
İsteğimi tam olarak anlatamdım herhalde.
Ek'te gönderdiğim dosyada anlatmaya çalıştım.
İnceleyip yardımcı olursanız sevinirim.

 

[Namık Kemal]

Verilen cevaplar sorumumu çözmedi

Bu yüzden bir kez daha farklı bir örnek dosya hazırlayarak ekliyorum.
İlginize teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Uygulanan kod;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [C4:C9]) Is Nothing Then Exit Sub
    [A1].Formula = "=INDEX(Sayfa2!$A$1:$D$4,MATCH(" & Cells(Target.Row, 1).Address & ",Sayfa2!$A$1:$A$4,0),MATCH(" & Cells(Target.Row, 2).Address & ",Sayfa2!$A$1:$D$1,0))"
End Sub

 

[Namık Kemal]

Teşekkür

İlginize çok teşekkür ederim Sn.Cost control