OSCAR Bord

[gerrit123456789]

Op het werk gebruiken we Oscar borden om de productie per uur te volgen en bij te sturen.

Deze wil ik digitaal maken, zodat we deze kunnen opslaan.
Dit wil ik doen als een PDF bestand met als bestandsnaam de datum en tijd en daar achter nog de waarde van cel I1

Dit wil me niet lukken. Ik krijg telkens een compileerfout.

Dit gebruik ik als VBA

Sub SaveAs()
ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Gerrit\Documents" & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh.mm") & ".pdf"

Range("G1").Select
Selection.ClearContents
Range("C7:C14").Select
Selection.ClearContents
Range("E7:H14").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=15
Range("B25:J25").Select
Selection.ClearContents
Range("B27:K34").Select
Selection.ClearContents

End Sub

Hierbij het bestand.

Bekijk bijlage OSCAR TK3 versie 1.xlsm

Wie helpt me verder op weg.

Groet,

Gerrit

 

[edmoor]

Je kan geen PDF aanmaken met SaveCopyAs
Dat gaat met ExportAsFixedFormat Type:=xlTypePDF

 

[SjonR]

probeer dit eens:

ActiveSheet.ExportAsFixedFormat 0, "C:\Users\Gerrit\Documents\" & Format(Date, "dd-mm-yyyy") & "   " & Format(Time, "hh.mm") & ".pdf"

 

[gerrit123456789]

Ik heb het volgende erin gezet, maar dat werkt ook niet.

Sub SaveAs()
ExportAsFixedFormat Type:=xlTypePDF "C:\Users\Gerrit\Documents", & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh.mm") & ".pdf"

Gerrit

 

[edmoor]

Die syntax is ook niet correct.
Doe het zoals aangegeven door SjonR in #3.

 

[SjonR]

er mankeert een hoop aan wat je hebt geprobeerd, maar je zal op zijn minst even moet aangeven in de code WAT er moet worden geëxporteerd.

voluit geschreven:

[COLOR="#FF0000"]ActiveSheet.[/COLOR]ExportAsFixedFormat Type:=xlTypePDF[COLOR="#FF0000"],[/COLOR] [COLOR="#FF0000"]Filename:=[/COLOR]"C:\Users\Gerrit\Documents[COLOR="#FF0000"]\[/COLOR]" & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh.mm") & ".pdf"

 

[gerrit123456789]

Ja, dat werkt.

Nu alleen nog de waarde van cel I1 toevoegen aan de bestandsnaam.

 

[SjonR]

voila:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Gerrit\Documents\" & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh.mm") & " " & [I1] & ".pdf"

 

[gast0660]

Code van SjonR en alle overbodige selects eruit gehaald.

Sub SaveAs()
With ActiveSheet
    .ExportAsFixedFormat 0, "C:\Users\Gerrit\Documents\" & Format(Date, "dd-mm-yyyy") & "   " & Format(Time, "hh.mm") & ".pdf"
    .Range("G1,C7:C14,E7:H14,B25:J25,B27:K34").ClearContents
End With
End Sub

 

[SjonR]

en het stukje

 & ".pdf"

kan er net zo goed uit.

 

[gerrit123456789]

Ik wil graag dat hij alleen een bepaald gedeelte van het werkblad opslaat als pdf.

Het is Cel A1 tot K34.

Kan ik dat hiervoor zetten met Range ("A1:K34") en dan het volgende:

.ExportAsFixedFormat 0, "C:\Users\Gerrit\Documents" & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh.mm") & Range("I1")
.Range("G1,C7:C14,E7:H14,B25:J25,B27:K34").ClearContents
End With
End Sub

 

[SjonR]

lees je wel wat er geschreven wordt?

je mist nog steeds een \ achter documents.

Range("A1:K34).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Gerrit\Documents[COLOR="#FF0000"]\[/COLOR]" & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh.mm") & " " & [I1]

 

[edmoor]

Het forum sloopt die eraf.
Gebruik codetags bij het plaatsen van code.

 

[gerrit123456789]

Het werkt.

Heel erg bedankt.

Ik kan nu weer verder om het te optimaliseren.