Goedenavond iedereen,
Bedoeling is om van bepaalde tabbladen in een open bestand (Test) bij het sluiten automatisch een kopie te maken naar een ander gesloten beveiligd bestand.
De bijgevoegde code werkt voor een enkel tabblad, dus de kopie wordt gemaakt naar het gesloten bestand zonder problemen.
Probleem: Graag zou ik de code aangepast zien dat dit niet voor 1 tabblad is maar voor meerdere tabbladen en dat de kopie dus ook zo wordt geplaatst in het gesloten bestand.
In de bijgevoegde code zie je om welke tabbladen het gaat.
Ik ben aan het zoeken geweest op iets met Array maar ik loop vast.
For Each ws In Sheets(Array("XTR", "VIP1", "VIP2"))
Graag jullie hulp hierbij.
Alvast bedankt.
Mvg.
Marc
Bedoeling is om van bepaalde tabbladen in een open bestand (Test) bij het sluiten automatisch een kopie te maken naar een ander gesloten beveiligd bestand.
De bijgevoegde code werkt voor een enkel tabblad, dus de kopie wordt gemaakt naar het gesloten bestand zonder problemen.
Probleem: Graag zou ik de code aangepast zien dat dit niet voor 1 tabblad is maar voor meerdere tabbladen en dat de kopie dus ook zo wordt geplaatst in het gesloten bestand.
In de bijgevoegde code zie je om welke tabbladen het gaat.
Code:
Sub Kopie()
Dim wbDst As Workbook
Dim rngSrc As Range
Dim rngDst As Range
Application.ScreenUpdating = False
Set rngSrc = Sheets("JAN").Range("A1:AL29")
'Dit moet voor ("JAN"),("FEB"),("MRT),("APR"),("MEI"),("JUN"),("JUL"),("AUG"),("SEP"),("OKT"),("NOV"),("DEC"),Range("A1:AL29")
Set wbDst = Workbooks.Open("\\SERVER-BAMG7PMH\Exel\Hrs\Backup1.xlsm")
'Backup1.xlsm is de naam van het werkboek waarnaar gekopieerd moet worden
With wbDst.Sheets("JAN")
'Dit moet ook worden: ("JAN"),("FEB"),("MRT),("APR"),("MEI"),("JUN"),("JUL"),("AUG"),("SEP"),("OKT"),("NOV"),("DEC")
.Unprotect
Set rngDst = .Range("A" & Rows.Count).End(xlUp).Offset(3)
rngSrc.Copy
rngDst.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Protect
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
wbDst.Close savechanges:=True
End Sub
Ik ben aan het zoeken geweest op iets met Array maar ik loop vast.
For Each ws In Sheets(Array("XTR", "VIP1", "VIP2"))
Graag jullie hulp hierbij.
Alvast bedankt.
Mvg.
Marc