ALTENTER lari silme ve Trim Yapma

[Kemal Demir]

Selam Arkadaslar.

Bir excel sayfası uzerınde satırlar içinde olusan veya var olan ALT+ENTER ları nasıl bir kod ile silebiliriz ve boşlukları nasıl dırek =trim(a2:x5000)
nasıl yapabilirz.

ilgili Dosya Yolluyorum Yardımcı olursanız sevininirim.

Saygılar.

 

[danersin]

ben aktif hücre için clean ve trimi nasıl kullanabileceğinizi yazdım. İhtiyacınıza göre activecell yerine hücre referansları yazarak uarlayabilirsiniz.

Sub Makro1()
ActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value)
End Sub

yada
Sub Makro1()
ActiveCell.Value = Application.WorksheetFunction.Trim(Application.WorksheetFunction.Clean(ActiveCell.Value))
End Sub

 

[Necdet]

Sayın Rakkas,
Bul ve değiştir ile Alt+Enter ile verilen satır kesmesini değiştirebilirsiniz.
Aranılan karaktere Alt tuşu ile 010 yazın ve istediğiniz karekterle değiştirin.

 

[Kemal Demir]

Sn Danersin
kırmızı ilave ettimiz Kısımı Makroya Ekleye bilirmiyiz Yada Tüm dolu alanlar için ne gibi bir şey yazmalıyız.

Saygılar.


sub makro1()

Selection.CurrentRegion.SelectActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value)
En sub

 

[Kemal Demir]

sub makro1()

Selection.CurrentRegion.Select
ActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value)
En sub
yukarıdaki yazımı bitişik olmus kusura bakmayın

 

[Necdet]

Sayın Rakkas, aynı anda mesaj yazmışız, sanırım benim mesajı görmediniz, o kadar uğraştım boşa gitmesin

 

[danersin]

Aşağıdaki gibi deneyin. Necdet beyin dediğide doğru ama ben @Rakkas'ın hep Makro istediğini bildiğim için böyle yaptım Makro ile chr(10) yerine " " yazdırarakda bu olur ama nasılsa trim yapmak içinde dolaşmak gerekecek ...

Sub makro1()
Selection.CurrentRegion.Select
Set xxx = Selection
For Each x In xxx
x.Activate
ActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell.Value)
Next x
End Sub

 

[Kemal Demir]

Sn.Necdet_Yesertener

İlginiz İçin Teşekkür Ederim .Saolun.