Beste Excel fetisjisten,
Voor mijn stageproject wil ik in cel B1 het nummer uit cel A7 invullen.
Vervolgens moet er dan een pdf van het bestand worden gemaakt en dit moet dan onder de naam uit cel B7 worden opgeslagen.
Dit process moet dan in een soort loop door blijven gaan door elke keer een cel lager te gebruiken behalven voor cel B1.
Dus de volgende keer wordt cel B1 ingevuld met cel A8 en vernoemt naar cel B8 en daarna A9 en B 9.
Dit process gaat door tot A97 en B B97.
Momenteel heb ik dit aan rapport code:
Sub RAPPORAPPORT()
'
' RAPPORAPPORT Macro
'
' Sneltoets: Ctrl+Shift+R
'
ActiveCell.FormulaR1C1 = "=R[6]C[-1]"
ActiveCell.Offset(1, 0).Range("A1").Select
Calculate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\Zorgdivisie\Stagiairs\Monitoring & Control\BOTMAP\" & Range("B7").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-1]"
ActiveCell.Offset(1, 0).Range("A1").Select
Calculate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\Zorgdivisie\Stagiairs\Monitoring & Control\BOTMAP\" & Range("B8").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Ook heb ik een excel bestandje toegevoegd wat op het werkelijke bestandje lijkt.
Vanwegen privacy is er heel veel weggelaten.
bestand voor computer assistentie.xlsm