son karakter "k" ise SADECE son karakteri sildirmek

[gokmensen]

a kolonunda sonu k ile biten kelimelerin SADECE son "k" lerini sildirmek (kelimelerin icinde de "k" harfleri var) istiyorum ama bir turlu makrosunu yazamadim. yardimci olabilri misiniz?

 

[Kemal Demir]

Gunaydın,

Sub KSil()
'Kod A kolonu için geçerlidir
For X = 2 To [a65536].End(3).Row
don:
If Right(Cells(X, 1), 1) = "k" Then
Cells(X, 1) = Left(Cells(X, 1), Len(Cells(X, 1)) - 1)
GoTo don
End If
Next
End Sub

 

[gokmensen]

Sayin Rakkas,

verdiginiz kodlardaki Cells kisimlarini Range sekline cevirdim ve uyguladim, Calisti. Cok tesekkurler...

 

[baydeniro]

Sayın Rakkas, harika bir kod. Paylaşım için çok teşekkürler.

 

[veyselemre]

Sorun çözülmüş ama alternatif olsun,

Sub sondakiKlariSil()
    Set regEx = CreateObject("vbscript.RegExp")
    regEx.Pattern = "K+$"
    For a = 2 To [a65536].End(3).Row
        Cells(a, "A") = regEx.Replace(Cells(a, "A"), "")
    Next
    Set regEx = Nothing
End Sub