Hücre içindeki Boş satırları silme

[asdsxx]

Paylaşım sitelerine örnek paylaşabilirseniz biz de nasıl olduğunu görebilelim.

Necati Bey ilginize teşekkürler
BBozkurt Beyin yazdığı ikinci kod istediğim gibi çalıştı. Benim gözümden kaçmış.
Size ve Bozkurt Beye teşekkürler.

 

[Korhan Ayhan]

Özelden yazdığınız mesaj için alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Option Explicit

Sub Remove_Duplicate_Alt_Enter()
    Dim Rng As Range, X As Integer
    
    Application.ScreenUpdating = False
    
    Range("A:A").Replace Chr(10), "|"
    Range("A:A").Replace vbCr, "|"
    Range("A:A").Replace vbLf, "|"
    
    For Each Rng In Range("A:A").SpecialCells(xlCellTypeConstants)
        For X = 10 To 1 Step -1
            Rng = Replace(Rng, String(X, "|"), Chr(10))
        Next
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "Gereksiz boş satırlar kaldırılmıştır.", vbInformation
End Sub

 

[asdsxx]

Özelden yazdığınız mesaj için alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Option Explicit

Sub Remove_Duplicate_Alt_Enter()
    Dim Rng As Range, X As Integer
   
    Application.ScreenUpdating = False
   
    Range("A:A").Replace Chr(10), "|"
    Range("A:A").Replace vbCr, "|"
    Range("A:A").Replace vbLf, "|"
   
    For Each Rng In Range("A:A").SpecialCells(xlCellTypeConstants)
        For X = 10 To 1 Step -1
            Rng = Replace(Rng, String(X, "|"), Chr(10))
        Next
    Next
   
    Application.ScreenUpdating = True
   
    MsgBox "Gereksiz boş satırlar kaldırılmıştır.", vbInformation
End Sub

Korhan Bey çok teşekkür ederim. Ellerine sağlık.

 

[asdsxx]

Aşağıdaki mesajı inceleyiniz.

A'da işlem yapar B'ye yazar.

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

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...

www.excel.web.tr

Sadece A sütununda işlem yapar.

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")
rng.Value = Replace(rng.Value, Chr(10), " ") 'Tırnak işareti arasına değişecek değer girilir.
Next i
End Sub

"'Tırnak işareti arasına değişecek değer girilir. " derken neye göre ne girilecek açıklayabilrmisiniz

 

[RBozkurt]

Chr(10) yani alt+enter işleminin karakter hali.

Tırnak işareti arasına boşluk ekledim. Oraya mesela "a" yazarsanız alt+enter olan yerleri a ile değiştirir.

Kod alt+enteri boşluk (" ") ile değiştirmekte..

 

[asdsxx]

Chr(10) yani alt+enter işleminin karakter hali.

Tırnak işareti arasına boşluk ekledim. Oraya mesela "a" yazarsanız alt+enter olan yerleri a ile değiştirir.

Kod alt+enteri boşluk (" ") ile değiştirmekte..

Ben mesela şu şekilde olsun istiyorum
Bunu;
Deneme amaçlı bu
metin bu şekilde
değil de tek satır olacak

Şu şekle;
Deneme amaçlı bu metin bu şekilde değil de tek satır olacak
dönüşmesini istiyorum

veya hücre arasında boş satır bile varsa;
Deneme amaçlı bu

metin bu şekilde

değil de tek satır olacak
yine
Deneme amaçlı bu metin bu şekilde değil de tek satır olacak
olacak

 

[RBozkurt]

Ben mesela şu şekilde olsun istiyorum
Bunu;
Deneme amaçlı bu
metin bu şekilde
değil de tek satır olacak

Şu şekle;
Deneme amaçlı bu metin bu şekilde değil de tek satır olacak
dönüşmesini istiyorum

veya hücre arasında boş satır bile varsa;
Deneme amaçlı bu

metin bu şekilde

değil de tek satır olacak
yine
Deneme amaçlı bu metin bu şekilde değil de tek satır olacak
olacak

Paylaşılan makrolar olmadı mı? Hangi hatayı aldınız.

 

[asdsxx]

Daha önceki makrolarda sadece boş satırların silinmesini istemiştim. Onlar çalışıyor.
Bu çalışmada farklı bir konuda lazım oldu. Alt +Enter ile açılan tüm satırlar boş bile olsa tek satır(paragraf) olmasını istiyorum

 

[RBozkurt]

Aynı kodları deneyin, kod ile yapılacak işlem aynı.

 

[asdsxx]

Aynı kodları deneyin, kod ile yapılacak işlem aynı.

malesef çalışmadığı için yazmıştım. örnek dosyayı ekliyorum
Bahsettiğim durum her hücrede var

 

[RBozkurt]

Hücre içindeki Boş satırları silme

Arkadaşlar excelde bir sütun içinde yüzlerce hücrede metin paragraflar var. Bu paragraflar arasında bazen boş satırlar var. (boş hücre değil) hücre içinde boş satırları silmemiz mümkün mü? Bu iş makro ile yapılabilir mi?

www.excel.web.tr

Bu makroyu denedim hata göremedim. Satırları düzeltiyor.