Terug naar nieuwste invoerblad

[Atwist]

Hallo forum leden,

Allen nog een gezegend nieuw jaar mag vandaag.

Heb hier onder een code staan waar ik graag naar het nieuwste invoerblad wil terug springen.

bv ik sta op invoerblad 1 en het nieuwste is 4 maar dit kan volgende maand 5 zijn

Sub Terug()
    If Sheets("Gas").Visible Then Sheets("Gas").Visible = False
    If Sheets("Water").Visible Then Sheets("Water").Visible = False
    If Sheets("Electra").Visible Then Sheets("Electra").Visible = False
    Sheets("[B]Hier moet ik naar het nieuwste invoerblad gaan[/B]").Select
    End Sub
End Sub

Ik werkte voorheen met

Sheets("Invoerblad 4").Select

Maar moest dit telkens aanpassen.

Kan iemand mij op weg helpen

 

[Cobbejaan]

Als het nieuwste blad altijd als laatste staat kan je dit gebruiken:

Sub Terug()
    If Sheets("Gas").Visible Then Sheets("Gas").Visible = False
    If Sheets("Water").Visible Then Sheets("Water").Visible = False
    If Sheets("Electra").Visible Then Sheets("Electra").Visible = False
    Sheets(ThisWorkbook.Sheets.Count).Activate
End Sub

 

[Atwist]

Dank je Cobbejaan

Dat was een snelle reactie en een mooie oplossing dit werk voor mij erg goed:thumb:

Trouwens welkom op het forum.