başka bir sayfadan açıklama içerisine veri aktarımı

[arifbirgen]

Değerli hocalarım
ekteki örnekte açıkladığım veri aktarımı olabilirmi.
Yardımcı olursanız memnun olurum.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub Makro2()
    Sheets("Sayfa2").Select
    ActiveCell.FormulaR1C1 = "arif birgen"
    Sheets("Sayfa1").Select
    Range("F8").Comment.Shape.Select True
    Range("F8").Comment.Text Text:="arif birgen"
    Sheets("Sayfa3").Select
    ActiveCell.FormulaR1C1 = "ali birgen"
    Sheets("Sayfa1").Select
    Range("F8").Comment.Shape.Select True
    Range("F8").Comment.Text Text:="arif birgen" & Chr(10) & "ali birgen"
    Range("A1").Select
End Sub

 

[hamitcan]

Sub ACIKLAMA()
ActiveCell.ClearComments
ActiveCell.AddComment Sayfa2.[f8] & Chr(10) & Sayfa3.[f8]
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
End Sub

şeklinde deneyin.

 

[arifbirgen]

Başka bir sayfadan açıklamaiçerisine veri aktarımı

Değerli hocam hamitcan
Öncelikle cevabına çok teşekkür ederim.Hocam esas yapmak istediğime
yardımcı olursan daha çok sevineceğim.13 tane sayfada F1....F30 a kadar
olan hücrelere girilen verileri SAYFA1 deki kendi hücrelerin açıklamalarında
gözükmesini istiyorum.İyi çalışmalar.

 

[hamitcan]

İstediğiniz gibi oldu galiba ama. Açıklamalar üst üste çıktığından pek kullanışlı olmadı.

Sub ekle()
For i = 1 To 30
    Sayfa1.Cells(i, 6).ClearComments
    Sayfa1.Cells(i, 6).AddComment Sayfa2.Name & ":" & Sayfa2.Cells(i, 6) & Chr(10) & _
                                    Sayfa3.Name & ":" & Sayfa3.Cells(i, 6) & Chr(10) & _
                                    Sayfa4.Name & ":" & Sayfa4.Cells(i, 6) & Chr(10) & _
                                    Sayfa5.Name & ":" & Sayfa5.Cells(i, 6) & Chr(10) & _
                                    Sayfa6.Name & ":" & Sayfa6.Cells(i, 6) & Chr(10) & _
                                    Sayfa7.Name & ":" & Sayfa7.Cells(i, 6) & Chr(10) & _
                                    Sayfa8.Name & ":" & Sayfa8.Cells(i, 6) & Chr(10) & _
                                    Sayfa9.Name & ":" & Sayfa9.Cells(i, 6) & Chr(10) & _
                                    Sayfa10.Name & ":" & Sayfa10.Cells(i, 6) & Chr(10) & _
                                    Sayfa11.Name & ":" & Sayfa11.Cells(i, 6) & Chr(10) & _
                                    Sayfa12.Name & ":" & Sayfa12.Cells(i, 6) & Chr(10) & _
                                    Sayfa13.Name & ":" & Sayfa13.Cells(i, 6) & Chr(10)
Sayfa1.Cells(i, 6).Comment.Shape.TextFrame.AutoSize = True
Next i
End Sub

 

[arifbirgen]

Başka bir sayfadan açıklamaiçerisine veri aktarımı

Hocam hamitcan
Size çok çok teşekkür eder başarılar dilerim.