Cellen leegmaken, maar niet de formules wissen

Status
Niet open voor verdere reacties.
Beste warme bakkertje

ondertussen ben ik eruit gekomen dat ik wel de schrijfrechten heb, maar nog steeds lukt het me niet om de code in te voeren. Om het uit te proberen op mijn usb heb ik het volgende geprobeerd:

Sub Gegevensoplsaan()

Dim path As String
With Sheets("VERHUURDOCUMENT")
path = "F:\"
.ExportAsFixedFormat 0, path
.Range("J2,J4,B13:B16,F18:G23,C24:C25,E27:E28,F30").ClearContents
End With
End Sub


alsook:

Sub Gegevensoplsaan()
Dim path As String
With Sheets("VERHUURDOCUMENT")
path = "F:\"& Year(Date) & "\"& "\" & Format(.Range("J2"), "yyyymmdd") & .Range("B13") & .Range("J1") & ".pdf"
.ExportAsFixedFormat 0, path
.Range("J2,J4,B13:B16,F18:G23,C24:C25,E27:E28,F30").ClearContents
End With
End Sub

F is de naam van de usb-schijf. Ik krijg nog steeds de foutmelding 1004, en dan staat .ExportAsFixedFormat 0, path in het geel.

Ligt het echt aan de pad naam, of doe ik iets verkeerd?

Mvg


Lies
 
Code:
path = "F:\" & Year(Date) & "\" & Format(.Range("J2"), "yyyymmdd") & .Range("B13") & .Range("J1") & ".pdf"

En ja, het ligt echt aan de padnaam want voor de rest werkt dit perfect.(althans als ik het test)
 
Laatst bewerkt:
Probeer het nu eens eerst heel simpel met:

Code:
thisworkbook.ExportAsFixedFormat 0, "F:\voorbeeld.pdf"
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan