Bir hücredeki metinin sondan 10 karakterini silmek

[mtl]

Bir hücredeki metinin somdan 10 karakterini silmek için nasıl bir kod yazmalıyım (makro ile).

 

[xxcell]

Sub x()

metin = Range("a1").text
If Len(metin) >= 10 Then
sonuc = Left(metin, Len(metin) - 10)
Else
sonuc = metin
End If

MsgBox sonuc

End Sub

 

[emrexcel123]

Sub text()
txt = Range("a1")
If Len(txt) > 10 Then
dgr = Left(txt, (Len(txt) - 10))
Range("a2") = dgr
Else
Exit Sub
End If
End Sub...

 

[mtl]

Sn. emrexcel123 ve xxcell sorunum çözüldü, sizlere çok teşekkür ederim ilginizden dolayı.