Hücreye tıklayınca açıklama kutusu görünsün

[seddur]

Merhabalar.Ekli dosyadan anlaşılacağı üzere sayfadaki saat yazan hücrelere tıkladığımda açıklama kutusu geliyor ancak içine yazı yazmak isteyince kayboluyor.Acaba bunu nasıl düzeltebiliriz.Benim yazdığım kod Worksheet selection olayında.
İkinci yardım istediğim konu ise hücrelerdeki açıklamada yazılı veriler(Hasta isimleri) commandbutton'daki tarihe göre commandbuttona tıkladığımda listview'de saat ve Hasta adı olarak listelensin.
Yardımlarınız için şimdiden Teşekkür ederim.

 

[sward175]

Merhabalar,
Hücrede ters tıklayın ve Açıklamayı Gizle / Göster komutunu seçin.
Kolay gelsin.

 

[seddur]

Makro ile yapılamaz mı? Daha pratik oluyor. Aşağıdaki kodu kullanınca pencere açılıyor ama iş bilgi kaydetmeye gelince pencere kapanıyor.
Sub makro1()
On Error Resume Next
ActiveCell.AddComment

 

[Korhan Ayhan]

Comment görünür olduktan sonra edit özelliğini aktif etmek gerekir.

Sub Edit_Comment()
    If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment
    SendKeys "+{F2}", True
End Sub