Goedemorgen allemaal,
Ff een "simpel" vraagje
Ik heb een bestand waar ik op verschillende sheets de volgende code gebruik.
Alleen nu blijft de sheet werkvergunning open staan, maar ik wil eigenlijk dat hij terug gaat naar de sheet waar ik begon.
Misschien is de code totaal ook niet netjes, maar hij werkte (redelijk)
Alvast bedankt
Ff een "simpel" vraagje
Ik heb een bestand waar ik op verschillende sheets de volgende code gebruik.
Code:
Sub Afdrukken_water()
'
' Afdrukken_water Macro
If MsgBox("U gaat nu de standaardlijsten voor water, installatieplan en toolbox afdrukken!" & vbCr & vbCr & "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Afdrukken") = vbCancel Then Exit Sub
ActiveSheet.Unprotect
Range("C41:L180,C605:L731").Select
Range("L41").Activate
Selection.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=-168
Range("J18").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True '
Range("E57").Select
Selection.Copy
Sheets("Werkvergunning").Range("N6").PasteSpecial Paste:=xlPasteValues
Worksheets("Werkvergunning").PrintOut Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub
Alleen nu blijft de sheet werkvergunning open staan, maar ik wil eigenlijk dat hij terug gaat naar de sheet waar ik begon.
Misschien is de code totaal ook niet netjes, maar hij werkte (redelijk)
Alvast bedankt