Página 3 de 3

Re: Ajuda - Varios Checkbox em uma unica célula

Enviado: Qua Mai 09, 2018 4:18 pm
por marcos22
E o seu que estou tentando colocar mais uma pagina no multpagina.
Mias não estou conseguindo.

Re: Ajuda - Varios Checkbox em uma unica célula

Enviado: Qua Mai 09, 2018 4:27 pm
por marcos22
tudo igual.... e so para acrescentar mais uma.

Re: Ajuda - Varios Checkbox em uma unica célula

Enviado: Qua Mai 09, 2018 10:49 pm
por 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

Re: Ajuda - Varios Checkbox em uma unica célula

Enviado: Qui Mai 10, 2018 11:30 am
por marcos22
Obrigado srobles que Deus lhe abençoe.
Abraços.

Re: Ajuda - Varios Checkbox em uma unica célula

Enviado: Qui Jan 03, 2019 6:41 pm
por 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

Re: Ajuda - Varios Checkbox em uma unica célula

Enviado: Sex Abr 05, 2019 10:44 pm
por 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