Om een factuur op te maken maak ik gebruik van de volgende functie:
'Pagina scheiding aanbrengen'
Sheets("Factuur").Activate
Dim I As Long, J As Long
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
Next I
Hiermee voeg ik een pagina einde in wanneer het ordernummer in kolom "A" wijzigt, waardoor elke order op een nieuwe pagina wordt weergegeven. Echt zijn de eerste 20 regels van de Excel bedoeld voor de koptekst van de factuur. Nu voegt hij dus meerdere pagina-eindes in, in de kop van de factuur. Hoe kan ik er voor zorgen dat de code past begint na regel 20?
Ik merk dat mijn kennis van VBA te beperkt is om dit probleem op te lossen a.d.h.v bronnen op het internet. Hoop dat jullie kunnen helpen
'Pagina scheiding aanbrengen'
Sheets("Factuur").Activate
Dim I As Long, J As Long
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
Next I
Hiermee voeg ik een pagina einde in wanneer het ordernummer in kolom "A" wijzigt, waardoor elke order op een nieuwe pagina wordt weergegeven. Echt zijn de eerste 20 regels van de Excel bedoeld voor de koptekst van de factuur. Nu voegt hij dus meerdere pagina-eindes in, in de kop van de factuur. Hoe kan ik er voor zorgen dat de code past begint na regel 20?
Ik merk dat mijn kennis van VBA te beperkt is om dit probleem op te lossen a.d.h.v bronnen op het internet. Hoop dat jullie kunnen helpen
