Insert or add one number at right side to ISBN

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

rodrigovim - 24 Jan 2007 14:06 GMT

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

Reply to this Message

Ron de Bruin - 24 Jan 2007 15:10 GMT

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

Signature

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

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

Reply to this Message

rodrigovim - 24 Jan 2007 15:58 GMT

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.

> Hi rodrigovim
>
[quoted text clipped - 19 lines]
>
> > Public Librarian Ask to you...- Hide quoted text -- Show quoted text -

Reply to this Message

Ron de Bruin - 24 Jan 2007 16:04 GMT

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

Signature

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

> Many Thank Ron
>
[quoted text clipped - 28 lines]
>>
>> > Public Librarian Ask to you...- Hide quoted text -- Show quoted text -

Reply to this Message