Track the phases of your jobs with barcodes in Excel

Track the phases of your jobs with barcodes in Excel. Identify the time and user for each phase. Free templates and templates with code are available for purchase for $50 USD
https://www.easyexcelanswers.com/templates.html
Addition Templates may be available on request

Click this link to check out my one-on-one training http://www.calendly.com/easyexcelanswers

For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting http://www.calendly.com/easyexcelanswers

I am able to provide online help on your computer at a reasonable rate.
I use Tube Buddy to help promote my videos
Check them out
https://www.Tubebuddy.com/easyexcelanswers

Follow me on Facebook
https://www.facebook.com/easyexcel.answers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_panel?c=UCFH2kZykqt-VX5W9waJzYvQ&tab=2

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.

How to insert VBA code in Excel https://youtu.be/AByFH0TN53M
Sub track()
Dim sname, wname As String
Dim jobn As String
Dim rng, rng1 As Range
Dim nrng As Range
Dim fstrow As Long
Dim i As Long
Dim lastrow As Long
Dim sttime As Date
Dim endtime As Date
Dim srng As Range
lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
jobn = Sheet1.Range("B2").Value
sname = Sheet1.Range("D2").Value
If sname = "" Then Exit Sub
'looking for the employee
Set nrng = Sheet2.Range("d:d").Find(What:=sname, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
searchdirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If nrng Is Nothing Then
MsgBox "Name not found"
Else
nrow = nrng.Row
wname = Sheet2.Cells(nrow, 5).Value
End If
'looking for the job number
If jobn not equal "" Then
Set rng = ActiveSheet.Range("A:A").Find(What:=jobn, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
searchdirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
restart:
ActiveSheet.Range("A:A").Find("").Select
ActiveCell.Value = jobn
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Date & " " & Time
ActiveCell.NumberFormat = "m/d/yy hh:mm AM/PM"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = wname
GoTo ende
Else
fstrow = rng.Row
r = fstrow
request:
If ActiveSheet.Cells(r, 4).Value = "" And ActiveSheet.Cells(r, 1).Value = jobn Then
ActiveSheet.Cells(r, 4).Select
ActiveSheet.Cells(r, 4).Value = Date & " " & Time
ActiveCell.NumberFormat = "m/d/yy hh:mm AM/PM"
ActiveSheet.Cells(r, 5).Value = wname
GoTo ende
End If
delivered:
If ActiveSheet.Cells(r, 6).Value = "" And ActiveSheet.Cells(r, 1).Value = jobn Then
ActiveSheet.Cells(r, 6).Select
ActiveSheet.Cells(r, 6).Value = Date & " " & Time
ActiveCell.NumberFormat = "m/d/yy hh:mm AM/PM"
ActiveSheet.Cells(r, 7).Value = wname
GoTo ende
End If
If ActiveSheet.Cells(r, 7).Value not equal "" Then
For r = fstrow To lastrow
If ActiveSheet.Cells(r, 1).Value = jobn And ActiveSheet.Cells(r, 4).Value = "" Or ActiveSheet.Cells(r, 6).Value = "" Then
If ActiveSheet.Cells(r, 4).Value = "" And ActiveSheet.Cells(r, 1).Value = jobn Then GoTo request
If ActiveSheet.Cells(r, 7).Value = "" And ActiveSheet.Cells(r, 1).Value = jobn Then GoTo delivered
End If
Next r
GoTo restart:
End If
End If
End If

ende:
Sheet1.Range("B2").ClearContents
Sheet1.Range("d2").ClearContents
Sheet1.Range("B2").Activate

Exit Sub
End Sub
Sub moveover()
Sheet1.Range("d2").Select
End Sub

Видео Track the phases of your jobs with barcodes in Excel канала Barb Henderson