Hücre içindeki verilerin başındaki ve sonundaki boşlukları kaldır

[Bora K]

Sub bosluklari_sil() 'Baştaki ve sondaki boşlukları siliyor. Sayfanın tamamında çalışıyor
Cells.Replace Chr(160), ""
For Each huc In ActiveSheet.UsedRange
huc.Value = Trim(huc.Value)
Next
End Sub

Sub Boşluk_Sil() 'Belirlenen aralıkta çalışıyor. Ne var ne yok bütün boşlukları siliyor.
Application.ScreenUpdating = False
Range("A3:B13").Replace What:=" ", Replacement:=""
Application.ScreenUpdating = True
End Sub

Merhabalar.

Üstteki makroyu belirli bir alanda (A3:B13 gibi) çalışacak şekilde.
Yada alttaki makroyu sadece baştaki ve sondaki boşlukları silecek şekilde birtürlü
ayarlayamadım. Bu değişikliği yapıp; hangi satır hangi işlevi yapıyor açıklarsanız
bilgilenmiş olacağım. Teşekkür ederim.

 

[turk-x]

Merhaba;
Boşluk silmek için Trim komutunu kullanabilirsiniz

Sub BoslukSil()
For i = 3 to 13
range("A"&i)=trim(range("A"&i))
Next i
End Sub

 

[Bora K]

Merhaba turk-x;
Teşekkür ederim alakanız için.

Sub BoslukSil()
For i = 3 to 13
range("A"&i)=trim(range("A"&i))
Next i
End Sub

Bu kod sadece A sütununda 3 ila 13 satır aralğında çalışacaktır.
Benim isteğim ise A3:B13 aralığında çalışması
A1 de A2 de C sütununda B15 de çalışmasın istiyorum
Yani aralık belirlemek istiyorum. Düzeltebilseniz eğer sevinirm.

 

[uzmanamele]

Sub bosluklari_sil() 'Baştaki ve sondaki boşlukları siliyor. Sayfanın tamamında çalışıyor
Cells.Replace Chr(160), ""
For Each huc In ActiveSheet.UsedRange
huc.Value = Trim(huc.Value)
Next
End Sub

Sub Boşluk_Sil() 'Belirlenen aralıkta çalışıyor. Ne var ne yok bütün boşlukları siliyor.
Application.ScreenUpdating = False
Range("A3:B13").Replace What:=" ", Replacement:=""
Application.ScreenUpdating = True
End Sub

Merhabalar.

Üstteki makroyu belirli bir alanda (A3:B13 gibi) çalışacak şekilde.
Yada alttaki makroyu sadece baştaki ve sondaki boşlukları silecek şekilde birtürlü
ayarlayamadım. Bu değişikliği yapıp; hangi satır hangi işlevi yapıyor açıklarsanız
bilgilenmiş olacağım. Teşekkür ederim.

Merhaba
Bunu deneyiniz.

For Each huc In Range("A3:B13")

 

[Bora K]

Sub bosluklari_sil() 'Baştaki ve sondaki boşlukları siliyor. (A3:B13) aralığında çalışıyor.
Cells.Replace Chr(160), ""
For Each huc In Range("A3:B13")
huc.Value = Trim(huc.Value)
Next
End Sub

Çok teşekkür ederim
Süleyman Bey.

Makromuz yukarıdaki gibi oldu ve çalışıyor.
İyi geceler dilerim.