Scan Barcode to excel for 3 times only

[ygurram]

Hi,
I am looking something similar to thread shown below.
https://www.mrexcel.com/forum/excel-questions/672492-scan-barcode-excel-date-time-stamp-out.html.

I am looking for the similar code that hiker has provided in his reply #18 but My way of arranging cells is little different and I need to scan a particular Part number for only 3 times. As you can see below Part number(which needs to be scanned is in D column and cell starts from D3). 1st, 10th & Last are in columns G,H & I( this is where I need time stamps when scanned 3 times)

JOB	Does Part Match spec. sheet	Does part # match label?	Part Number	Is PPE required for Part Number?	What is the Country of Origin	1st	10th	Last
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

<colgroup><col><col span="2"><col><col span="2"><col><col><col></colgroup><tbody>
</tbody>

 

[hiker95]

Good morning Hiker,

I am new to Mr.Excel. Do I need to start a new thread or can I share my email ID here so that you send the code?
Please advise.

ygurram

ygurram,

No, you do not have to start a new thread.

As soon as one of the Moderator's is able to fix the problem, then, I will be able to provide the macro code that works as you have described.

 

[mole999]

ygurram,

On both of your threads/posts, I have clicked on the Report button, but, none of the Administrator's have corrected the problem.

unable to correct where No code is posted between code tags, not aware of any system glitches eating code

 

[hiker95]

mole999,

Thanks for your reply.

I am not able to copy any macro code between the two code tags?

 

[hiker95]

ygurram,

I found a work around.

I had to copy the macro code into a blank worksheet.

Then I added the code tags, below, and, then copied the information in the blank worksheet, into the text between the code tags.


Below is the macro code to solve your request for Sheet1.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Select the worksheet in which your code is to run
3. Right click on the sheet tab and choose View Code, to open the Visual Basic Editor
4. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
5. Press the keys ALT + Q to exit the Editor, and return to Excel

Private Sub Worksheet_Change(ByVal Target As Range)
' hiker95, 12/08/2017, ME1033984
If Intersect(Target, Range("B4:B" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim sc As Long, nc As Long
With Application
  .EnableEvents = False
  .ScreenUpdating = False
  sc = 12
  If Cells(Target.Row, sc) = vbEmpty Then
    Cells(Target.Row, sc) = Target.Value & " " & Format(Now, "hh:mm")
  Else
    nc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1
    Cells(Target.Row, nc) = Target.Value & " " & Format(Now, "hh:mm")
  End If
  .EnableEvents = True
  .ScreenUpdating = True
End With
End Sub

Then add in the Part Number's in range B4:B500.


Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm, and, answer the "do you want to enable macros" question as "yes" or "OK" (depending on the button label for your version of Excel) the next time you open your workbook.

 

[mole999]

mole999,

Thanks for your reply.

any particular combination of browsers and text editor in use, should be straight forward as you know

I am not able to copy any macro code between the two code tags?

Any particular browser / editor in use ?

 

[hiker95]

mole999,

I think the problem started several days ago, just after the new Windows 10 installation.

The editor is the one in Excel 2007.

 

[ygurram]

ygurram,

I found a work around.

I had to copy the macro code into a blank worksheet.

Then I added the code tags, below, and, then copied the information in the blank worksheet, into the text between the code tags.


Below is the macro code to solve your request for Sheet1.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Select the worksheet in which your code is to run
3. Right click on the sheet tab and choose View Code, to open the Visual Basic Editor
4. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
5. Press the keys ALT + Q to exit the Editor, and return to Excel

Private Sub Worksheet_Change(ByVal Target As Range)
' hiker95, 12/08/2017, ME1033984
If Intersect(Target, Range("B4:B" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim sc As Long, nc As Long
With Application
  .EnableEvents = False
  .ScreenUpdating = False
  sc = 12
  If Cells(Target.Row, sc) = vbEmpty Then
    Cells(Target.Row, sc) = Target.Value & " " & Format(Now, "hh:mm")
  Else
    nc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1
    Cells(Target.Row, nc) = Target.Value & " " & Format(Now, "hh:mm")
  End If
  .EnableEvents = True
  .ScreenUpdating = True
End With
End Sub

Then add in the Part Number's in range B4:B500.


Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm, and, answer the "do you want to enable macros" question as "yes" or "OK" (depending on the button label for your version of Excel) the next time you open your workbook.

Hiker,

This Quote works perfectly. Thanks a ton

ygurram

 

[hiker95]

Hiker,

This Quote works perfectly. Thanks a ton

ygurram

ygurram,

Thanks for the feedback.

You are very welcome. Glad I could help.

And, come back anytime.