Ik wil in diverse bestanden dezelfde acties uitvoeren.
In het voorbeeld wil ik dus dat je de variabele doorloopt (waarbij de acties voor alle bestanden hetzelfde zijn) tot deze leeg is (van A11 t/m A14)
De bestanden zien er compleet zo uit:
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\B&C\1-DIRECTIE BEDRIJFSV&CONTROL.xlsm"
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\B&C\2-AFD FINANCIEN&CONTROL.xlsm"
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\Bestuur\1-RAAD VAN BESTUUR.xlsm"
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\Bestuur\2-STAFAFD BESTUURSONDERSTEUNING.xlsm"
Dit gedeelte is niet variabel:
I:\5Rapportage\FinancieleRapportage\Tertiaalrapportage\2016\€Invuldocumenten2016\
Dit zijn de variabele gedeelte:
B&C\1-DIRECTIEBEDRIJFSV&CONTROL
B&C\2-AFDFINANCIEN&CONTROL
1-RAADVANBESTUUR.xlsm
Bestuur\2-STAFAFDBESTUURSONDERSTEUNING
Nu heb ik dit zo opgelost maar volgens mij kan het openen van de bestanden dus veel handiger
Workbooks.Open Filename:= _
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\B&C\1-DIRECTIE BEDRIJFSV&CONTROL.xlsm"
ActiveSheet.Unprotect ("Worksheets.Name")
ActiveSheet.Range("$A$4:$C$1068").AutoFilter Field:=2
[X5:X1067].Select
Selection.ClearContents
[Y5].Select
ActiveCell.FormulaR1C1 = "=IF(RC[-24]="""","""",RC[-13]-RC[-9]-RC[-7])"
[Y5].Select
Selection.Copy
[Y6:Y1067].Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\B&C\2-AFD FINANCIEN&CONTROL.xlsm"
ActiveSheet.Unprotect ("Worksheets.Name")
ActiveSheet.Range("$A$4:$C$1068").AutoFilter Field:=2
[X5:X1067].Select
Selection.ClearContents
[Y5].Select
ActiveCell.FormulaR1C1 = "=IF(RC[-24]="""","""",RC[-13]-RC[-9]-RC[-7])"
[Y5].Select
Selection.Copy
[Y6:Y1067].Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\Bestuur\1-RAAD VAN BESTUUR.xlsm"
ActiveSheet.Unprotect ("Worksheets.Name")
ActiveSheet.Range("$A$4:$C$1068").AutoFilter Field:=2
[X5:X1067].Select
Selection.ClearContents
[Y5].Select
ActiveCell.FormulaR1C1 = "=IF(RC[-24]="""","""",RC[-13]-RC[-9]-RC[-7])"
[Y5].Select
Selection.Copy
[Y6:Y1067].Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\Bestuur\2-STAFAFD BESTUURSONDERSTEUNING.xlsm"
ActiveSheet.Unprotect ("Worksheets.Name")
ActiveSheet.Range("$A$4:$C$1068").AutoFilter Field:=2
[X5:X1067].Select
Selection.ClearContents
[Y5].Select
ActiveCell.FormulaR1C1 = "=IF(RC[-24]="""","""",RC[-13]-RC[-9]-RC[-7])"
[Y5].Select
Selection.Copy
[Y6:Y1067].Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
In het voorbeeld wil ik dus dat je de variabele doorloopt (waarbij de acties voor alle bestanden hetzelfde zijn) tot deze leeg is (van A11 t/m A14)
De bestanden zien er compleet zo uit:
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\B&C\1-DIRECTIE BEDRIJFSV&CONTROL.xlsm"
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\B&C\2-AFD FINANCIEN&CONTROL.xlsm"
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\Bestuur\1-RAAD VAN BESTUUR.xlsm"
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\Bestuur\2-STAFAFD BESTUURSONDERSTEUNING.xlsm"
Dit gedeelte is niet variabel:
I:\5Rapportage\FinancieleRapportage\Tertiaalrapportage\2016\€Invuldocumenten2016\
Dit zijn de variabele gedeelte:
B&C\1-DIRECTIEBEDRIJFSV&CONTROL
B&C\2-AFDFINANCIEN&CONTROL
1-RAADVANBESTUUR.xlsm
Bestuur\2-STAFAFDBESTUURSONDERSTEUNING
Nu heb ik dit zo opgelost maar volgens mij kan het openen van de bestanden dus veel handiger
Workbooks.Open Filename:= _
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\B&C\1-DIRECTIE BEDRIJFSV&CONTROL.xlsm"
ActiveSheet.Unprotect ("Worksheets.Name")
ActiveSheet.Range("$A$4:$C$1068").AutoFilter Field:=2
[X5:X1067].Select
Selection.ClearContents
[Y5].Select
ActiveCell.FormulaR1C1 = "=IF(RC[-24]="""","""",RC[-13]-RC[-9]-RC[-7])"
[Y5].Select
Selection.Copy
[Y6:Y1067].Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\B&C\2-AFD FINANCIEN&CONTROL.xlsm"
ActiveSheet.Unprotect ("Worksheets.Name")
ActiveSheet.Range("$A$4:$C$1068").AutoFilter Field:=2
[X5:X1067].Select
Selection.ClearContents
[Y5].Select
ActiveCell.FormulaR1C1 = "=IF(RC[-24]="""","""",RC[-13]-RC[-9]-RC[-7])"
[Y5].Select
Selection.Copy
[Y6:Y1067].Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\Bestuur\1-RAAD VAN BESTUUR.xlsm"
ActiveSheet.Unprotect ("Worksheets.Name")
ActiveSheet.Range("$A$4:$C$1068").AutoFilter Field:=2
[X5:X1067].Select
Selection.ClearContents
[Y5].Select
ActiveCell.FormulaR1C1 = "=IF(RC[-24]="""","""",RC[-13]-RC[-9]-RC[-7])"
[Y5].Select
Selection.Copy
[Y6:Y1067].Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"I:\5 Rapportage\Financiele Rapportage\Tertiaalrapportage\2016\€ Invuldocumenten 2016\Bestuur\2-STAFAFD BESTUURSONDERSTEUNING.xlsm"
ActiveSheet.Unprotect ("Worksheets.Name")
ActiveSheet.Range("$A$4:$C$1068").AutoFilter Field:=2
[X5:X1067].Select
Selection.ClearContents
[Y5].Select
ActiveCell.FormulaR1C1 = "=IF(RC[-24]="""","""",RC[-13]-RC[-9]-RC[-7])"
[Y5].Select
Selection.Copy
[Y6:Y1067].Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close