sayın @derzulya siz doğrudan debug.print komutunu kullanmışsınız o sadece kodun nasıl çalıştığını göstermek için eklenmiş sonucu Vba penceresine yazdırmak için kullanılan bir kod.
aşağıdaki şekilde dener misiniz?

Dim varItm As Variant

 For Each varItm In Liste2.ItemsSelected

 dazi = dazi & Liste2.Column(1, varItm) & vbNewLine

 Next varItm

 Me.urunleraktarilan = dazi