automatische: datum, verhoging fact nr, kopie opslaan in map en huidig doc leegmaken

[Marieke1980]

Ik ben waarschijnlijk de zoveelste met deze vraag Ik ben er al even mee bezig namelijk en veel over gelezen en aardig mijn hoofd over gebroken ik doe dit ook voor het eerst by the way Maar ik begrijp niet wat ik verkeerd doe. Ik wil een factuur maken welke een automatische datum en een factuurnummer heeft die bij opslaan verhoogd, dit is stap 1
Voor zover gaat het me nog aardig af hier heb ik de volgende macro voor gemaakt:

Sub VolgFact()
Range("B12").Value = Range("B12").Value + 1
Range("A1543").ClearContents
Range("B11").Value = Date
End Sub

Nu loop ik alleen contact vast bij mijn stap 2
Hierin wil ik een kopie van het document met een sneltoets opslaan, factnr ophogen en de ingevoerde gegevens in de tabel weer leegmaken
Hiervoor dacht ik de volgende macro te gebruiken

Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "C:\Gebruikers\rheysman\Bureaublad\roelinka\2014\Fact" & Range("B12").Value & ".xlsx"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub

Nu geeft hij alleen constant de volgende regel in het geel weer:

ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook

Hier zit waarschijnlijk een fout in maar ik zie hem niet, nu ben ik ook een leek op dit gebied hoor
ik hoop dat ik een beetje duidelijk ben geweest en dat jullie het wel zien wat ik verkeerd doe en mijn dag weer weer goed maken

Alvast heel erg bedankt

 

[Warme bakkertje]

NieuwFact = "C:\Gebruikers\rheysman\Bureaublad\roelinka\2014\" & "Fact" & Range("B12").Value & ".xlsx"

 

[mvw64]

Misschien kan je er zo iets mee.
Opslaan als kopie

 

[Marieke1980]

Hoi Rudi,

Wanneer ik deze code aanpas in die van jouw hou ik helaas hetzelfde probleem

Groetjes Marieke

 

[Marieke1980]

Hoi MVW64,

Wanneer ik op de knop opslaan klik in jouw bestand zegt hij naam invullen. Wat moet ik invullen en waar?

Bedankt voor jullie snelle reacties trouwens

 

[mvw64]

Naam van de klant in cel B5
Nu is het zonder Naam invullen.

 

[Marieke1980]

Opslaan op naam is niet nodig hij moet het onder het factnr opslaan
Maar krijg nu weer een fout ik heb nu het volgende:

Sub VolgFact()
'If Range("B5") = Empty Then If MsgBox("Naam invullen", , "Factuur") Then Exit Sub

Range("B11").Value = Date
Range("B12").Value = Range("B12").Value + 1
ActiveSheet.Shapes("Knop 1").Visible = False 'Knop verbergen

ActiveWindow.SelectedSheets.PrintOut 'Afdrukken

'Opslaan als kopie: met naam datum en factuurnummer
'Het pad aanpassen en de extensie aanpassen .xls in .xlsm
ActiveWorkbook.SaveCopyAs Filename:="C:\Gebruikers\rheysman\Bureaublad\roelinka\2014\" & Sheets("Blad1").Range("B5") & " - " & Date & " - " & Sheets("Blad1").Range("B12") & ".xls"
Range("B5:B7,B11,A1543").ClearContents
ActiveSheet.Shapes("Knop 1").Visible = True 'Knop zichtbaar
Application.Goto Range("A1"), True
End Sub

Naam, adres, postcode en woonplaats mag gewoon blijven staan
Hij drukt de factuur nu ook af dat is eigenlijk ook wel fijn, weet alleen niet of dit ook jouw bedoeling was?
En hij maakt de cellen A1543 niet leeg

 

[mvw64]

Probeer het zo

ActiveWorkbook.SaveCopyAs Filename:="C:\Gebruikers\rheysman\Bureaublad\roelinka\2014\" & Sheets("Blad1").Range("B12") & ".xls"

 

[Marieke1980]

Wederom een gele regel zie bijlage
Wat doe ik niet goed........
Hij slaat nog steeds geen kopie op in mijn map 2014 en maakt de tabel niet leeg
Hij verhoogd nog steeds wel fact nr, drukt fact af en vult datum wel netjes in

Bedankt voor je geduld

 

[mvw64]

Ik denk dat het pad niet goed is of de extensie
Begin om te proberen het eerst eens met in C op te slaan en kijk of dit goed gaat
Pas daarna het pad verder aan

ActiveWorkbook.SaveCopyAs Filename:="C:\" & Sheets("Blad1").Range("B12") & ".xls"
ActiveWorkbook.SaveCopyAs Filename:="C:\" & Sheets("Blad1").Range("B12") & ".xlsm"

 

[Marieke1980]

Idd nu werkt het wel je bent geweldig! Geen idee wat ik in mijn pad verkeerd heb staat had en heb dit namelijk wel tig keer na gekeken maar dan sla ik ze nu gewoon lekker elders op
Heel erg bedankt hoor