Alle knoppen met 1 button terug zichtbaar

[stefano]

Private Sub CommandButton37_Click()
     Dim i As Integer
        For i = 1 To 37
        CommandButton & i & ".Visible" = True
        Next i
End Sub

Op de lijn met de commandbutton gaat het fout tussen " " helpt ook niet.

Weet iemand raad ?

dank,

Stefaan

 

[Cobbe]

Private Sub CommandButton37_Click()
     Dim i As Integer 
     For i = 1 To 37
     ActiveSheet.Shapes.Range("CommandButton" & i).Visible = True
     Next
End Sub

Cobbe

 

[stefano]

Mooi, dat werkt, maar nu stel ik bast dat er nog een aantal rijen verborgen blijven.
Kan dat dan in dezelfde instructie ?

Private Sub CommandButton37_Click()
     Dim i As Integer 
     For i = 1 To 37
     ActiveSheet.Shapes.Range("CommandButton" & i).Visible = True

     Activesheet.rows ......visible = true ???

     Next
End Sub

 

[Roncancio]

Mooi, dat werkt, maar nu stel ik bast dat er nog een aantal rijen verborgen blijven.
Kan dat dan in dezelfde instructie ?

Private Sub CommandButton37_Click()
     Dim i As Integer 
     For i = 1 To 37
     ActiveSheet.Shapes.Range("CommandButton" & i).Visible = True

     Activesheet.rows ......visible = true ???

     Next
End Sub

Tuurlijk, maar welke rijen moeten dan zichtbaar worden?

Met vriendelijke groet,


Roncancio

 

[stefano]

Sorry, alle rijen en toeval wil dat slechts 23 rijen gebruikt worden, dus kan het misschien in dezelfde instructie ... ?

 

[Roncancio]

Sorry, alle rijen en toeval wil dat slechts 23 rijen gebruikt worden, dus kan het misschien in dezelfde instructie ... ?

Rows.Hidden = False

Met vriendelijke groet,


Roncancio