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
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