her satıra comment ekleme

[muhammed yıldız]

merhabalar;

elimdeki dosyada 100 den fazla satır var. ve her satıra aynı notu eklemek istiyorum. tek tek yapmak yerine kolay bir yolu var mıdır? Teşekkürler

 

[hamitcan]

Sub AciklamaEkle()
For i = 1 To 100
    With ActiveSheet.Range("a" & i)
    .ClearComments
    .AddComment
    .Comment.Text "a"
    End With
Next
End Sub

 

[muhammed yıldız]

kod yazımını bilmiyorum. nasıl yapılacağını. başka bir yolu var mı?

 

[hamitcan]

1-Alt+F11 tuşlarına basın.
2-Insert menüsünden bir Module ekleyin.
3-Verdiğim kodu içine ekleyin.
4-F5 tuşuna basın.

 

[Merhum İdris SERDAR]

Comment içeren hücreyi seçip kopyalayın.

Bunun konulacağı yeri seçip, Edit>Paste Special >Comments seçeneğini işaretliyerek, yapıştırın.

.

 

[muhammed yıldız]

şimdiden teşekkür ediyorum. biraz uğraşmam gerekecek sanırım. işyerindeki bilgisayarım farklı serverlarda çalıştığından buradan tam manası ile yapamıyor. internete bağlandığım ekran farklı maalesef. kod olayı ilginç ve heyecanlı birşey olsa gerek. hangi linklerden kodlar hakkında öğretici bilgi edinebilirim?

 

[muhammed yıldız]

çok teşekkür ederim Yurttaş ve Hamitcan.. özel yapıştır ile kolayca oldu..