Hücre değerini açıklamada göstermek

[cimbom05]

İyi günler,
Excelde kullandığımız tablolarda bazzı durumlarda hücre içerisinde uzun bir yazı bulunuyor. Tablonun formatından dolayı bu hücre için Hücre biçimlendir / "uyacak şekilde daralt" seçeneği ile tüm bilgiyi hücre içerisinde göstermesini sağlıyoruz. Bu durumlarda hücre içerisindeki yazı o kadar küçüldüğü için okunamayacak duruma geliyor. Hücre içerisindeki bilgilerin Açıklama kutusunda gösterilmesi mümkün müdür?
Eğer hücrede formül varsa ve bu formül bir değer gösteriyor ise bu değerin açıklama kutusunda görüntülenmesini sağlayabilirmiyiz Hücrede değişiklik olduğunda bu işi yapan makrolar mevcut ancak o makrolar sadece değişiklik olduğunda bu bilgileri gösteriyor.
Benim istediğim hücre doldurulduğunda içerisindeki bilginin açıklama penceresinde gösterilmesi. Ayrıca bu işlem A1:F20 aralığındaki hücrelerde kullanılacak. Herkese çok teşekkür ederim.

 

[uzmanamele]

merhaba

bu işinizi görür mü

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Range("A1").Comment.Delete
Range("A1").AddComment.Text Text:=[a1].Text
End Sub

veya

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Comment.Delete
Range("A1").AddComment.Text Text:=[a1].Text
End Sub

 

[cimbom05]

Teşekkürler uzmanamele
Vermiş olduğunuz kod değer içeren A1 hücresi için iş görüyor. Ancak bu işlem,
1- A1:F20 aralığında kullanılacak
2- Daha önemlisi ise örneğin A1 hücresinde =c4 diye bir formül var ve bu formül karşılığında A1 hücresine "cimbom05" gibi bir değer geliyor. Ancak bu kod ile açıklama kutusunda "0" görünüyor. Yani hücre içerisinde formül bulunduğunda formül sonucu oluşan değerin açıklama kutusunda görünmesini istiyoruz. Yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[cimbom05]

Teşekkürler, emeğinize sağlık sayın üstad. Mükemmel.