Userform com varias CheckBox

"Claudio Sepúlveda" escribió en el mensaje

Tengo alrededor de 100 checkbox en un formulario. Hay alguna rutina que
pueda colocar todas verdaderas o falsas sin ir una por una.

Hola Claudio,

Prueba los siguientes codigos:

Sub Marca()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If UCase(Me.Controls(i).Name) Like "CHECKBOX*" Then
Me.Controls(i).Value = True
End If
Next i
End Sub

Sub DesMarca()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If UCase(Me.Controls(i).Name) Like "CHECKBOX*" Then
Me.Controls(i).Value = False
End If
Next i
End Sub

Un saludo,
Juan

Muchas gracias, Juan. Es justo lo que necesitaba.

Atte

Claudio
"Juan M" escribió en el mensaje
news:

"Claudio Sepúlveda" escribió en el mensaje

Tengo alrededor de 100 checkbox en un formulario. Hay alguna rutina que
pueda colocar todas verdaderas o falsas sin ir una por una.

Hola Claudio,

Prueba los siguientes codigos:

Sub Marca()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If UCase(Me.Controls(i).Name) Like "CHECKBOX*" Then
Me.Controls(i).Value = True
End If
Next i
End Sub

Sub DesMarca()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If UCase(Me.Controls(i).Name) Like "CHECKBOX*" Then
Me.Controls(i).Value = False
End If
Next i
End Sub

Un saludo,
Juan

Modificando un poco un codigo de mi amigo JuanC:

Dim Ctl As Object
For Each Ctl In UserForm1.Controls
If Ctl.Value = True Then
Ctl.Value = False
Else
Ctl.Value = True
End If
Next

Abraham