• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

irfancantr

Altın Üye
Katılım
18 Haziran 2007
Mesajlar
625
Excel Vers. ve Dili
Excel 365 - İmngilizce
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.
 

Ekli dosyalar

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...
 
Son düzenleme:
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....
 

Ekli dosyalar

1.Mesajınızdaki dosyaya göre bir çözüm ürettim.
Kod:
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
 
Geri
Üst