Hücredeki kayıtlı açıklamayı başka bir hücreye nasıl atabilirim

[myhamuda]

Merhaba sevgili üstadlarım, bir veri sayfam var bu sayfadaki hücrelerde o kadar çok açıklama var ki bir liste yapmam gerekiyor hücrelerdeki açıklamaların olduğu verileri yan sütüna nasıl alabilirim?

 

[Ömer]

Merhaba,

A sütunu verilerdeki açıklamaları B sütununa yazar.

Sub aciklama()
   
    Dim i As Long
   
    Application.ScreenUpdating = False
    Range("B2:B" & Rows.Count).ClearContents
   
    On Error Resume Next
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Cells(i, "A").Comment.Text
    Next i
   
End Sub

 

[myhamuda]

Merhaba,

A sütunu verilerdeki açıklamaları B sütununa yazar.

Sub aciklama()
  
    Dim i As Long
  
    Application.ScreenUpdating = False
    Range("B2:B" & Rows.Count).ClearContents
  
    On Error Resume Next
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Cells(i, "A").Comment.Text
    Next i
  
End Sub

Çok teşekkür ederim hocam, çok sağolun çok faydalı bir bilgi oldu.