Скачать с ютуб Track the phases of your jobs with barcodes in Excel в хорошем качестве

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/temp... 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 [email protected]. 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/easyexcelan... Follow me on Facebook   / easyexcel.answers   IG @barbhendersonconsulting You can help and generate a translation to you own language http://www.youtube.com/timedtext_cs_p... *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    • How to insert VBA code in Excel   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