How do you remove the last two digits in a cell using a macro?

--
Thanks a bunch!
rojobrown

One way using the active cell:
ActiveCell.Value = Left(ActiveCell.Value, Len(ActiveCell.Value) - 2)

If you want a specific cell reference:
Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value) - 2)

HTH,
Paul

"rojobrown" wrote in message
...
How do you remove the last two digits in a cell using a macro?

--
Thanks a bunch!
rojobrown

One way:

Public Sub RemoveLastXCharacters()
Const cnX As Long = 2
Dim rCell As Range
Dim nLen As Long
For Each rCell In Selection
With rCell
nLen = Len(.Text) - cnX
If nLen <= 0 Then
.ClearContents
Else
.Value = Left(.Text, nLen)
End If
End With
Next rCell
End Sub

Note: If the values are numeric, the last two digits will be "removed",
but the number of displayed digits will still be set by the number
format, so

1.2345

will display as

1.2300

if the format displays 4 digits after then decimal place.

In article ,
rojobrown wrote:

How do you remove the last two digits in a cell using a macro?

Here's an equation to do it in helper column

=left(A1,len(A1)-2)

Do you need it in a macro?

"rojobrown" wrote:

How do you remove the last two digits in a cell using a macro?

--
Thanks a bunch!
rojobrown

I do. Would you be able to help me?
--
Thanks a bunch!
rojobrown


"Barb Reinhardt" wrote:

Here's an equation to do it in helper column

=left(A1,len(A1)-2)

Do you need it in a macro?

"rojobrown" wrote:

How do you remove the last two digits in a cell using a macro?

--
Thanks a bunch!
rojobrown

This formula works great! But, can you explain/translate the formula?

"Barb Reinhardt" wrote:

Here's an equation to do it in helper column

=left(A1,len(A1)-2)

Do you need it in a macro?

"rojobrown" wrote:

How do you remove the last two digits in a cell using a macro?

--
Thanks a bunch!
rojobrown

LEFT and LEN are both standard Excel functions. Their operation and syntax,
and the operation and syntax of every Excel function except DATEDIF, is
shown in Excel help. One of many ways of getting to Excel help is to hit
the F1 button. I would heartily recommend it as a first port of call.
--
David Biddulph


"KrispyData" wrote in message
...
This formula works great! But, can you explain/translate the formula?

"Barb Reinhardt" wrote:

Here's an equation to do it in helper column

=left(A1,len(A1)-2)

Do you need it in a macro?

"rojobrown" wrote:

How do you remove the last two digits in a cell using a macro?

--
Thanks a bunch!
rojobrown