knoppen kleuren

[EMA]

Goedemiddag,

In de bijlage heb ik een voorbeeldbestandje geplaatst met daarin een Userform met 4 knoppen die verwijzen naar een tabblad,
als je op de knop klikt gaat hij naar het tabblad en wordt de knop groen.

Nu zou ik graag willen (indien mogelijk) als je zelf een ander tabblad kiest (niet via het userform) ook de juiste knop groen maakt op het userform.
is dat mogelijk!?

Bekijk bijlage voorbeeldbestandje.xlsm

Groetjes
EMA

 

[SjonR]

Zo goed?

Al heb ik geen idee wat de toegevoegde waarde is.

 

[Cobbe]

Of zo?

 

[SjonR]

Cobbe,

die van jou zet de inactieve werkbladknoppen niet terug naar de originele kleur.

 

[Cobbe]

@SjonR
Zelf mag er ook iets gedaan worden hé

 

[edmoor]

@SjonR:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With UserForm1
        .Blad1.BackColor = IIf(Sh.Name = "Blad1", &H80FF80, &H8000000F)
        .Blad2.BackColor = IIf(Sh.Name = "Blad2", &H80FF80, &H8000000F)
        .Blad3.BackColor = IIf(Sh.Name = "Blad3", &H80FF80, &H8000000F)
        .Blad4.BackColor = IIf(Sh.Name = "Blad4", &H80FF80, &H8000000F)
    End With
End Sub

 

[SjonR]

Ziet er puik uit, Edmoor

 

[edmoor]

En op deze manier wordt bij het laden van het userform de juiste knop al gekleurd:
Bekijk bijlage Voorbeeldbestandje.xlsm

 

[EMA]

dankjewel allemaal.

ben er blij mee!

groet,
EMA