Twee codes combineren

[tisjan]

Dit is mijn eerste vraag!
Ik heb twee werkende codes die ik wil combineren.
De eerste code, bedient door een knop, verbergt een groot aantal rijen in sheet en laat dan maar een groep rijen zien.

Sub KantoorBGTerug()

Rows("7:29").Select
Selection.EntireRow.Hidden = False
Range("B7").Select

End Sub

Een tweede code doet de kleur van de knop veranderen als ik hem aanklik.

ActiveSheet.Shapes.Range(Array("Rectangle 7")).Select
Application.CommandBars("Format Object").Visible = False
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0
.Solid
End With

Hoe krijg ik werkend dat als ik de knop aanklik om een aantal rijen zichtbaar te maken, de knop dan groen kleur?
Zoals je wel zult begrijpen heb ik de keus uit een hele reeks knoppen.

Ik hoop dat dit duidelijk genoeg is en mij iemand kan helpen

Tisjan

 

[edmoor]

Je kan die codes gewoon bij elkaar in 1 Sub zetten.
Zo bijvoorbeeld:

Sub KantoorBGTerug()
    Rows("7:29").EntireRow.Hidden = False
    Application.CommandBars("Format Object").Visible = False
    With ActiveSheet.Shapes("Rectangle 7").Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 80)
        .Transparency = 0
        .Solid
    End With
End Sub

Dat is trouwens geen Visual Basic .Net maar VBA.

 

[KwarK]

Vraag verplaatst van VB.Net naar VBA