factuur opslaan/gegevens blijven niet bestaan

[wesley5479]

goedendag beste helpers,

Mijn zwager vroeg mij een factuur formulier te maken in excel.

Ik heb dit gedaan en heb alle gegevens erin kunnen zetten.
Echter heb ik één probleem

Kort het verhaal met de macros die ik heb aangemaakt:

Wanneer hij het formulier invult moet hij bepaalde gegevens invullen
Het belangrijkste was dat de factuurnummers automatisch opvolgend zijn. en wanneer hij het formulier heeft ingevuld hem kan opslaan en hem kan printen
Daarbij wou ik dat wanneer hij weer het formulier opent dat de velden weer leeg zijn.
Op zich is me dit aardig gelukt echter, (en nu komt het probleem!!)
als hij opgeslagen is, en ik daarna het opgeslagen formulier wil openen, dan is hij LEEG!
Dus kort gezegd:
ik vul het formulier in, sla hem op, maar als ik hem wil bekijken is hij leeg
Het formulier dat opgeslagen wordt, moet naderhand nog weer geopend kunnen wordne met de juiste gegevens.
Wie heeft de oplossing hiervoor? wat doe ik fout?

Bijgevoegd heb ik het formulier
en hieronder ook daarbij de betreffende VBA code:

Range("F3").Value = Range("AA1").Value
Range("AA1").Value = Range("AA1").Value + 1
ActiveWorkbook.Save
Range("F7").Select
Range("F15").ClearContents
Range("F27").ClearContents
Range("F41").ClearContents
Range("F7:g11").ClearContents
Sheets("FACTUUR").Range("A1:f59").PrintOut
Sheets("factuur").Copy
With ActiveWorkbook
With .Sheets(1).UsedRange
.Value = .Value
End With
.SaveAs "C:\Users\wesle\OneDrive\Bureaublad\factuur\factuur" & [f7].Value & [f3].Value & ".xlsx"
.Close
End With
End Sub

Bijgevoegd nogmaals het formulier zelf

Ik hoop dat U me kunt helpen

Met vriendelijke groet
Wesley

 

[OctaFish]

Zet je code even in CODE tags, zoals het hoort

 

[wesley5479]

Range("F3").Value = Range("AA1").Value
Range("AA1").Value = Range("AA1").Value + 1
ActiveWorkbook.Save
Range("F7").Select
Range("F15").ClearContents
Range("F27").ClearContents
Range("F41").ClearContents
Range("F7:g11").ClearContents
Sheets("FACTUUR").Range("A1:f59").PrintOut
Sheets("factuur").Copy
With ActiveWorkbook
With .Sheets(1).UsedRange
.Value = .Value
End With
.SaveAs "C:\Users\wesle\OneDrive\Bureaublad\factuur\factuur" & [f7].Value & [f3].Value & ".xlsx"
.Close
End With
End Sub

 

[gast0660]

Het is nogal logisch dat je factuur leeg is als je eerst de cellen wist en daarna pas opslaat.
Probeer het eens zo en gebruik GEEN samengevoegde cellen.

Private Sub opslaanprinten_Click()
Application.ScreenUpdating = False
    Range("F3").Value = Range("AA1").Value
    Range("AA1").Value = Range("AA1").Value + 1
    Range("A1:f59").PrintOut
    Sheets("factuur").Copy
With ActiveWorkbook
With .Sheets(1).UsedRange
.Value = .Value
End With
Application.DisplayAlerts = False
    .SaveAs "C:\Users\wesle\OneDrive\Bureaublad\factuur\factuur" & " " & [f7].Value & " " & [f3].Value & ".xlsx"
Application.DisplayAlerts = True
    .Close
End With
    Range("D17,D19,D21,D23,F15,F27,F41,F7:G11").ClearContents
    ComboBox1.ListIndex = -1
    ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub