Complete Excel forms from a data sheet in Excel

Complete Excel forms from a data sheet in Excel. Free templates and templates with code are available for purchase for $50 USD
https://www.easyexcelanswers.com/templates.html

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

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 https://sqlspreads.com/?pid=barbhenderson 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.

https://www.amazon.com/shop/barbhenderson

I use a Blue condenser Microphone to record my videos, here is the link
https://amzn.to/37gyyGa

Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83


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 invoicing()
Dim r, c As Long
Dim i As Long
Dim ws As Worksheet
'path = "C:\Users\screa\OneDrive\Desktop\invoices\august\"
path = ThisWorkbook.path & "\"
r = 2
Do While Sheet2.Cells(r, 1) does not equal ""

'copy invoice
Sheets("invoice").Copy After:=Sheets(Sheets.Count)
'paste invoice
Set ws = ActiveSheet
'populate the fields from the data sheet
ws.Range("C8").Value = Sheet2.Cells(r, 1).Value 'invoice number
ws.Range("C9").Value = Sheet2.Cells(r, 2).Value 'date
ws.Range("C10").Value = Sheet2.Cells(r, 3).Value 'customer id
ws.Range("g8").Value = Sheet2.Cells(r, 4).Value 'customer name
ws.Range("g9").Value = Sheet2.Cells(r, 5).Value 'customer adr
ws.Range("g10").Value = Sheet2.Cells(r, 6).Value & ", " & Sheet2.Cells(r, 7).Value 'customer city and prov
ws.Range("g11").Value = Sheet2.Cells(r, 8).Value 'customer pc
ws.Range("b18").Value = Sheet2.Cells(r, 2).Value 'customer pc
ws.Range("c18").Value = Sheet2.Cells(r, 9).Value 'customer pc
ws.Range("G18").Value = Sheet2.Cells(r, 10).Value 'customer pc

ws.Name = Sheet2.Cells(r, 1).Value & Sheet2.Cells(r, 4).Value
filename = ws.Name
'Save as pdf with customer name and date
ActiveSheet.ExportAsFixedFormat xlTypePDF, path & filename & ".pdf", , , False

r = r + 1
Loop
End Sub