Açıklamaları başka sekmede tek hücrede yazma için yardım

[kcaptain]

Merhaba arkadaşlar,

Sayfa1!(A1:A25) açıklama olanların açıklamalarının hepsini Sayfa2!(A1) hücresine yazmak istiyorum.
yada
Aynı sekmede Sayfa1!(A1:A25) açıklama olanların açıklamalarının hepsini aynı sekmede Sayfa1!A27 den aşağıya doğru sıralamak istiyorum.

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

 

[hareyvzgltkn]

Merhaba,
Ben de benzer bir şey yapmaya çalışıyorum. Size bir yanıt gelmemiş. Acaba bunun nasıl yapıldığını bulabildiniz mi?
Ben bir sayfadaki açıklamaların her birini eklendiği hücrenin hizasındaki başka bir hücreye, açıklama değil de hücre içerisinde metin şeklinde aktarmak istiyorum.
Umarım bir yanıt alabilirim. Şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

Merhaba arkadaşlar,

Aynı sekmede Sayfa1!(A1:A25) açıklama olanların açıklamalarının hepsini aynı sekmede Sayfa1!A27 den aşağıya doğru sıralamak istiyorum.

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

. . .

Sub kod()

On Error Resume Next
Dim i
satır = 27

For i = 1 To 25
msj = Range("A" & i).Comment.Text
If msj <> "" Then
Range("a" & satır) = msj
satır = satır + 1
Else
End If
msj = Empty
Next i

End Sub

. . .

 

[Emir Hüseyin Çoban]

Merhaba,
Ben de benzer bir şey yapmaya çalışıyorum. Size bir yanıt gelmemiş. Acaba bunun nasıl yapıldığını bulabildiniz mi?
Ben bir sayfadaki açıklamaların her birini eklendiği hücrenin hizasındaki başka bir hücreye, açıklama değil de hücre içerisinde metin şeklinde aktarmak istiyorum.
Umarım bir yanıt alabilirim. Şimdiden teşekkürler.

. . .

Örnek dosya ekleyip, üzerinde anlatınız.

. . .