Sondaki Silinmeyen bosluk

[cevrens]

Merhabalar,
Asagidaki ifadenin en sonunda 08:10 un bittigi yerde bir adet bosluk var. Hicbir sekilde silinemiyor.

CAI756 SLD AYT 05:40 08:10*


Bunun icin bu makroyu kullanmaya calısıyorum ama 10 bosluk varsa 9 unu siliyor ama sonuncuyu silmiyor.

Sub TEST()
Dim SUT As Integer
For SUT = 1 To Cells(65536, "A").End(3).Row
Cells(SUT, "A") = Trim(Cells(SUT, "A"))
Next
End Sub

Yardımlarınızı bekliyorum,cok tesekkurler.

 

[Murat OSMA]

Öneriler;
1- TEMİZ fonksiyonunu kullanın.

2- Ctrl+H ile Değiştir penceresine gelin. Aranan kısmını seçip klavyeden; Alt tuşuna basılı tutarak 0160 yazın ve "Yeni Değer" kısmını boş bırakarak Tümünü Değiştir butonuna basın.

 

[excelokyanus500]

Bunu Deneyin

Sub deletespace()

Dim MyCell As Range
On Error Resume Next

Selection.Cells.SpecialCells(xlCellTypeConstants, 23).Select
For Each MyCell In Selection.Cells
MyCell.Value = RTrim(MyCell.Value)
MyCell.Value = LTrim(MyCell.Value)
Next
On Error GoTo 0
End Sub

 

[cevrens]

Sn excelokyanus'un verdigi makroda da aynı bosluk devam ediyor.
Ama Murat Bey'in verdigi 2. yolun gidisini makro kaydet ile makroya donusturdum ve sonuc aldim..

Hepinize cok tesekkurler.

 

[cevrens]

Öneriler;
1- TEMİZ fonksiyonunu kullanın.

2- Ctrl+H ile Değiştir penceresine gelin. Aranan kısmını seçip klavyeden; Alt tuşuna basılı tutarak 0160 yazın ve "Yeni Değer" kısmını boş bırakarak Tümünü Değiştir butonuna basın.

Murat Bey,
Gerci baska konu baslıgı altında oldugunu biliyorum ama size ayrıca sormak istedim; 2 gun once sayfaya koydugum bir calısma vardır , MAKRO-VBA sayfasında. yaklasık 70 goruntulenme var ama cevap alamadım. Linki asagıda;

http://www.excel.web.tr/f48/ucan-ucak-datalaryny-ileri-tarihlere-gore-tabloya-yazdyrma-t141242.html

makro da sanırım sıkıntı var yazılmasında,bu konuda formul olarak yardım edebilirmisin,

Tesekkurler.

 

[Murat OSMA]

Rica ederim.

Vakit bulursam o konuya da bakıp ilgilenmeye çalışırım.

İyi günler.

 

[cevrens]

Rica ederim.

Vakit bulursam o konuya da bakıp ilgilenmeye çalışırım.

İyi günler.

Cok tesekkur ediyorum,iyi gunler.