Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
NEED EXCEL FORMULA TO CONVERT 13 DIGIT ISBN TO 10 DIGIT ISBN | Excel Discussion (Misc queries) | |||
count the number of digits ISBN : 0524102434 | Excel Programming | |||
ISBN problem | New Users to Excel | |||
ISBN Check Digits | Excel Discussion (Misc queries) | |||
I would like to insert a ruler across the top and side of my scree | Excel Discussion (Misc queries) |