Macro İle Comment İÇerİĞİnİ Doldurmak

[sefer seferoğlu]

Merhaba Arkadaşlar

Benim yapmak istediğim
seçtiğim alandaki hücrelerde yer alan bilgileri
istediğim bir comment'in içine alt alta yazdırmak
şu macroyu denedim ;
Sub Macro1()

Dim D As String
Windows("örnek.xls").Activate
Range("a1").Select
Selection.ClearComments
Range("a1").AddComment
Range("a1").Comment.Visible = True
For I = 4 To 20
Range("f" & I).Select
If ActiveCell.Value = "" Then GoTo 10
D = ActiveCell.FormulaR1C1

Range("a1").Comment.Shape.Select True
Range("a1").Comment.Text Text:="" & Chr(10) & D
Next
10
End Sub

ancak sadece en son hücredeki değeri
commente ilave ediyor.
Örnek dosyada yer alan butona tıklarsanız sonucu görürsünüz.Benim yapmak istediğimse elle doldurduğum diğer commentlerde ki sonuca ulaşmak. Yardımlarınız için teşekkürler.

 

[Kemal Demir]

iyi akşamLar sefer Bey,

Ek'te size fikir olsun diye kucuk bir ornek yolluyorum ınceleyınız.Umarım İşinizi görür.

Arkadaslar Üzgünüm yanlıs dosya yollamısım.

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla örnek bir dosya hazırladım. İncelermisiniz. Umarım faydası olur.

 

[sefer seferoğlu]

Çok Teşekkürler

Sayın Rakkas her ne kadar dosyanızı alamamış olsak da ilginiz için teşekkürler.
Sayın Cost Control çözüm tam istediğim gibi olmuş elinize sağlık çok teşekkür ederim.