Dag mensen,
Ik ben momenteel bezig voor school om een factuur te maken via excel.
Ben al een heel eind op weg (eerste keer bezig met een macro)
Wanneer in het tabblad invoer de juiste klant en het product geselecteerd zijn en het juiste aantal dan is er eenvoudig d.m.v. een sneltoets control + shirt + s een kopie van het huidige werkblad te maken die opgeslagen word op mijn bureaublad in het mapje facturen en vervolgens verwijderd hij de gegevens om de volgende factuur te kunnen maken. Maar dit zullen jullie vast wel begrijpen als je de onderstaande VBA code ziet.
de huidige VBA code is:
Nu is mijn vraag:
Inplaats het actieveblad ( ActiveSheet.Copy) moet er een copy gemaakt worden van het tabblad Factuur. En als het even kan moet deze hard gekopieerd worden omdat het anders voor kan komen wanneer het huidige bestand niet geopend is de waardes onbekend zijn.
Alvast bedankt!!! ( bij reageren graag altijd met een korte toelichting, leer er graag van)
Ik ben momenteel bezig voor school om een factuur te maken via excel.
Ben al een heel eind op weg (eerste keer bezig met een macro)
Wanneer in het tabblad invoer de juiste klant en het product geselecteerd zijn en het juiste aantal dan is er eenvoudig d.m.v. een sneltoets control + shirt + s een kopie van het huidige werkblad te maken die opgeslagen word op mijn bureaublad in het mapje facturen en vervolgens verwijderd hij de gegevens om de volgende factuur te kunnen maken. Maar dit zullen jullie vast wel begrijpen als je de onderstaande VBA code ziet.
de huidige VBA code is:
Code:
Sub VolgFact()
Range("I5").Value = Range("I5").Value + 1
Range("C2").ClearContents
Range("C10").ClearContents
Range("G10").ClearContents
Range("I4").Value = Date
End Sub
Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "C:\Users\Sidney\Desktop\facturen\Fact" & Range("I5").Value & ".xlsx"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub
Inplaats het actieveblad ( ActiveSheet.Copy) moet er een copy gemaakt worden van het tabblad Factuur. En als het even kan moet deze hard gekopieerd worden omdat het anders voor kan komen wanneer het huidige bestand niet geopend is de waardes onbekend zijn.
Alvast bedankt!!! ( bij reageren graag altijd met een korte toelichting, leer er graag van)
Bijlagen
Laatst bewerkt door een moderator: