Wanneer cel leeg is naar juiste tabbald

[Roma]

Beste specialisten,

Mijn excelbestand start automatisch op met het tabblad Welkom. Nu wil ik graag dat als wanneer cel C12 leeg is dat hij dan automatisch naar het juiste kwartaal gaat.
Ik heb een code maar hij werkt niet.
Wie kan mij helpen.

 

[edmoor]

Plak dit in de ThisWorkbook sectie:

Private Sub Workbook_Open()
    Select Case UCase(Sheets("Welkom").Range("C12").Value)
        'In de huidig kwartaal opstarten
        Case "", "JA"
            Sheets("KWART " & Sheets("Welkom").Range("F17").Value).Select

        'Niet in de huidig kwartaal opstarten
        Case "NEE", "NEE:"
            Sheets("Welkom").Select
    End Select
End Sub

De code in Module1 moet je verwijderen.

Let erop dat, omdat er Nee: boven staat, Excel bij het invullen van Nee in die cel, meteen de voorgaande Nee:, dus incl de : neerzet. Daarom is deze ook meegenomen in de controle.

 

[Roma]

Edmoor,
Super bedankt
Ron

 

[Roma]

Edmoor,
Mijn tabbladen zijn verborgen. Welke code moet ik toevoegen?
Ron

 

[edmoor]

        Case "", "JA"
            With Sheets("KWART " & Sheets("Welkom").Range("F17").Value)
                .Visible = True
                .Select
            End With

 

[Roma]

Dank voor alles
Ron

 

[edmoor]

Graag gedaan.
Wil je ook even de post als "Opgelost" markeren?