Amarilla
The following macro will do what you want. I assumed that you wanted
this to work with any entry in Column A. You will have to change the code
if this assumption is not correct. I also assumed the number of characters
you want to keep in the cell is 5 and anything more than that to be put in
the cell below. The first line of the macro, the line that starts with
"Const", has the number 5 in it. Change that number to the number of
characters you want to keep.
Note that this macro is a sheet event macro and must be placed in the sheet
module of your sheet. To access that module, right-click on the sheet tab,
select View Code, and paste this macro into that module. "X" out of the
module to return to your sheet. Please post back if this is not clear or
you need more help with it. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
Const TheNum As Long = 5
If Target.Count > 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Target.Column = 1 Then
Application.EnableEvents = False
If Len(Target.Value) > TheNum Then
Target.Offset(1).Value = _
Right(Target.Value, Len(Target.Value) - TheNum)
Target.Value = Left(Target.Value, TheNum)
End If
Application.EnableEvents = True
End If
End Sub