Hücre İçi Satır Arası Boşluğu

[erkanfun]

A sütunudaki hücre içi satır arası boşluğunu makro ile nasıl kaldırabiliriz? Makro işlemi sonucunda olması gereken sonuç B sütunundaki gibi olmalı.

 

[suleyman242]

Range("A2:A100").Select
    With Selection
        .WrapText = False
    End With

ama arada boşluk olmuyor

 

[erkanfun]

Range("A2:A100").Select
    With Selection
        .WrapText = False
    End With

ama arada boşluk olmuyor

Bun bul-değiştirle nasıl yaparız?

 

[suleyman242]

bun bul-değiştirle nasıl yaparız?

=kırp(yerinekoy(a2;damga(10);damga(32)))

 

[erkanfun]

=kırp(yerinekoy(a2;damga(10);damga(32)))

Teşekkür ederim.

 

[suleyman242]

Teşekkür ederim.

Bul komutuyla

=BUL(DAMGA(10);A2)

Bende teşekkür ederim Kolay gelsin.

 

[erkanfun]

Makro ile yapılışını buldum.

Sub Makro1()
Range("B1").Value = Evaluate("SUBSTITUTE(A1,CHAR(10),CHAR(32))")
End Sub

 

[suleyman242]

Makro ile yapılışını buldum.

Sub Makro1()
Range("B1").Value = Evaluate("SUBSTITUTE(A1,CHAR(10),CHAR(32))")
End Sub

Bende yeni bir kod öğrendim Teşekkürler

Alternatif

Private Sub CommandButton1_Click()
Dim AYIR, KES As String
AYIR = Split([A2], Chr(10))
[I2] = AYIR(0) & " " & AYIR(1)
End Sub