Hallo,
Ik heb een script gemaakt waarbij 3 tabbladen op volgorde samengevoegd worden in 1 tabblad en het script stopt zodra er een leeg tabblad aangetroffen is.
Dat werkt allemaal prima maar ik zou graag willen dat zodra het script gestopt is er een ander script gestart gaat worden.
Ik hoop dat jullie me kunnen helpen.
Alvast dank!
Het huidige script is nu zo:
Ik heb een script gemaakt waarbij 3 tabbladen op volgorde samengevoegd worden in 1 tabblad en het script stopt zodra er een leeg tabblad aangetroffen is.
Dat werkt allemaal prima maar ik zou graag willen dat zodra het script gestopt is er een ander script gestart gaat worden.
Ik hoop dat jullie me kunnen helpen.
Alvast dank!
Het huidige script is nu zo:
Code:
Sub Samenvoegen()
Sheets("Maand 1").Select
Range("A3").Select
If ActiveSheet.Range("A3").Value = "" Then Exit Sub
Selection.End(xlDown).Select
Selection.ClearContents
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("export").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Maand 2").Select
Range("A3").Select
If ActiveSheet.Range("A3").Value = "" Then Exit Sub
Selection.End(xlDown).Select
Selection.ClearContents
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("export").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Sheets("Maand 3").Select
Range("A3").Select
If ActiveSheet.Range("A3").Value = "" Then Exit Sub
Selection.End(xlDown).Select
Selection.ClearContents
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("export").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
End Sub