Satır sonundaki birden fazla noktalama işaretleri

[sldrkyurdal]

Arkadaşlar merhaba bir konuda desteğinize ihtiyacım var . Excel de satırların içinde ve sonunda ; noktalama işareti var control h ile ; silebilirim ama bu seferde satırın içindekiler de gidecek sadece satırın sonunda ne kadar ; ; işareti var ise silebileceğim bir makro var mıdır . Desteğinizi rica ederim. Teşekkürler.

 

[ÖmerFaruk]

Sub NoktalamalarıSil()
' Bu kod A1:A10 satırlarının sonundaki noktalama işaretlerini siler
' Arzu ederseniz aralığı kendinize uyarlarsınız
    Dim Alan As Range
    Set Alan = Range("A1:A10")
    ilk = Alan.Cells(1, 1).Row
    son = Alan.Cells(Alan.Rows.Count, 1).Row
    For i = ilk To son
        Yaz = Trim(Alan.Cells(i, 1))
        Do While Right(Yaz, 1) = ";"
            Yaz = Left(Yaz, Len(Yaz) - 1)
            Yaz = Trim(Yaz)
        Loop
        Alan.Cells(1, i) = Yaz
    Next
    Set Alan = Nothing
End Sub

 

[sldrkyurdal]

Sub NoktalamalarıSil()
' Bu kod A1:A10 satırlarının sonundaki noktalama işaretlerini siler
' Arzu ederseniz aralığı kendinize uyarlarsınız
    Dim Alan As Range
    Set Alan = Range("A1:A10")
    ilk = Alan.Cells(1, 1).Row
    son = Alan.Cells(Alan.Rows.Count, 1).Row
    For i = ilk To son
        Yaz = Trim(Alan.Cells(i, 1))
        Do While Right(Yaz, 1) = ";"
            Yaz = Left(Yaz, Len(Yaz) - 1)
            Yaz = Trim(Yaz)
        Loop
        Alan.Cells(1, i) = Yaz
    Next
    Set Alan = Nothing
End Sub

Tesekkürler