Dag iedereen,
Ik ben bezig met een leuke excel slide, waaring 75 Frames staan afgebeeld, met al dan niet wat inhoud.
De frames zijn gewoon telkens een rechthoek van ca 40 rijen en 23 kolommen.
Ze zijn in de sheet in 5 kolommen en 15 rijen ingedeeld, met dus een 75-tal frames.
Mijn macro bepaald of er inhoud is in het frame, en of dit dus al dan niet bij de print area mag worden toegelaten.
En de macro doet het perfect zoals op de afbeelding te zien is, echter wanneer ik de tellers j en i opdrijf naar het gewenste getal lukt het niet meer. :shocked:
j moet tot 4 en i tot 14.
Ik begrijp totaal niet waar de fout zit.
Kan iemand me assisteren?
Ik ben bezig met een leuke excel slide, waaring 75 Frames staan afgebeeld, met al dan niet wat inhoud.
De frames zijn gewoon telkens een rechthoek van ca 40 rijen en 23 kolommen.
Ze zijn in de sheet in 5 kolommen en 15 rijen ingedeeld, met dus een 75-tal frames.
Mijn macro bepaald of er inhoud is in het frame, en of dit dus al dan niet bij de print area mag worden toegelaten.
En de macro doet het perfect zoals op de afbeelding te zien is, echter wanneer ik de tellers j en i opdrijf naar het gewenste getal lukt het niet meer. :shocked:
j moet tot 4 en i tot 14.
Ik begrijp totaal niet waar de fout zit.
Code:
Sub PrintArea()
'Bepaal de print area
myPA = Range(Cells(10, 3), Cells(41, 21)).Address
For j = 0 To 3
For i = 0 To 3
myPAadd = Range(Cells(10 + 40 * i, 3 + j * 23), Cells(41 + 40 * i, 21 + j * 23)).Address
If WorksheetFunction.CountA(Range(myPAadd)) <> 0 Then
myPA = myPA & "," & myPAadd
End If
Debug.Print i & " - " & j & " - " & WorksheetFunction.CountA(Range(myPAadd))
Next i
Next j
Debug.Print myPA
Worksheets("VGP").PageSetup.PrintArea = myPA
End Sub
Kan iemand me assisteren?