Insert or add one number at right side to ISBN
 

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...

Insert or add one number at right side to ISBN
 

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...

Insert or add one number at right side to ISBN
 

Many Thank Ron

but,

The 70.000 ISBNs was captured from bookshelves by Bar-code handy
terminal to Data harvesting software and exported to Excel,...and now
we need to add the number 1 to all numbers, as validation digit to our
inventory process.


On Jan 24, 12:10 pm, "Ron de Bruin" wrote:
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 Bruinhttp://www.rondebruin.nl/tips.htm



"rodrigovim" wrote in oglegroups.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...- Hide quoted text -- Show quoted text -

Insert or add one number at right side to ISBN
 

Then use this for column A

Sub test()
Dim cell As Range
For Each cell In Columns("A").SpecialCells(xlCellTypeConstants)
cell.Value = cell.Value & 1
Next cell
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"rodrigovim" wrote in message ups.com...
Many Thank Ron

but,

The 70.000 ISBNs was captured from bookshelves by Bar-code handy
terminal to Data harvesting software and exported to Excel,...and now
we need to add the number 1 to all numbers, as validation digit to our
inventory process.


On Jan 24, 12:10 pm, "Ron de Bruin" wrote:
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 Bruinhttp://www.rondebruin.nl/tips.htm



"rodrigovim" wrote in oglegroups.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...- Hide quoted text -- Show quoted text -