Verilerdeki boşlukları kaldırmak

[1Al2Ver]

Merhaba,

Aşağıdaki kodda yapılacak değişiklik ile A sütununda kayıtlı verilerdeki boşlukları yok etmek istemekteyim,

Örneğin ; A1'de kayıtlı veri ; C:\User\Mypc\Belgelerim\Yemekler \aşure.jpg

Dikkat edilirse \Yemekler \aşure.jpg arasında boşluk var, kod çalıştığında A1'deki verinin ; C:\User\Mypc\Belgelerim\Yemekler\aşure.jpg şeklinde olması gerekiyor,

Sub boslukat()
Dim sonsat As Long, i As Long
'A sütununda ki verilerin birinci satırdan başlayarak başındaki boşluk karakterlerini atar.
sonsat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sonsat
If Left(Cells(i, "A").Value, 1) = " " Then
Cells(i, "A").Value = WorksheetFunction.Trim(Cells(i, "A").Value)
End If
Next
MsgBox "Başlardaki boşluklar atıldı.", vbOKOnly
End Sub

Teşekkür ederim.

 

[uzmanamele]

merhaba
bu şekilde deneseniz olur mu?

 Cells(i, "A") = WorksheetFunction.Substitute(....)

 

[bmutlu966]

A kolonundaki tüm boşlukları silmek için aşağıdaki kodları deneyin. Sanırım sorununuz çözülecek.

Sub bosluklari_sil()

Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End Sub

 

[1Al2Ver]

merhaba
bu şekilde deneseniz olur mu?

 Cells(i, "A") = WorksheetFunction.Substitute(....)

Sayın uzmanamele merhaba,

İlginiz için teşekkür ederim, saygılarımla.

 

[1Al2Ver]

A kolonundaki tüm boşlukları silmek için aşağıdaki kodları deneyin. Sanırım sorununuz çözülecek.

Sub bosluklari_sil()

Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End Sub

Sayın bmutlu966 merhaba,

Kod için teşekkür ederim, saygılarımla.