excel lowest bid gets the job with good rating.
$2-8 AUD / hora
This is the current code, need you to edit it for
save file in PDF with file name from A1. it should overwrite if existing file. file should save to C:\Users\User\OneDrive\Invoice NAT\
Sub CreatePDF()
Dim wSheet As Worksheet
Dim vFile As Variant
Dim sFile As String
Set wSheet = ActiveSheet
sFile = Replace(Replace([url removed, login to view], " ", ""), ".", "_") _
& Range("A1") _
& ".pdf"
sFile = [url removed, login to view] & "" & sFile
vFile = [url removed, login to view] _
(InitialFileName:=sFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and FileName to save")
If Dir(vFile) > vbNullString Then _
If MsgBox("Overwrite File?", _
vbExclamation + vbYesNo, "Overwrite?") = vbNo Then Exit Sub
If vFile <> "False" Then
[url removed, login to view]("B2:J44").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "PDF file has been created."
End If
End Sub
Nº del proyecto: #16310587
Sobre el proyecto
Adjudicado a:
Hi Roddy.. Just bid on this project with just $5 which is very very low on my hourly rate you know that.. Please ping me if you are ok with this bid. :)
4 freelancers están ofertando un promedio de $6 / hora por este trabajo
Hello, I am Luis from Venezuela and it will be my pleasure to help you with this project. I can add the routine missing to save your work as pdf. Please contact me by chat to clarify somethings. Looking forward t Más
MS Excel Expert | VBA Champion | Available Immediately | Assured quality of the work and timed delivery |
