hücreye değişken açıklama ekleme

[sdegirmenci]

Merhaba;
Ekteki dosyamda örnek olarak açıklmamaya çalıştığımı gibi hücre üzerine geldiğimde açıklamanın süreki değişkenlik gösteren başka bir sütundaki bilgileri göstermesini istiyorum.Bu konuda forumda araştırma yaptım ama uygun olanı bulamadım. Yardımcı olabilirseniz sevinirim. Saygılarımla

 

[hamitcan]

Aşağıdaki linki inceleyin.
http://www.excel.web.tr/f50/acyklama-kutusunun-icine-resim-ekleme-t88260.html

 

[sdegirmenci]

Hamitcan Hocam merhaba;
Önce ilginize çok teşekkür ederim, Linki inceledim ama bana göre çok karışık anlayamadım.

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D17:E23]) Is Nothing Then Exit Sub
    With [j1]
    .ClearComments
    .AddComment
    .Comment.Visible = True
    .Comment.Shape.Height = 150
    For i = 17 To 23
        u = 15 - Len(Cells(i, 4))
        a = a & Cells(i, 4) & WorksheetFunction.Rept(".", u) & Cells(i, 5) & Chr(10)
    Next
   .Comment.Text Text:=a
  End With
End Sub

 

[sdegirmenci]

Hocam Süpersiniz, çok teşekkür ederim.
değişiklik olduğunda açıklamayı otomatik olarak açmakta, bunun yerine üzerine geldiğinde açılsa olabilirmi?

 

[hamitcan]

Private Sub Worksheet_selectionChange(ByVal Target As Range)
  With [J1]
     If Not Intersect(Target, [J1]) Is Nothing Then
          .ClearComments
          .AddComment
          .Comment.Visible = True
          .Comment.Shape.Height = 150
                  For i = 17 To 23
                      u = 15 - Len(Cells(i, 4))
                      a = a & Cells(i, 4) & WorksheetFunction.Rept(".", u) & Cells(i, 5) & Chr(10)
                  Next
         .Comment.Text Text:=a
    Else
         .ClearComments
    End If
  End With
End Sub

 

[sdegirmenci]

Hamitcan Hocam,
Çok teşekkür ederim. tam istediğim gibi oldu. İşleriniz kolay gelsin.