Hücre Açıklamaları Hk.

[petsiye]

Merhaba,

Bildiğimiz üzere, hücrelere eklemiş olduğumuz açıklamalar, tercihimize göre, üzerine mause getirdiğimizde görüntüleniyor. Benim sorum şudur ; Mause ile hücre üzerine geldiğimizde görüntülenen açıklamanın konumunu belirleyebilirmiyiz acaba. Bu iş kod ile yapılabilir mi ? Kutools adlı eklenti ile sanırım bu mümkün ama eklenti her Pc de yüklü olmayabileceği için bu şekilde kalıcı bir çözüm olmuyor maalesef.

Yardım ve desteiğiniz için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Ben olsam forumdaki eski konuları bir karıştırırım. Belki bir şeyler çıkabilir.

Sorgu için arama sonuçları: comment

www.excel.web.tr

 

[petsiye]

Merhaba Korhan Bey,

Foruma yazmadan önce forumda aratıp cevabı bulamamıştım. Gönderdiğiniz linktede epey baktım ama yok maalesef. Acaba ben mi bulamadım buna benzer bir soru ?

Tekrar teşekkür ederim

 

[petsiye]

Sadece cevapsız 1 soru var benim sorum ile aynı soruyu soran

 

[Korhan Ayhan]

Hücre içi açıklamalar yerlerinde değil, sayfaya dağınık halde

Merhaba Ortak kullanıdığımız bir dosya var hücre açıklamları ekledim. Fakat dosyayı daha sonra açtığımda açıklamalar her biri çizgi ile hücresinden uzak yerlerde gösteriyordu. Taşıma ile halledebiliyorum ama çok açıklama var bu şekidle bunu kısayoldan halledebilir myim? bir hata oluşmuş gibi çünkü

www.excel.web.tr

 

[petsiye]

Yardımınız için Teşekkür ederim Korhan Bey,

Açıklamalardaki belirtilen ne varsa aynısını yaptım. Olmadı

 

[Korhan Ayhan]

Örnek dosya paylaşırsanız yardım almanız kolaylaşır.

 

[petsiye]

Merhaba Korhan Bey,

Örnek Linkte bulunmaktadır https://s6.dosya.tc/server/vrhotx/ORNEK.xlsx.html

ORNEK.xlsx dosyasını indir - download

ORNEK.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Korhan Ayhan]

Açıklamaların konumunu nereye almak istiyorsunuz?

 

[petsiye]

Merhaba Korhan Bey ,

Tablonun Üst Ortasına olabilir mesela

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Aciklama As Comment, Aciklama_Kutusu As Shape
    
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        
    If Not ActiveCell.Comment Is Nothing Then
        Set Aciklama = ActiveCell.Comment
        Set Aciklama_Kutusu = Aciklama.Shape
        Aciklama_Kutusu.Top = ActiveCell.Top
        Aciklama_Kutusu.Left = ((Application.Width / 2) - (Aciklama_Kutusu.Width / 2)) + (Application.Width / ActiveWindow.Zoom)
        Aciklama.Visible = True
    End If
End Sub

 

[petsiye]

Oldu vallahi Korhan Bey. Hay Allah razı olsun sizden.

İyi çalışmalar dilerim. Çok Teşekkür ederim..