sondan boşluk silme

[steppe]

Makro ile belli bir aralıktaki(A1:A50) hücrelerin en sonundaki boşluğu silme.Tüm örnekleri inceledim,fakat belli bir aralıkta en sondan boşluk silen örnek bulamadım.Yardımlarınız için şimdiden teşekkürler...

 

[Orion1]

Buyurun.

Sub bosluksil59()
Dim hcr As Range
For Each hcr In Range("A1:A50")
    hcr.Value = Replace(hcr.Value, "*", "")
Next
MsgBox "Sağdaki boşluklar temizlendi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

End Sub

 

[steppe]

Sondan boşluk silme

Orion1 Kardeş,ilgin için teşekkür ederim.Ekteki dosyada kodu uygulağımda sondaki boşlukları silmedi.Mümkünse bakabilir misiniz?

 

[Orion1]

Orion1 Kardeş,ilgin için teşekkür ederim.Ekteki dosyada kodu uygulağımda sondaki boşlukları silmedi.Mümkünse bakabilir misiniz?

Buyurun kodları.Öncekini silin bunu yazın.

Dim hcr As Range
For Each hcr In Range("A1:A50")
    hcr.Value = Replace(Replace(hcr.Value, " ", ""), asc(160), "")
Next
MsgBox "Sağdaki boşluklar temizlendi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

 

[steppe]

Buyurun kodları.Öncekini silin bunu yazın.

Dim hcr As Range
For Each hcr In Range("A1:A50")
    hcr.Value = Replace(Replace(hcr.Value, " ", ""), asc(160), "")
Next
MsgBox "Sağdaki boşluklar temizlendi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

Maalesef bu kodlada sondaki boşlukları silmedi.Örnek dosyada deneyebilir misiniz?

 

[Levent Menteşoğlu]

Eğer verileriniz dosyanızdaki gibi sayısal ise aşağıdaki kodu deneyebilirsiniz.

Sub bosluktemizle()
For a = 1 To [a65536].End(3).Row
Cells(a, "a") = CDbl(Cells(a, "a"))
Next
End Sub

 

[steppe]

Eğer verileriniz dosyanızdaki gibi sayısal ise aşağıdaki kodu deneyebilirsiniz.

Sub bosluktemizle()
For a = 1 To [a65536].End(3).Row
Cells(a, "a") = CDbl(Cells(a, "a"))
Next
End Sub

Kod sadece en sonda boşluk varsa çalışıyor.Sadece en sonda değilde aralarda da boşluk varsa (1254 45 23 ) hata veriyor.

 

[Orion1]

Sayın spette;
yolladığınız 3 sorudada herbiri ayri karakterlerdi.Boşluk gözüküyordu ama ascii standart'larında başka bir karaktere denk geliyordu.
kodlarınız buyurun.

Dim hcr As Range
For Each hcr In Range("A1:A50")
    hcr.Value = Replace(Replace(Replace(hcr.Value, " ", ""), Asc(160), ""), "*", "")
Next
MsgBox "Sağdaki boşluklar temizlendi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

 

[Orion1]

Dosyanız ektedir.

Dim hcr As Range
For Each hcr In Range("A1:A50")
    hcr.Value = Replace(Replace(Replace(Replace(hcr.Value, " ", ""), Asc(160), ""), "*", ""), "*", "")
Next
MsgBox "Sağdaki boşluklar temizlendi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

 

[Merhum İdris SERDAR]

.

Alternatif:

Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add " ", ""

For Each p In pDict
    Columns("A:A").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Next
End Sub

Ayrıca buradaki dosyayı inceleyin.

http://www.excel.web.tr/f60/coklu-bul-deoi-tir-fynd-replace-t115346.html

.

.

 

[steppe]

Emeği geçen herkese teşekkürler.

 

[steppe]

Orion1 Kardeş,
Eline sağlık kod gayet güzel çalışıyor.Yalnız çok denedim A sütununda hücrelere yazılan rakamlardan 49 olanlarını siliyor.Örnek:124949123 şeklindeki bir rakamı 12123 şekline dönüştürüyor.Aradaki 49'ları siliyor.

 

[Orion1]

Orion1 Kardeş,
Eline sağlık kod gayet güzel çalışıyor.Yalnız çok denedim A sütununda hücrelere yazılan rakamlardan 49 olanlarını siliyor.Örnek:124949123 şeklindeki bir rakamı 12123 şekline dönüştürüyor.Aradaki 49'ları siliyor.

ekli dosyada doğru çalışıyor.
Dosyayı ekledim.