Hücredeki açıklamayı yan hücreye aktarmak.

[happynightmare]

Herkese Merhaba

Bi excel dosyasında yaklaşık 1000 satır var ve her satırda comment ler var ve comment içeriklerini yan hücreye kopyalamam gerekiyor. Ama herhangi bir kod bulamadım. Sadece aşağıdaki link var ama bu da word e aktarıyor ve benim işime maalesef yaramıyor..

http://www.contextures.com/xlcomments03.html





Yardımlarınız için teşekkürler.

 

[Levent Menteşoğlu]

Verileriniz hangi sütunda ve hangi satırdan başlıyor.

 

[Korhan Ayhan]

Selamlar,

Verilerinizin A1 hücresinden başladığını varsayarak örnek bir dosya hazırladım umarım işinize yarar.

 

[happynightmare]

çok teşekkür ederim ancak benim satırlarımın bazılarının içinde açıklama yok.. ben dosyayı gönderiyorum.. teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:1d418f1e8d]Sub aktar()
Application.ScreenUpdating = False
On Error Resume Next
For sut = 2 To 12 Step 2
For sat = 3 To Cells(65536, sut).End(3).Row
Cells(sat, sut + 1) = Cells(sat, sut).Comment.Text
Next
Next
End Sub
[/vb:1:1d418f1e8d]

 

[happynightmare]

noktadan iki sonraki karakteri başka bir sutuna taşımam gerekecek.. bunun bir formulü fvar mı?

biliyorum çok oldum ama kusura bakmayın