Boşluğu kaldırıp chr(10) ile alt satıra geçme??

[baykan_m]

Merhaba Arkadaşlar,

Programdan aldığım bir raporda başlıklar boşluk tuşuyla yazılmış. Dolayısıyla tüm sütunları seçim sütun genişliği ayarlamak isteyince başlıktan dolayı sütunlar çok genişliyor. Ben seçili hücrede "Adı Soyadı" yazısından boşluğu kaldırıp Chr(10) makrosuyla Adı Soyadı'nı al alta yazmak istiyorum. Bayağı uğraştım çözemedim maalesef. Nasıl yapabilirim acaba? Sütun çok fazla olduğundan tek tek zor oluyor. Yardımcı olabilirseniz çok sevinirim.

İyi çalışmalar

 

[Ömer]

Merhaba,

Deneyiniz. A1 hücresi için.

Sub deneme()
    With [A1]
        .WrapText = True
        .Replace " ", Chr(10)
        .EntireRow.AutoFit
    End With
End Sub

 

[baykan_m]

Merhaba,

Deneyiniz. A1 hücresi için.

Sub deneme()
    With [A1]
        .WrapText = True
        .Replace " ", Chr(10)
        .EntireRow.AutoFit
    End With
End Sub

Teşekkür ederim Ömer Bey, mükemmelsiniz