Hücredeki değerin sonundaki boşluğu silmek

[mançuryalı]

Selamlar syın forum üyeleri,
Hücredeki değerin sonundaki boşluğu silmek ile ilgili bir durum var.örnek olarak ADANA kelimesi olsun.ADANA-İŞTE BÖYLE çizgi ile belrttiğim BİR BOŞLUK var.bunu nasıl sildirebilirim.?Mümkünse yardımcı olabilirmisiniz.
İyi çalışmalar dileyerek tekrar selamlarımla,hoşçakalın.

 

[Orion1]

Dosyanız hazır.
A sütununu D sütünuna aktarıyor.

Sub kirp()
Dim son As Long
Sheets("Sayfa1").Select
son = Cells(65536, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("D1:D65536").ClearContents
ReDim myarr(son)
For i = 1 To son
    myarr(i) = WorksheetFunction.Trim(Cells(i, "A").Value)
Next
If son > 0 Then
    [D1].Resize(son, 1) = Application.Transpose(myarr)
End If
Application.ScreenUpdating = True
MsgBox "İşlem tamam.", vbOKOnly + vbInformation, Application.UserName

End Sub

 

[tahsinanarat]

SAADECE SATIR BAŞINDA VE SONUNDAKİ BOŞLUKLARI SİLER
Sub Dene()
Cells.Replace Chr(160), ""
For Each huc In ActiveSheet.UsedRange
huc.Value = Trim(huc.Value)
Next
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

A Sütunundaki boşlukları kaldırır.

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

 

[mançuryalı]

Süüpper,müthiş hızlı ve doğru.Çok teşekkür ederim.Hoşçakalın.

 

[Orion1]

Süüpper,müthiş hızlı ve doğru.Çok teşekkür ederim.Hoşçakalın.

Rica ederim.
İyi çalışmalar.

 

[ugurrrrrr]

Arkadaşlar merhaba

Tüm uğraşlarıma rağmen ekteki dosyadaki sayıların sonlarında bulunan boşlukları silemedim.

İlgilenebilirmisiniz?

Not : mesajdaki çözümleri denedim.

 

[Erdem Akdemir]

arkadaşlar merhaba

tüm uğraşlarıma rağmen ekteki dosyadaki sayıların sonlarında bulunan boşlukları silemedim.

Ilgilenebilirmisiniz?

Not : Mesajdaki çözümleri denedim.

=--yerinekoy(b1;damga(160);"")

 

[Orion1]

Dosyanız ektedir.

Sub kirp()
For Each huc In ActiveSheet.UsedRange
huc.Value = KIRPE(huc.Value, 1)
Next
MsgBox "Kırmpma işlemi yapıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub
Function KIRPE(deg As String, sayi As Byte) As Variant
If Len(deg) > 0 Then
    Do While Left(deg, 1) = " " Or Left(deg, 1) = Chr(160)
        deg = Right(deg, Len(deg) - 1)
    Loop
End If
If Len(deg) > 0 Then
    Do While Right(deg, 1) = " " Or Right(deg, 1) = Chr(160)
        deg = Left(deg, Len(deg) - 1)
    Loop
End If
If IsNumeric(deg) Then
    If sayi = 1 Then
        KIRPE = CDbl(deg)
        ElseIf sayi = 0 Then
        KIRPE = CStr(deg)
    End If
    Else
    KIRPE = deg
End If
End Function

 

[Necdet]

Arkadaşlar merhaba

Tüm uğraşlarıma rağmen ekteki dosyadaki sayıların sonlarında bulunan boşlukları silemedim.

İlgilenebilirmisiniz?

Not : mesajdaki çözümleri denedim.

Bul Değiştir ile yapabilirsiniz.

• Ctrl + H
• Aranan --> Alt+0160
• Tümünü Değiştir

 

[Excel113]

Bul Değiştir ile yapabilirsiniz.

Ctrl + H
Aranan --> Alt+0160
Tümünü Değiştir

Harika bir malumat... Teşekkür...

 

[ugurrrrrr]

Bul Değiştir ile yapabilirsiniz.

• Ctrl + H
• Aranan --> Alt+0160
• Tümünü Değiştir

Süper basit bir cevap.
Teşekkürler.