Sub declaratie_1()
Sheets("for input").Range("D4").Value = WorksheetFunction.Sum(Sheets(9).Range("C8:C2987"))
Sheets(9).Range("D8:Y2987").Copy
Sheets("converter sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("for input").Range("C4").Value = WorksheetFunction.Sum(Sheets("converter sheet").Range("C8:C2987"))
Sheets("converter sheet").Range("D8:Y2987").Clear
Sheets("for input").Activate
End Sub
^Het gaat om de bovenstaande code:
Wanneer de macro de sheets(9) niet kan vinden, wil ik dat de sub stopt. Dit wil ik ook graag nog kunnen uitbreiden naar sheets(10) t/m 20, dat wanneer er eentje niet wordt gevonden, de Sub stopt.
Sheets("for input").Range("D4").Value = WorksheetFunction.Sum(Sheets(9).Range("C8:C2987"))
Sheets(9).Range("D8:Y2987").Copy
Sheets("converter sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("for input").Range("C4").Value = WorksheetFunction.Sum(Sheets("converter sheet").Range("C8:C2987"))
Sheets("converter sheet").Range("D8:Y2987").Clear
Sheets("for input").Activate
End Sub
^Het gaat om de bovenstaande code:
Wanneer de macro de sheets(9) niet kan vinden, wil ik dat de sub stopt. Dit wil ik ook graag nog kunnen uitbreiden naar sheets(10) t/m 20, dat wanneer er eentje niet wordt gevonden, de Sub stopt.