not ekleme

[sinful]

Arkadaşlar farzedelim A1 den A10 a kadar hücrelerimiz dolu ve hemen yanında B1 den B10 a olan hücreleri B1 A1 in, B2 A2 nin , ..... olacak şeklinde B hücrelerini A hücrelerine not olarak ekleme şansımız varmıdır.Tek tek yazmak yerine kısa bir yol varmıdır diye soruyorum.Yardım lütfen.

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz.

Sub Aciklama()
Range("A1:A10").Select
Selection.ClearComments
For i = 1 To 10
    Range("A" & i).AddComment
    Range("A" & i).Comment.Visible = False
    Range("A" & i).Comment.Text Text:=Chr(10) & Cells(i, "B").Value & Chr(10)
Next
End Sub

 

[muhammed yıldız]

Merhabalar;

bu kod yazma konusunda hiç bir bilgim yok.. 100'e yakın satıra aynı notu eklemek istiyorum. kod yazma haricinde başka bir kısa yolu var mıdır?