Açıklamalar açılsın..!

[sensizsoldum]

Merhaba Günaydın hayırlı sabahlar,
Arkadaşlar C3:C aralığında hücrelerde not olarak açıklamalar bulunmaktadır. Açıklamaları okumak için maus ile üzerine gelmem gerekiyor. Bu açıklamaları okumak için yön tuşlarını da kullanmak istiyorum. Yön tuşları ile hücre üzerine geldiğimde açıklama var ise otomatik açılsın istiyorum.
Bu konuda yardımcı olursanız çok memnun olurum.
İyi çalışmalar dilerim.

 

[xternet]

Açıklamalarınızı "Veri/Doğrulama" menüsünde girdi iletisi olarak yazarsanız hücrye tıklandığında otomatik görünür. (ayarlar sekmesinde "herhangi ibr değer" seçili olmalı)

İyi çalışmalar.

 

[snx111]

klavyeden diyor ama !

 

[xternet]

Yukarıdaki işlemi uyguladığınız hücre üzerine ister klavyeden ister fare ile gelin değişmez.
Yalnız burada açıklamanın görünmesi için hücrenin seçilmesi gerekiyor. Yani farenin üzerine gelmesi yeterli değil.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

 

[sensizsoldum]

Merhaba
Günaydınlar, sayın xternet, ve sayın snx111 ilgi ve alakalınızdan dolayı teşekkür ederim. Sayın xternet arkadaşımızın dediği yöntemi adım adım uyguladım lakin sonuca gidemedim. Ya yine bir yerlerde hata yaptım. Ya da istediğim gibi olmadı bilemiyorum. Sayın Snx111 arkadaşımızın dediği gibi ben klavyeden yön tuşları ile seçim yapacağım. Ona göre bir ayar ya da makro gerekiyor.
İyi çalışmalar dilerim.

 

[sensizsoldum]

Merhaba Korhan Bey,
Çok teşekkür ederim istediğim bu ama bunun için nerdeyse bir destan yazılmış, kodların arasına alacağım ben bu kodu. Bunu daha kısa minimum tek parça halde yazılması mümkün değil mi?

 

[snx111]

Korhan beyin destanını fıkra yaptım buyrun bir deneyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Veri
    
    On Error Resume Next
    
    For Each Veri In Cells.SpecialCells(xlCellTypeComments)
        Veri.Comment.Visible = False
    Next
        Set Veri = ActiveCell.Comment
    If Not Veri Is Nothing Then Veri.Visible = True
End Sub

 

[sensizsoldum]

Merhaba,
Değerli hocalarım arkadaşlarım, hepinize ilgi ve alakanızdan dolayı sonsuz teşekkür ederim. Son olarak Sinan Bey’in verdiği kodu kullanıyorum. Kısa ve şartsız olduğundan dolayı.
Her şey için herkese tekrardan ayır ayır teşekkür ederim. İyi çalışmalar dilerim.
Saygılarımla.

 

[Korhan Ayhan]

Merhaba,

İfadelerinizde bir karışıklık var. Siz sorunuzda yön tuşları ile hücrelerde gezindiğimde açıklamalar görünsün ifadesini kullanmıştınız. Size son önerilen kod ile mouse ile bir hücreyi tıkladığınızda da açıklamalar görünür. Tabiki bu şekilde işinize yarıyorsa istediğinizi kullanabilirsiniz.

 

[snx111]

İkisinde de hem fare hem klavye gayet güzel Çalışıyor ; korhan bey sizden çok şey öğreniyoruz.

 

[nane]

Açıklamalarınızı "Veri/Doğrulama" menüsünde girdi iletisi olarak yazarsanız hücrye tıklandığında otomatik görünür. (ayarlar sekmesinde "herhangi ibr değer" seçili olmalı)

Xternet ellerinize sağlık
Benimde çok işime yarayacak
Teşekkürler
Yb®

 

[sensizsoldum]

Merhaba aşağıda ki kodu modüle ekleyeceğim ama kod çalışmıyor. Çalışması gereken sayfanın kod kısmına eklediğimde sorun yok. Sayfa6 sayfa ismi ise ÇALIŞMA
Nasıl bir değişiklik yapmam gerekiyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Veri

On Error Resume Next

For Each Veri In Cells.SpecialCells(xlCellTypeComments)
Veri.Comment.Visible = False
Next
Set Veri = ActiveCell.Comment
If Not Veri Is Nothing Then Veri.Visible = True
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyiniz.

Sub AÇIKLAMA_GÖSTER()
    Dim Veri
    
    On Error Resume Next
    
    Sheets("ÇALIŞMA").Select
    
    For Each Veri In Cells.SpecialCells(xlCellTypeComments)
        Veri.Comment.Visible = False
    Next
    
    Set Veri = ActiveCell.Comment
    If Not Veri Is Nothing Then Veri.Visible = True
End Sub

 

[sensizsoldum]

Merhaba
Değerli hocalarım arkadaşlarım aşağıdaki kodu 2 gündür birleştirmeye çalışıyorum. Biri şu konuyu lütfen çözebilirmi deli olacağım pc falan kıracağım sinirden. sizlerden çok rica ediyorum.





Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Rows.Count > 1 Then Exit Sub
If Intersect(Target, Range("c3:c65536")) Is Nothing Then Exit Sub
If ActiveCell.Value = Empty Then If Not ActiveCell.Comment Is Nothing Then ActiveCell.Comment.Delete: Exit Sub

Dim son, sonb As Long
son = Sayfa6.Cells(Rows.Count, 3).End(xlUp).Row
sonb = Sayfa8.Cells(Rows.Count, 3).End(xlUp).Row


Dim cll As Variant
Dim dizi As Range
x = ActiveCell
Set dizi = Sayfa8.Range("b3:b" & sonb)
If ActiveCell.Value = Empty Then Exit Sub
For Each cll In dizi
If Not cll Is Nothing Then
If cll = x Then
If Not ActiveCell.Comment Is Nothing Then
ActiveCell.Comment.Delete
End If
Com = Sayfa8.Cells(cll.Row, 3).Text
ActiveCell.AddComment Com: Exit Sub
ActiveCell.Comment.Visible = True
End If
End If
Next
If ActiveCell.Value = Empty Then If Not ActiveCell.Comment Is Nothing Then ActiveCell.Comment.Delete: Exit Sub
End Sub






Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Veri

On Error Resume Next

For Each Veri In Cells.SpecialCells(xlCellTypeComments)
Veri.Comment.Visible = False
Next
Set Veri = ActiveCell.Comment
If Not Veri Is Nothing Then Veri.Visible = True
End Sub