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

Katılım
23 Eylül 2004
Mesajlar
19
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Verileriniz hangi sütunda ve hangi satırdan başlıyor.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Verilerinizin A1 hücresinden başladığını varsayarak örnek bir dosya hazırladım umarım işinize yarar.
 
Katılım
23 Eylül 2004
Mesajlar
19
ç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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
23 Eylül 2004
Mesajlar
19
noktadan iki sonraki karakteri başka bir sutuna taşımam gerekecek.. bunun bir formulü fvar mı?

biliyorum çok oldum ama kusura bakmayın :)
 
Üst