Hücredeki açıklamaları otomatik açma kapama

[bmutlu966]

Arkadaşlar selam,
Açıklama bulunan hücreye tıkladığımda açıklama açılsın, başka bir hücreye tıkladığımda açıklama kapansın istiyorum. Ekli dosyada birşeyler yaptım ancak hata alıyorum ve düzeltemedim.
Yardımlarınız için şimdiden teşekkürler.

 

[systran]

yanlış anlamadıysam açıklamanın yaptığı iş zaten tam olarak sizin istediğiniz şekilde çalışması.
hücreye açıklama ekleyin, sonra açıklamayı gizleyin. hücre üzerine gelince açıklama otomatik görünür, dışına çıkınca gizlenir.

 

[bmutlu966]

Tam anlatamamışım. Bunu biliyorum ama benim istediğim şu. Açıklama yazılmış hücreler var. Bu açıklamalara ilave açıklama girmem gerekiyor. Bu yüzden "Açıklamayı göster" komutu verip açıklamayı düzenleyip tekrar "Açıklamayı kapat" yapmak istemiyorum. Ben açıklama olan hücreye tıkladığımda açıklama görünür olsun. Düzenlememi yaptıktan sonra başka hücreye tıklayınca da açıklama gizlensin.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A15")) Is Nothing Then
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        Set Kontrol = Target.Comment
        If Not Kontrol Is Nothing Then
            Application.SendKeys "+{F2}"
        End If
    End If
End Sub

 

[bmutlu966]

Arkadaşlar gerek kalmadı kodları yazdım. Dosyada açıklamalar mevcut.

 

[bmutlu966]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A15")) Is Nothing Then
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        Set Kontrol = Target.Comment
        If Not Kontrol Is Nothing Then
            Application.SendKeys "+{F2}"
        End If
    End If
End Sub

Korhan hocam sizin kodlarınızı şimdi gördüm. gayet kısa ve etkili. Çok teşekkürler. Ben de kendimce birşeyler yapmaya çalıştım.