Hücredeki son karakteri silme

[kadir78]

İyi günler. Aşağıdaki kod ile R5:R40 aralığındaki hücrelerin içerisindeki "_" karakterini silebiliyorum. Fakat bana lazım olan hücredeki son karakter "_" ise silmesi, son karakter değil ise bir işlem yapma gibi bir for döngüsü nasıl yapılabilir. Hücre içinde son karakter nasıl bulunur onu bilmiyorum. Yardım edermisiniz. Teşekkürler.

Dim form As Worksheet

Set form = activesheet

For a = 5 to 40

form.range("R" & a).value = replace(form.range("R" & a).value, "_", "")

Next a

 

[EmrExcel16]

Merhaba , deneyiniz..

If Right(form.Range("R" & a), 1) = "_" Then form.Range("R" & a) = Left(form.Range("R" & a), Len(form.Range("R" & a)) - 1)

 

[kadir78]

Merhaba , deneyiniz..

If Right(form.Range("R" & a), 1) = "_" Then form.Range("R" & a) = Left(form.Range("R" & a), Len(form.Range("R" & a)) - 1)

Çok teşekkür ederim. Emeğinize sağlık. İstediğim gibi oldu Sağolun.