Virgül Sonrası Otomatik Boşluk Ver

[baydeniro]

Merhaba arkadaşlar. Yazılarda virgül, noktalı virgül ve noktadan sonra boşluk bırakılmadığı hallerde makro ile kendiliğinden boşluk açılabilir mi ? Örnek dosya ekte.

 

[Orion1]

Dosyanız ektedir.
=YERİNEKOY(YERİNEKOY(YERİNEKOY(A2;",";", ");".";". ");";";"; ")

 

[baydeniro]

Çok çok teşekkür ederim sayın Orion1. Bunun bir de makro versiyonu mümkün müdür !!

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub VERİLERİ_DÜZENLE()
    Dim Veri As Range
    
    With Range("A:A")
        .Replace What:=",", Replacement:=", ", LookAt:=xlPart
        .Replace What:=";", Replacement:="; ", LookAt:=xlPart
        .Replace What:=".", Replacement:=". ", LookAt:=xlPart
        .Replace What:="     ", Replacement:=" ", LookAt:=xlPart
        .Replace What:="    ", Replacement:=" ", LookAt:=xlPart
        .Replace What:="   ", Replacement:=" ", LookAt:=xlPart
        .Replace What:="  ", Replacement:=" ", LookAt:=xlPart
    End With
    
    On Error Resume Next
    
    For Each Veri In Range("A:A").SpecialCells(xlCellTypeConstants)
        If Veri.Value <> "" Then
            If Right(Veri.Text, 1) = " " Then
                Veri.Value = Mid(Veri.Text, 1, Len(Veri.Text) - 1)
            End If
        End If
    Next
    
    On Error GoTo 0
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[baydeniro]

Çok teşekkürler sayın Korhan Ayhan. Sağlıcakla kalın.

 

[Merhum İdris SERDAR]

.

Bir de buradaki örneği inceleyin.

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


.

 

[baydeniro]

Sayın Yurttas çok teşekkür ederim. Kod çok işimize yaradı. Bu koda bir de KIRP / TRIM özelliği eklenebilir mi ?

 

[Merhum İdris SERDAR]

Sayın Yurttas çok teşekkür ederim. Kod çok işimize yaradı. Bu koda bir de KIRP / TRIM özelliği eklenebilir mi ?

.

O niye? Yani ne işe yarayacak?

.

 

[baydeniro]

İlginize teşekkür ederim. Şu şekilde faydası olacak : imla hataları ile doğru olanlar beraber olabiliyor. Kodu bu hali ile uyguladığımızda doğru olanların da arasına bir boşluk daha giriyor. KIRP yapılınca boşul olmayanlara açıyor ama normalleri olduğu gibi bırakıyor.