Hi rodrigovim
You can use the change event for column A in this example
Copy the code in the sheet module and after you enter the ISBN book number in the cell it add the 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Value = Target.Value & 1
Application.EnableEvents = True
End If
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"rodrigovim" wrote in message ups.com...
Hi,
How can insert or add a number (always the same e. 1) at right side of
70.000 ISBN book numbers automatically?
Public Librarian Ask to you...