Terug naar een cel via VBA

[vandenhoeckg]

Hallo allemaal

Ik ben al een tijdje opzoek naar een oplossing via internet maar het lukt me niet.

Ik heb een kasticket voor de zaak via Excel.
Alles werkt super goed. Tijd loopt, telt automatisch, ...

Nu mijn probleem.

Na het beëindigen van het ticket druk je op "Ctrl + a" en sluit deze af, slaat deze op, print uit, maakt alles leeg, ...

Nu blijft mijn cursor in de laatst ingevulde cel staan.
Het lukt me niet om de juiste code te vinden om na afsluiten de cursor opnieuw in A11 te laten komen.

Kan iemand me hierbij helpen aub?

Ik heb het ticket in bijlage geplaatst.

Groetjes Gregory

 

[gast0660]

Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe Ticket
ActiveSheet.Copy
NieuwFact = "C:\Users\Gregory\Documents\Parfum\2017\Kasticket2017\Ticket" & Range("F9").Value & ".xls"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlExcel8
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
VolgFact
[COLOR="#FF0000"]Application.Goto [A11][/COLOR]
end sub

 

[vandenhoeckg]

Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe Ticket
ActiveSheet.Copy
NieuwFact = "C:\Users\Gregory\Documents\Parfum\2017\Kasticket2017\Ticket" & Range("F9").Value & ".xls"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlExcel8
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
VolgFact
[COLOR="#FF0000"]Application.Goto [A11][/COLOR]
end sub

Zo simpel. Amai.
Bedankt voor de snelle reactie.

Groetjes Gregory

 

[gast0660]

OK:thumb:
Suc6