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 :
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