Ajuda - Varios Checkbox em uma unica célula

[marcos22]

E o seu que estou tentando colocar mais uma pagina no multpagina.
Mias não estou conseguindo.

[marcos22]

tudo igual.... e so para acrescentar mais uma.

[srobles]

Marcos,

Para adicionar novas abas em modo de Design, clique com o botão direito sobre o MultiPage que a opção Nova aba surgirá.

Abaixo deixo novo modelo, pois neste caso, o melhor foi reelaborar as rotinas, para que ficassem "mais automáticas".

Caso queira adicionar novas abas, basta mudar a variável de contagem dos controles Checkbox novos, adicionar os eventos Click de cada CheckBox adicional, e adicionar a validação adicional para cada novo controle TextBox de cada nova aba. O restante é por conta da rotina.

Espero ter ajudado.

Abs

[marcos22]

Obrigado srobles que Deus lhe abençoe.
Abraços.

[netizzo]

Olá,

Em relação a esta sua última linha...

'Escrevemos na célula A1 o resultado final
ThisWorkbook.Sheets("Plan1").Range("A1") = Mid(listaOpcoes, 1, Len(listaOpcoes))

Eu preciso que os valores do CheckBox sejam inseridos na última linha ativa, que esta entrando os demais dados que estou cadastrando, e não sempre na célula A1

[srobles]

netizzo,
Adicione uma variável do tipo long, antes de realizar o cadastro :

Código: Selecionar todos

   Dim novaLinha As Long

E então substitua esta linha que citou, por :

Código: Selecionar todos

    With ThisWorkbook.Sheets("Plan1")
        novaLinha = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(novaLinha, 1) = Mid(listaOpcoes, 1, Len(listaOpcoes))
    End With

Espero ter ajudado.

Abs