VBA hücredeki son haneyi sildirme

[anti_uho]

Merhaba bu gün sizlerden benim için son derece önemli bir konu için yardım isteyeceğim.

Tam iki gün boyunca bir silme işlemiyle uğraşıyorum. Nasıl yani derseniz:

Hücrelere girilen sayılar sil buttonuna tıklanınca hücreye girilen sayının son hanesi silinecek.

Örn:

12345 ---> Temizle buttonuna tıklandı ---> 1234
1254645434 ---> Temizle buttonuna tıklandı ---> 125464543

Sürüm: Türkçe - 2010

not: userformda değil

 

[matematikferhat]

Macro ile yapmak istiyorsunuz sanırım.
İsteğinize göre düzenleyin.
Mid komutunu araştırın.

Dim hucre As String
hucre = Range("A1").Value
Range("A2").Value = Mid(hucre, 1, Len(hucre) - 1)

 

[esalci]

Alternatif olarak aşağıdaki kodu sil butonuna atadıktan sonra silmek istediğin hücreleri seçip butona basabilirsin.

Sub SeciliHucreler()

    Dim cel As Range
    Dim selectedRange As Range
    Set selectedRange = Application.Selection

    For Each cel In selectedRange.Cells
            cel.Value = Left(cel.Value, Len(cel.Value) - 1)
    Next cel

End Sub