Barcode scan data entry

[Shamz41]

Hi

I need assistance on this. I have a scanning system for tracking numbers. So basically the scanner will scan the barcodes and input the numbers. Ok the issue I face is one of the couriers have a 4 digit form number at the end of their 12 tracking number and I need a code to remove the additional 4 digits at the end. Can we input this code into VBA to make it more cleaner. Please see attached file. I've indicated the name of the courier on it.

[kev_]

Replacing "Fedex" with "Fedex " avoids risk of running macro twice against same value
Another way would be to add a column and put a marker in that column when tracking number is amended and check value in that column when macro is run
Function CDec() is used to avoid Excel converting the values to scientific notation.

To remove last 4 characters in the active cell:

Please Login or Register  to view this content.

To remove last 4 characters in all cells in ColumnD where column C = Fedex:

Please Login or Register  to view this content.

To acknowledge help give by anyone remember to click on *Add Reputation

[Shamz41]

Hi Kev,

I input the script on the worksheet but column D just rounded up to the nearest figure instead of removing anything more than 12 digits for fedex in column c.
Fedex only has 12 digits for its tracking numbers. I'm not sure if I'm doing it right.

[kev_]

Run in attached workbook with {CTRL} + t (this does all cells in colD)

Run in attached workbook with {CTRL} + s (this does selected cell only - so need to be in correct cell!)

Don't forget that after running the macro "FedEx" has become "FedEx " to avoid the macro reducing the cell value by another 4 characters