Página 1 de 1

Vários CheckBox

Enviado: 09 Nov 2016 às 15:58
por Handred
Boa tarde,

Estou criando uma planilha onde há vários checkbox, porém não queria fazer uma macro para cada um quando fosse clicado, e sim que ele informasse quais estão clicados.

Me perdoem a ignorância, mas tentei utilizar o mesmo método que utilizo para sheets

for a = 1 to cont (exemplo)

if checkbox(A).value = true then
msgbox "OK"
end if

obrigado.

Vários CheckBox

Enviado: 10 Nov 2016 às 08:36
por laennder
Segue código e arquivo em anexo
Código: Selecionar todos
Option Explicit

Private Sub btnOK_Click()
Dim cb As MSForms.CheckBox
Dim sCBchecked As String
Dim i As Long

For Each cb In frmContainerCheckBoxes.Controls
    If cb.Value Then
        sCBchecked = sCBchecked & Chr(13) & cb.Name
        i = i + 1
    End If
Next cb

MsgBox "Você selecionou " & i & " checkbox(es)" & sCBchecked

End Sub