Create a packing list in Excel. Create a packing sheet using barcodes in Excel. Free templates and templates with code are available for purchase for $50 USD
www.easyexcela...
Addition Templates may be available on request
Click this link to check out my one-on-one training www.calendly.co...
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 www.calendly.co...
Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click sqlspreads.com... to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.
I am able to provide online help on your computer at a reasonable rate.
Check out Crowdcast for creating your webinars
app.linkmink.c...
I use Tube Buddy to help promote my videos
Check them out
www.Tubebuddy....
Follow me on Facebook
/ easyexcel.answers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
www.youtube.com...
*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...
Sub packingsl()
Dim barcode As String
Dim rng As Range
Dim rown, erow As Long
Dim qty As Long
Dim coln As Long
Dim ws As Worksheet
Set ws = ActiveSheet
erow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
barcode = ActiveSheet.Range("C1")
If barcode = "" Then Exit Sub
If barcode not equal to "" Then
Set rng = Sheet1.Columns("d:f").Find(What:=barcode, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
MsgBox "number not found"
GoTo ende
Else
rown = rng.Row
coln = rng.Column
qty = Sheet1.Cells(rown, coln).Offset(0, 1).Value
ws.Cells(erow, 5).Value = qty
ws.Cells(erow, 1).Value = barcode
End If
Sheet1.Activate
Sheet1.Range(Cells(rown, 1), Cells(rown, 3)).Copy
ws.Activate
ActiveSheet.Cells(erow, 2).PasteSpecial
ActiveSheet.Cells(erow, 6).Value = Date & " " & Time
ActiveSheet.Cells(erow, 6).NumberFormat = "d/m/yyyy h:mm AM/PM"
End If
ende:
ActiveSheet.Range("C1").Value = ""
ActiveSheet.Range("C1").Select
End Sub
Sub complete()
Dim path As String 'path variable that stores the path
Dim erow As Long
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim Name As String
Name = ThisWorkbook.path & "\" & ActiveSheet.Name & " " & _
Format(Now(), "dd.mm.yy hh.mm") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveSheet.Range(Cells(3, 1), Cells(erow, 6)).ClearContents
ThisWorkbook.Save
End Sub
Негізгі бет Create a packing list in Excel
Пікірлер