Güncel değeri açıklama içinde göstermek

[irfancantr]

Hepimizin geçmiş kurban bayramı mübarek olsun,

Sayın hocalarım sizlerden kendimin beceremeyeceği bir çözüm talep ediyorum,

ekteki dosyada daha ayarıntılı bahsettim ama burada da kısaca anlatayım;

I2 hücresindeki değeri sayfa2 de bulup alt değerleri açıklama içerisinde göstermek mümkün müdür acaba?

İlginiz ve alakanız için teşekkür ederim.

 

[irfancantr]

Biraz sıkıntılı bir durum herhalde

Ama çok acil ihtiyacım olmasaydı bu kadar sabırsızca davranmazdım, hoşgörünüze sığınıyorum...

 

[irfancantr]

Farklı bir veri alımı

İlk mesajımda ki isteğim biraz sıkıntılı olduğundan kendimce daha mümkün olacağını düşündüğüm haliyle düzenledim,

Verinin alınacağı yer dahada basitleşti,

İlginiz için teşekkürler....

 

[hamitcan]

1.Mesajınızdaki dosyaya göre bir çözüm ürettim.

Sub AciklamayaHucreBilgisiEkle()
    Application.ScreenUpdating = False
        Sayfa2.Select
        x = Array("i2", "i3", "i4", "i7", "i8", "i9")
   For t = 0 To 5
        Z = ""
        Cells.Find(Sayfa1.Range(x(t)).Text).Activate
        Set tbl = ActiveCell.CurrentRegion
        a = tbl.Offset(2, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Address
        
        For Each hcr In Sayfa2.Range(a)
            i = i + 1
            Z = Z & " " & hcr.Text
            If i = 3 Then Z = Z & Chr(10): i = 0
        Next
         Sayfa1.Select
         With Range(x(t))
            .ClearComments
            .AddComment
            .Comment.Text Text:=Z
            .Comment.Shape.Height = 200
            .Comment.Shape.Width = 150
            .Comment.Visible = False
        End With
        Sayfa2.Select
    Next
        Sayfa1.Select
    Application.ScreenUpdating = True
End Sub

 

[irfancantr]

1.Mesajınızdaki dosyaya göre bir çözüm ürettim.

Sayın hamitcan hocam ilginize çok teşekkür ederim ellerinize sağlık...