Soru alt+enter ile yapılan boşluğu silip normal boşluk koymak

[miadanoz]

Merhaba,

Örneğin A1 hücresinin içerisinde aşağıdaki bir boşluk (alt+enter) olduğunda bu boşluğu normal boşlukla düzeltmek için bir formül var mıdır ?

Sorun:
Bu bir örnek
cümledir.

Olması Gereken:
Bu bir örnek cümledir.

Kısaca sheetteki tüm alt+enter ile yazılmış boşlukları normal boşluğa dönüştürmek istiyorum. problemim bu. trim ile alt+enter ile yapılmış boşluğu direkt siliyor işe yaramıyor.

 

[hakki83]

Deneyiniz

Sub test()
For i = 1 To Cells(10000, 1).End(3).Row
Cells(i, 2) = Replace(Cells(i, 1), Chr(10), " ")
Next
End Sub

(Formül istemişsiniz, sonrada fark ettim)

 

[Haluk]

- Söz konusu sayfadaki hücreleri mouse ile seçin,

- Hücreler seçili durumdayken, Bul - Değiştir menüsünü çalıştırın,

- Aranacak değer kutusuna tıklayın ve "Ctrl" ile "j" tuşlarına birilikte basın,

- Değiştirilecek değer kutusuna, boşluk tuşu ile bir kere tıklayın,

- Hepsini değiştir tuşuna tıklayın....

.

 

[miadanoz]

çok teşekkür ederim.

 

[RBozkurt]

Son zamanlarda baya ilgimi çeken ChatGPT'den almış olduğum makro

Sub ReplaceLineBreak()
Dim rng As Range
Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(i, "A")
Cells(i, "B").Value = Replace(rng.Value, Chr(10), " ")
Next i
End Sub

 

[ilmtrz]

- Söz konusu sayfadaki hücreleri mouse ile seçin,

- Hücreler seçili durumdayken, Bul - Değiştir menüsünü çalıştırın,

- Aranacak değer kutusuna tıklayın ve "Ctrl" ile "j" tuşlarına birilikte basın,

- Değiştirilecek değer kutusuna, boşluk tuşu ile bir kere tıklayın,

- Hepsini değiştir tuşuna tıklayın....

.

Teşekkür ederim.

 

[Gata]

Merhaba,

Örneğin A1 hücresinin içerisinde aşağıdaki bir boşluk (alt+enter) olduğunda bu boşluğu normal boşlukla düzeltmek için bir formül var mıdır ?

Sorun:
Bu bir örnek
cümledir.

Olması Gereken:
Bu bir örnek cümledir.

Kısaca sheetteki tüm alt+enter ile yazılmış boşlukları normal boşluğa dönüştürmek istiyorum. problemim bu. trim ile alt+enter ile yapılmış boşluğu direkt siliyor işe yaramıyor.

=EĞERHATA(PARÇAAL($A$1;BUL("#";YERİNEKOY(DAMGA(10)&YERİNEKOY($A$1;"#";"A")&DAMGA(10);DAMGA(10);"#";SÜTUN(A$1)));BUL("#";YERİNEKOY(DAMGA(10)&YERİNEKOY($A$1;"#";"A")&DAMGA(10);DAMGA(10);"#";SÜTUN(A$1)+1))-BUL("#";YERİNEKOY(DAMGA(10)&YERİNEKOY($A$1;"#";"A")&DAMGA(10);DAMGA(10);"#";SÜTUN(A$1)))-1);"")
ESKİ VERSİYONLARA GÖRE
=METİNBÖL(A1;DAMGA(10)) 365 versiyonlara göre deneyiniz