Hi Barb, this is terrific and extremely helpful. How would I make it so instead of it moving to the next empty row it went to the next column for another barcode entry and then 1 more entry, then it would return to the next empty row?
Thank you this is helpfull even i havent try it, i used to scan log during manual packing at cctv. Its easy to track down while alot package scanned in a day
Hello Barb is it possible if we use formula to scan a barcode then with the formula's help it will convert it to the name type of item? Is it the "IF" formula?
did you remember to replace the text with the symbol? Dim x As Integer For x = 2 To 100 If Cells(x, 1).Value "" And Cells(x, 2).Value = "" Then Cells(x, 2).Value = Date & " " & Time Cells(x, 2).NumberFormat = "m/d/yyyy h:mm AM/PM" End If Next Range("B:B").EntireColumn.AutoFit End Sub
How can I get this code to work for the entire sheet beyond the 100th Row? Dim x As Integer For x = 2 To (not sure what to put here, I keep getting errors).
Hello! Thanks for the info. Now, how can I get the names of IDs, after scanned, into Excel, using code PDF417, or other methods? I have a Symbol Barcode Scanner, from Zebra...
You must set up another sheet that displays the information related to each barcode and then have the system search and display the information when the bar code is scanned in
The time is based on a change in the cell so when it is scanned in it produces a time, you would probably have to scan the item again to produce out time.
Hello Barb, i have 2 sheets . Sheet 1 my " Donnie" and sheet 2 "DDATA" .I Scan on sheet Donnie block A1 andBarcode should appear on A1 sheet DDATA then date and time in block B making up 1 unit,If i scan the same barcode again it fills block C on sheet. DDATA ( VBA sheet 5 ) ON THE LIST AT THE VBA Project My Donnie is sheet 5 and DDATA is sheet 3 . I use this code in sheet VBA 3 Donnie: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If Target = "" Then Exit Sub Dim w2 As Worksheet, bcr As Range, nr As Long, nc As Long, n As Long With Application .EnableEvents = False .ScreenUpdating = False Set w2 = Sheets("Sheet5") With w2 n = Application.CountIf(w2.Columns(1), Target.Value) If n = 0 Then nr = w2.Cells(w2.Rows.Count, "A").End(xlUp).Row + 1 If nr = 2 And w2.Range("A1") = vbEmpty Then nr = 1 End If w2.Range("A" & nr) = Target.Value w2.Range("B" & nr) = Now() w2.Range("B" & nr).NumberFormat = "mm/dd/yyyy hh:mm:ss AM/PM" w2.Columns("A:B").AutoFit ElseIf n > 0 Then nr = w2.Cells(w2.Rows.Count, "A").End(xlUp).Row + 1 If w2.Cells(nr, 1).Value = Target.Value Then nc = w2.Cells(1, Columns.Count).End(xlToLeft).Column + 1 w2.Cells(1, nc) = Now() w2.Cells(1, nc).NumberFormat = "mm/dd/yyyy hh:mm:ss AM/PM" w2.Columns(nc).AutoFit Else Set bcr = w2.Columns(1).Find(Target.Value, LookAt:=xlWhole) nc = w2.Cells(bcr.Row, Columns.Count).End(xlToLeft).Column + 1 w2.Cells(bcr.Row, nc) = Now() w2.Cells(bcr.Row, nc).NumberFormat = "mm/dd/yyyy hh:mm:ss AM/PM" w2.Columns(nc).AutoFit End If End If End With Target.Clear .EnableEvents = True .ScreenUpdating = True End With End Sub I get a error at : " Set w2 = Sheets("Sheet5") " Please Help
Entred code as suggested. No result. Am I missing something? Private Sub Worksheet_Change(ByVal Target As Range) Dim x As Integer For x = 2 To 100 If Cells(x, 1).Value "" And Cells(x, 2).Value = "" Then Cells(x, 2).Value = Date & " " & Time
Cells(x, 2).NumberFormat = "m/d/yyyy h:mm AM/PM" End If Next Range("B:B").EntireColumn.AutoFit End Sub
You are trying to do it in one step. this should be installed on the work sheet and the rest of the code should be in a sub called "receive" Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("B2")) Is Nothing Then Call receive Application.EnableEvents = True End If End Sub
Hi Barb, this is terrific and extremely helpful. How would I make it so instead of it moving to the next empty row it went to the next column for another barcode entry and then 1 more entry, then it would return to the next empty row?
Great video, but I'm having problems with the hanging End If and End Sub commands. Am I doing it wrong?
Check that there is a if statement to go with you end if and there can only be one end sub
Thank you this is helpfull even i havent try it, i used to scan log during manual packing at cctv. Its easy to track down while alot package scanned in a day
You're welcome!
Hello Barb is it possible if we use formula to scan a barcode then with the formula's help it will convert it to the name type of item? Is it the "IF" formula?
Have you seen this video. I think it is what you need. ruclips.net/video/cXZ4uVqAwhU/видео.html
I can't get it to work. Not sure what I am doing wrong
did you remember to replace the text with the symbol?
Dim x As Integer
For x = 2 To 100
If Cells(x, 1).Value "" And Cells(x, 2).Value = "" Then
Cells(x, 2).Value = Date & " " & Time
Cells(x, 2).NumberFormat = "m/d/yyyy h:mm AM/PM"
End If
Next
Range("B:B").EntireColumn.AutoFit
End Sub
Thank you!!!
It was the first step saving me :)
You're welcome!
thank you so much!!! i clicked on every link.....! i hope it helps you!
Glad it helped!
For x = 2 To 100 - when i try increase the range its not working showing runtime error'6' overflow.. how can i solve this?
I have run the code using for x =2 to 5000 without any error, try again
THANKS, IF I WANT I COLUMN A DATE AND COLUMN B BARCODE. HOW DO I DO THAT?
How can I get this code to work for the entire sheet beyond the 100th Row?
Dim x As Integer For x = 2 To (not sure what to put here, I keep getting errors).
the last row is 1048576
@@BarbHendersonconsulting it gives me an error when I put in a number that large.
@@christlwagner6937 have you put in dim r as long?
@@BarbHendersonconsulting I have it just causes a delay between scans, it doesn't make it easy to scan in a large amount of data.
Hi
This code is working on manual entries but when I scan barcodes by add-ins in excel it is not showing the time and date.
Please help
same here Did you figure it out?
How about if I scan the barcode the item name will appear and it’s price
Thank you
That can be done if you set up a second sheet with description and price
i must say terrific Idea thank you
Most welcome 😊
Hello! Thanks for the info. Now, how can I get the names of IDs, after scanned, into Excel, using code PDF417, or other methods? I have a Symbol Barcode Scanner, from Zebra...
You must set up another sheet that displays the information related to each barcode and then have the system search and display the information when the bar code is scanned in
thank you so much teacher i really was looking for this.
This is awesome!!
thanks
This helped a lot, thank you!
HI I NEED AUTOMATIC SUM QYT OF barcode (In case the code repeats the quantity
Nice! Thanks Barb!
You are so welcome!
Amazing, thank you so much!
Very good
Love you
You teach very good
Can you please tell me how to programme time in and time out in same sheet
The time is based on a change in the cell so when it is scanned in it produces a time, you would probably have to scan the item again to produce out time.
Hello Barb, i have 2 sheets . Sheet 1 my " Donnie" and sheet 2 "DDATA" .I Scan on sheet Donnie block A1 andBarcode should appear on A1 sheet DDATA then date and time in block B making up 1 unit,If i scan the same barcode again it fills block C on sheet. DDATA ( VBA sheet 5 ) ON THE LIST AT THE VBA Project My Donnie is sheet 5 and DDATA is sheet 3 . I use this code in sheet VBA 3 Donnie:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Dim w2 As Worksheet, bcr As Range, nr As Long, nc As Long, n As Long
With Application
.EnableEvents = False
.ScreenUpdating = False
Set w2 = Sheets("Sheet5")
With w2
n = Application.CountIf(w2.Columns(1), Target.Value)
If n = 0 Then
nr = w2.Cells(w2.Rows.Count, "A").End(xlUp).Row + 1
If nr = 2 And w2.Range("A1") = vbEmpty Then
nr = 1
End If
w2.Range("A" & nr) = Target.Value
w2.Range("B" & nr) = Now()
w2.Range("B" & nr).NumberFormat = "mm/dd/yyyy hh:mm:ss AM/PM"
w2.Columns("A:B").AutoFit
ElseIf n > 0 Then
nr = w2.Cells(w2.Rows.Count, "A").End(xlUp).Row + 1
If w2.Cells(nr, 1).Value = Target.Value Then
nc = w2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
w2.Cells(1, nc) = Now()
w2.Cells(1, nc).NumberFormat = "mm/dd/yyyy hh:mm:ss AM/PM"
w2.Columns(nc).AutoFit
Else
Set bcr = w2.Columns(1).Find(Target.Value, LookAt:=xlWhole)
nc = w2.Cells(bcr.Row, Columns.Count).End(xlToLeft).Column + 1
w2.Cells(bcr.Row, nc) = Now()
w2.Cells(bcr.Row, nc).NumberFormat = "mm/dd/yyyy hh:mm:ss AM/PM"
w2.Columns(nc).AutoFit
End If
End If
End With
Target.Clear
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
I get a error at : " Set w2 = Sheets("Sheet5")
"
Please Help
Thanks a lot
Entred code as suggested. No result. Am I missing something?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
For x = 2 To 100
If Cells(x, 1).Value "" And Cells(x, 2).Value = "" Then
Cells(x, 2).Value = Date & " " & Time
Cells(x, 2).NumberFormat = "m/d/yyyy h:mm AM/PM"
End If
Next
Range("B:B").EntireColumn.AutoFit
End Sub
You are trying to do it in one step.
this should be installed on the work sheet and the rest of the code should be in a sub called "receive"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B2")) Is Nothing Then
Call receive
Application.EnableEvents = True
End If
End Sub
I get an "Only comments may appear after End Sub, End Function, or End Property" error when I try to run this macro. What am I doing wrong?
just delete one End Sub
Useful, thanks!!