Hücre içindeki ayraç, noktalama işaretleri ve boşlukların silinmesi

[ROUTER]

Merhaba,

Hücre içindeki ayraç, noktalama işaretleri ve boşlukların silinmesi için formül veya kod yazılabilir mi?
Yardımlarınız için teşekkür ederim.
İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DÜZENLE()
    Dim HÜCRE As Range, KARAKTER() As Variant, X As Byte
 
    KARAKTER = Array(" ", "'", "´", "`", ":", ";", "=", ".", ",", "-", "+", "~*", "/", "(", ")", """", "!", "^", "$", "#", "%", "&", "{", "[", "]", "}", "\", "~?", "_", "<", ">", "|", "@", "¨", "~")
 
    For Each HÜCRE In Range("A2:A" & Range("A65536").End(3).Row)
        If HÜCRE.Value <> "" Then
            HÜCRE.Offset(0, 1) = HÜCRE.Value
            For X = 0 To UBound(KARAKTER)
                HÜCRE.Offset(0, 1).Replace What:=KARAKTER(X), Replacement:=""
            Next
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ROUTER]

Hücre içindeki ayraçlar, noktalama işaretleri ve boşlukların silinmesi

Korhan Bey Merhaba,
Tamam çok iyi oldu.. İlginize çok teşekkür ederim.
İyi çalışmalar.
Uygulama ekte.