Alt Enter ile aynı hücreye yazılan boşlukların silinmesi

[tahsinanarat]

Alt enter ile aynı hücreye alt alta yazı yazabiliyoruz, peki bu hücreyi biçimlendirip düz satır haline getirdiğimizde kare şeklinde görünen boşlukların tüm sahifeden silinebilmesi için koda ihtiyacım var,daha doğrusu öğrenmek adına soruyorum. örnek dosya ektedir. Teşekkürler

 

[uzmanamele]

merhaba
=temiz(a1) deneyiniz

 

[tahsinanarat]

Sn. uzmanamele verdiğiniz formülü denedim, güzel temizliyor, denedikten sonra gördüm ki boşluklar silinip kelimeler tamamen birleştiriliyor, silinen alt enter ların yerine boşluk veya istediğimiz bir işareti koyabilirmiyiz, teşekkür ederim. kod ile de bir altarnanif olursa sevinirim. (bütün sayfa için geçerli olacak)

 

[Ex.Sarge]

aşağıdaki kodu kullanabilirsiniz.

Sub Makro1()
    'Range("B2").Select
    ActiveCell.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:=Chr(10), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Cells.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

örneğiniz ektedir.
" " yerine istediğiniz harfi koyabilirsiniz.

 

[tahsinanarat]

Sn. Ex.Sarge, çok teşekkür ederim, tam istediğim gibi. Sağolun.

 

[Necdet]

Merhaba,

Bul - Değiştirden de makrosuz yapabilirsiniz.

Aranan : Alt+010
Yeni Değer = Boşluk

Bu işlemi makro ile yapmak isterseniz

Sub Degistir()
Columns("D:D").Replace What:=Chr(10), Replacement:=" "
End Sub

 

[tahsinanarat]

teşekkür ederim sn. necdet hocam, bul değiştirden makro yapmaya çalışmıştım, ama alt 010 yazmak aklıma gelmemişti. Sağolun, tekrar teşekkür ederim.

 

[Necdet]

Rica ederim Sayın Tahsin Anarat.

Makrolu çözümü de önermiştim gördünüzmü bilmiyorum.

 

[Ex.Sarge]

Merhaba,

Bul - Değiştirden de makrosuz yapabilirsiniz.

Aranan : Alt+010
Yeni Değer = Boşluk

Bu şekilde kullanmak daha önce hiç aklıma gelmemişti. Teşekkürler.

 

[Necdet]

Bende teşekkür ederim Sayın Ex. Sarge, çözümünüz için.

 

[Ex.Sarge]

Bende teşekkür ederim Sayın Ex. Sarge, çözümünüz için.

Aslında ilk çözümüm en uzun hali oluyor.
Sizin çözümüne küçük bir ilave de benden olsun
Tüm hücreler için kısaca

Sub Degistir()
    Cells.Replace What:=Chr(10), Replacement:=" "
End Sub

kullanabilirsiniz.

 

[S.Yiğit]

merhaba
=temiz(a1) deneyiniz

Merhaba,

Bul - Değiştirden de makrosuz yapabilirsiniz.

Aranan : Alt+010
Yeni Değer = Boşluk

Bu işlemi makro ile yapmak isterseniz

Sub Degistir()
Columns("D:D").Replace What:=Chr(10), Replacement:=" "
End Sub

Güzel bişey öğrenmiş olduk.. Tşkler...

 

[tahsinanarat]

Sub Degistir()
Columns("D").Replace What:=Chr(10), Replacement:=" "
End Sub
Yukarıdaki kod ile bütün alt enter boşlukları silebiliyoruz. hücrelerdeki ilk alt enter boşluğunu silmek istesek, makro nasıl olmalıdır?

 

[tahsinanarat]

Hürcredeki ilk boşlukları (altenter) silmek istiyorum. Sn. hocalarımdan yardım bekliyorum.
Örnek dosyam ektedir.