opslaanknop gemaakt maar slaat niet goed op

[lvr2000]

een keer geeft hij hem aan als excel bestand
en de andere keer niks (blanco bestand)

Private Sub CommandButton2_Click()
Sheets("factuur").Copy
With ActiveWorkbook
    With .Sheets(1).UsedRange
        .Value = .Value
    End With
     .SaveAs "C:" & Workbooks("HOVENIERS factuur.xlsm").Worksheets("factuur").Range("I9") & " " & Workbooks("HOVENIERS factuur.xlsm").Worksheets("factuur").Range("D12")
    .Close
End With
End Sub

 

[HSV]

In je vorige vraag vergat je ook de backslash achter de dubbele punt.
Of staat die in cel I9 ?

Je informatie is maar summier.

 

[lvr2000]

ik snap het rode niet
wil u het aub beter uitlegen
en wat moet ik dfan meer geven
in I9 staat de klant
in D12 staat de datum
het bestand heet HOVENIERS factuur
het tabblad heet factuur

 

[huijb]

Verplaatst naar VBA

 

[OctaFish]

Dit

     .SaveAs "C:" & Workbooks("HOVENIERS factuur.xlsm").Worksheets("factuur").Range("I9")

moet in ieder geval dan zo:

     .SaveAs "C:[B]\[/B]" & Workbooks("HOVENIERS factuur.xlsm").Worksheets("factuur").Range("I9")