Macro: Bij lege cel moet script stoppen en andere script starten

[ewoutd]

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:

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

 

[tkint]

Beste,

Ik denk dat het script er als volgt moet uitzien :

 Sub Samenvoegen()
            Sheets("Maand 1").Select
            Range("A3").Select
            If ActiveSheet.Range("A3").Value = "" Then 
            volgendtabblad1
            Exit Sub
            else
            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
            end if
            end sub
            
            sub volgendblad1()
            Sheets("Maand 2").Select
            Range("A3").Select
            If ActiveSheet.Range("A3").Value = "" Then 
            volgendtabblad2
            Exit Sub
            else
            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 if
            end sub
            
            sub volgendtabblad2
            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

 

[ewoutd]

Top dat was hem! Dankjewel!