macro code omzetten in loop

[bjornesto]

is het mogelijk om volgende codes om te zetten in een loop

Heb een userform met om en bij de 90 knoppen

Private Sub ToggleButton5_Click()
If ToggleButton5.Value = True Then
ActiveCell.EntireColumn.Cells(5).Select
Macro1
Else
ActiveCell.EntireColumn.Cells(5).Select
Macro2
End If
End Sub

Private Sub ToggleButton6_Click()
If ToggleButton6.Value = True Then
ActiveCell.EntireColumn.Cells(6).Select
Macro1
Else
ActiveCell.EntireColumn.Cells(6).Select
Macro2
End If
End Sub

Private Sub ToggleButton7_Click()
If ToggleButton7.Value = True Then
ActiveCell.EntireColumn.Cells(7).Select
Macro1
Else
ActiveCell.EntireColumn.Cells(7).Select
Macro2
End If
End Sub

dit zijn de macro 1 & 2

Sub Macro1()
'
' Macro1 Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
Sub Macro2()
'
' Macro2 Macro
'

'
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

 

[gast0660]

Hoi,

In bijlage voorbeeldje met een timer. Macro wordt in voorbeeldje om de 30 sec uitgevoerd.
Laat maar weten als het zoiets is dat je zocht

 

[HSV]

Met een Klassenmodule: Met in de Tag van de eigenschappen van de Togglebutton het rijnummer die je daar aan wil verbinden.

 

[bjornesto]

HSV

Dank u om dit op te lossen

Ga mij wel is moeten verdiepen in klass modules vrees ik weinig kaas van gegeten eerlijk gezegd