Dag Roncancio,
Nou, omdat de link ("hij schrijft "linkje) waarvan Wigi zegt dat ik die eens moet bestuderen, gaat over Excel 2007. Ik heb 2003. Dat verschil zal er niet voor niets zijn. Daarom vroeg ik me af of het bestuderen voor mij zin zou hebben (andere features in 2007 die 2003 toch niet werken misschien?)
NB Jij en Wigi zijn experts. Vergeleken met jullie ben ik een volslagen leek.
Tot nu toe heb ik dit:
'Openen verse kopie template Verlofkaart
Windows("VERLOFKAART.xls").Activate
'Openen Pers Db
Workbooks.Open Filename:= _
"D:\WERK\Klanten\.........\Verlofkaart\Pers Db.xls"
Windows("VERLOFKAART.xls").Activate
'Data vullen vanuit Personeels Db in template Verlofkaart
Windows("Pers Db.xls").Activate
Sheets("Werkblad").Select
Range("A8").Select
Selection.Copy
Windows("VERLOFKAART.xls").Activate
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'..ENZOVOORTS (dit herhaalt zich zo'n 6 te vullen velden). ALS DIT KLAAR IS DAN
'Saven Verlofkaart geindividualiseerd
VFileName = "VERLOFKAART" & " " & Worksheets("Medewerker").Range("C3").Value & _
" " & Worksheets("Medewerker").Range("E8").Value & ".xls"
If ThisWorkbook.FullName = VFileName Then
Exit Sub
End If
TOT HIER GAAT HET GOED. MAAR DAN KOMT HET EERSTE HOBBELTJE (NOG NIET EENS ZO'N GROTE)
VFileName = Application.GetSaveAsFilename(InitialFileName:=VFileName)
HET SYSTEEM VRAAGT MIJ NU OF IK DE KNOP "OPSLAAN WIL INDRUKKEN". IK ZOU GRAAG WILLEN DAT HIJ DAT AUTOMATISCH ZOU DOEN, MAAR IK WEET NIET WELKE OPDRACHT DAARBIJ HOORT
If VFileName <> False Then
bSaveMacroActive = True
ThisWorkbook.SaveAs Filename:=VFileName
bSaveMacroActive = False
End If
Cancel = True
DAN GA IK DE BOVENSTE REGEL DELETEN VAN DE FILE MET DAARIN DE DATA DIE IK ZOJUIST IN DE TEMPLATE HEB INGEKOPIEERD. (SORRY, IS NIET CHIQUE, MAAR WERKT WEL. BOVENDIEN IS DIT MAAR EENMALIG. DUS NIET MIJN GROOTSTE ZORG)
'regel deleten in Per Db(shift up)
Windows("Pers Db BJU.xls").Activate
Sheets("Werkblad").Select
Rows("8:8").Select
Range("G8").Activate
Selection.Delete Shift:=xlUp
' Saven en Sluiten Pers Db bestand
ActiveWorkbook.Save
ActiveWindow.Close
'sluiten geindividualiseerde file
'NB in ThisWorkbook staat hij eerst een verse template moet openen
'voordat deze geindividualiseerde file gesloten wordt
ActiveWindow.Close
NB DE MACRO GAAT NU INDERDAAD NAAR This Workbook. Die plak ik even hiertussen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'nieuwe Template openen
Workbooks.Open Filename:= _
"D:\...VERLOFKAART.....xls"
Sheets("PZ").Select
End Sub
HET PROBLEEM IS DAT HIJ DIT WEL LEEST, MAAR NIETS OPENT. (nb IK DOE HET STAP VOOR STAP MET F8)
DAN KOMT HET EINDE VAN DE MODULE
End Sub
EN SLUIT HIJ DE GEINDIVIDUALISEERDE FILE. EN DUS GEEN TEMPLATE WAAR IK HET VOLGENDE RONDJE KAN LOPEN..
NOU GOED. MEER WEET EN KAN IK OP DIT MOMENT NIET.
HEB JIJ OF WIGI OF IEMAND ANDERS MISSCHIEN EEN IDEE HOE IK DIT ROND MOET KRIJGEN?
