Metinin önünde ve sonundaki noktalama işaretlerini temizlemek

[tamer42]

Merhabalar,

Hücrede yazan değerin sağında ve solunda yer alan "," ve "." işaretlerini temizlemenin kolay bir yolu var mıdır?
aşağıdaki kodu yazdım ama, birden fazla işaret olduğu zaman eksik kalıyor.

Teşekkürler,
iyi akşamlar.

Private Function ConvertTo(deger As Variant)
Dim deger2

If Right(deger, 1) = "," Then
    deger2 = Trim(Left(deger, Len(deger) - 1))
End If

If Left(deger2, 1) = "," Then
    deger2 = Trim(Mid(deger, 2, Len(deger2) - 1))
End If

ConvertTo = deger2

End Function

 

[Necdet]

Merhaba Tamer Bey,
Örnek veriyi görmekte yarar var diye düşünüyorum.

 

[ÖmerBey]

Merhaba,
Kodunuzun ana yapısını korumaya çalıştım.
Deneyiniz.

Private Function ConvertTo(deger As Variant)
Dim sag As Boolean, sol As Boolean

Do
    If Right(deger, 1) = "," Or Right(deger, 1) = "." Or Right(deger, 1) = Chr(133) Then
        deger = Trim(Left(deger, Len(deger) - 1))
    Else
        sag = True
    End If
   
    If Left(deger, 1) = "," Or Left(deger, 1) = "." Or Left(deger, 1) = Chr(133) Then
        deger = Trim(Mid(deger, 2))
    Else
        sol = True
    End If
Loop Until sag = True And sol = True

ConvertTo = deger

End Function

 

[işsiz123]

Ömer bey 'in cevabını görmedim. Alternatif olsun


Merhaba ,
Aşağıdaki kodu deneyebilirsiniz.

Sub ss()
Dim X As Long

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row + 1
hc = Cells(i, 1)
For X = 1 To Len(hc)
If Left(hc, 1) = "." Then
hc = Right(hc, Len(hc) - 1)
hc = Left(hc, Len(hc) - 1)
Else
Exit For
End If
Next
Cells(i, 2) = hc

Next i

End Sub

 

[tamer42]

Merhaba,
Kodunuzun ana yapısını korumaya çalıştım.
Deneyiniz.

Private Function ConvertTo(deger As Variant)
Dim sag As Boolean, sol As Boolean

Do
    If Right(deger, 1) = "," Or Right(deger, 1) = "." Or Right(deger, 1) = Chr(133) Then
        deger = Trim(Left(deger, Len(deger) - 1))
    Else
        sag = True
    End If
  
    If Left(deger, 1) = "," Or Left(deger, 1) = "." Or Left(deger, 1) = Chr(133) Then
        deger = Trim(Mid(deger, 2))
    Else
        sol = True
    End If
Loop Until sag = True And sol = True

ConvertTo = deger

End Function

teşekkürler Ömer Hocam

 

[Erkan Akayay]

Size bir ktf yazdım. İster formül olarak kullananın. İsterseniz kodda döngüde kullanın.

Function Temizle(alan As Range)
Dim regEx As Object
Dim str As String

Set regEx = CreateObject("VBScript.RegExp")

With regEx
    .Global = True
    .IgnoreCase = True
    .Pattern = "^\W{1,999}|\W{1,999}$"
End With
    
Temizle = regEx.Replace(alan.Value, "")
    
End Function

 

[tamer42]

Size bir ktf yazdım. İster formül olarak kullananın. İsterseniz kodda döngüde kullanın.

Function Temizle(alan As Range)
Dim regEx As Object
Dim str As String

Set regEx = CreateObject("VBScript.RegExp")

With regEx
    .Global = True
    .IgnoreCase = True
    .Pattern = "^\W{1,999}|\W{1,999}$"
End With
   
Temizle = regEx.Replace(alan.Value, "")
   
End Function

teşekkürler