uso o seguinte código para selecionar os valores das checkbox marcadas e preencher a planilha excel
Código: Selecionar todos
Private Sub CarregaRegistro()
'carrega os dados do primeiro registro
'Variável para armazenar 14 controles
Dim ctlNome(1 To 14) As String
'Variável para podermos trabalhar apenas nos controles do Form
Dim ctlChk As Control
'Variável para controle dos objetos
Dim contador As Integer
Dim a As Long
'Laço FOR EACH para validarmos quais CheckBox estão marcados
For Each ctlChk In Me.Frame10.Controls
'Se o tipo do nome do controle for igual a CheckBox e o mesmo estiver flagado
If TypeName(ctlChk) = "CheckBox" And ctlChk = True Then
'Incrementamos o contador
contador = contador + 1
'Adicionamos seu texto á lista de variáveis (15)
ctlNome(contador) = ctlChk.Caption
End If
Next
'Variável para armazenar todos os CheckBoxes flagados
Dim listaIncisos As String
'Verificamos quais dentre os 39 estão marcados
For a = 1 To UBound(ctlNome)
'Se a variável de id "a" for diferente de nula
If ctlNome(a) <> "" Then
'Adicionamos o texto do checkbox e concatenamos a variável o caracter ,
listaIncisos = listaIncisos & ctlNome(a) & " , "
End If
Next
.Cells(indice, colHomePage).Value = Mid(listaIncisos, 1, Len(listaIncisos))
Muito obrigado da ajuda de todos vocês,
Sou novo no fórum mas percebi que estão sempre dispostos a ajudar