Bucky ,
Ik heb het idee opgevat om inderdaad maar één afdruk te maken: een pdf, die ik dan telkens in dezelfde map opsla, bijvoorbeeld onder het factuurnummer.
C27 klopt inderdaad. ik verwacht enkel 21% nodig te hebben maar kan het dan hier wel wijzigen.
Kan idd dan wel in 1 knoppie.
Ondertussen ben ik al zover:
Sub factuurboeken()
' factuur boeken
' cellen kopieren naar 1 rij (om ze gemakkelijker te kunnen kopiëren en plakken)
Range("F5").Select
Selection.Copy
Range("I7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F4").Select
Selection.Copy
Range("J7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B11:F11").Select
Selection.Copy
Range("K7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F29").Select
Selection.Copy
Range("L7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C27").Select
Selection.Copy
Range("M7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' cellen selecteren en kopieren
Range("I7:M7").Select
Selection.Copy
' naar eerste lege rij gaan in blad verkopen
' lege rij invoegen (op die manier krijg ik geen problemen met het totaal onderaan het werkblad)
' plakken van de cellen
End Sub
Voor de andere acties: afdrukken en leeg maken heb ik nog niets.
Alvast bedankt voor je hulp!