#40 - Curso de Macros e Excel VBA - Caixa de Seleção

#40 - Curso de Macros e Excel VBA - Caixa de Seleção

Na quadragésima aula vou explicar como trabalhar com a caixa de seleção.
Em um formulário a caixa de seleção é muito útil para coletar informações como um questionário. Através da seleção do controle o clique facilita para o usuário o preenchimento.

Tópicos abordados:
Caixa de Seleção
- O uso da caixa de seleção em um formulário
- Como capturar o resultado de uma caixa de seleção
- Gravando o resultado de uma caixa de seleção na planilha
- Instrução WITH ... END WITH
- e muitas dicas

Espero que goste do conteúdo.
Se gostou compartilhe com seus colegas de trabalho e amigos!

#Excel #VBA #MVP #MVPBR #MVPBuzz #ExcelVBA #MicrosoftExcel

Me acompanhe nas redes sociais:

Download do material, cursos com certificado, catálogo virtual de aulas e blog, acesse:

Microsoft Excel é um aplicativo do pacote Microsoft Office

[AlanOliveiradeJesus]

Alessandro Trovato.

Posso Dizer que suas Aulas São Mais que Didáticas é um Verdadeiro show de Ensinamento e Praticidade - Muito obrigado por Essa Dedicação Gratuita, Você Ajuda Muitas Pessoas, e Eu sou uma Delas - Grato por tudo que estou Aprendendo contigo Nobre Amigo!

[yasmin_pewr]

Bom dia, Alessamdro! 
Otima aula, como sempre bem explicada, parabéns pela as aulas postadas em seu canal.
estão sendo muio ultiu em meu aprendizado .

[pyterbarros]

Alessandro como seria o processo inverso, fiz uma planilha de atendimento que possui caixas de seleção com tipos de atendimento e após selecioná-los são inseridos na planilha. Minha dúvida é: Como se criaria um botão de editar, onde ao escolher a pessoa atendida todos os dados fossem carregados, inclusive os que foram selecionados nas caixas de seleção e assim pudesse realizar uma alteração? Muito obrigado suas aulas me ajudaram muito. fique com Deus.

[Deivid]

parabéns pelo excelente conteudo, professor!

[humilitywewantit]

Parabéns por sua nobre iniciativa de compartilhar seus conhecimentos gratuitamente.
Estou acompanhando seus vídeos, novidades e canal.
Forte abraço!
Que você tenha ainda mais sucesso!

[renancarlos]

Boa tarde, alexandre eu tenho um formulário e  tenho dois botões neles SALVAR e VOLTAR, queria colocar tecla de atalhos nosbotoes, exemplo eu aperto a tecla F4 então excuta o conteúdo do botão salvar.

[jeanmicrolins]

Ótima aula gostei muito Alessandro!

Eu testei aqui uma possibilidade dentro da instrução With, colocando o IF desta maneira:

If UserForm1.chk1 Then
.Range("b2").Value = "Sim"
Else
.Range("b2").Value = "Não"
End If

If Me.Chk2 Then
.Range("c2").Value = "Sim"
Else
.Range("c2").Value = "Não"
End If

Gostaria de perguntar também se existe a possibilidade de modificar o tipo de uma variável já declarada?
Ex: Uma variável Boolean que em algum momento do meu programa possa ser alterada para um tipo Integer ou String, recebendo esses valores. Caso contrário, acho que só poderia usa uma variável do tipo Variant para isso.

[joeltonnascimento]

Olá, boa noite?
Suas alunas são fantásticas, parabéns!
Poderia armazenar os valores das checkbox na mesma célula? Tipo, formação; Ensino Superior; pós graduação; doutorado; ETC.
Desde já agradeço a atenção!

[paulohd]

Elessandro esta de parabens, estou vendo aos poucos os videos pois é gosto de prestar bem atenção, tenho uma questao queria criar um botao "+" exemplo, tenho uma lista de opçoes a serem preenchidas tipo: nome = maria, mora em = goiania, idade = 21 anos, formação atual= estudante.
ai queria criar um botao com o sinal de "+" pra quando eu abertar ele vai criar uma nova lista com as mesmas perguntas pra serem preenchidas e que depois tivesse um botao no qual ele pegaria todas as informaçoes e deixasse disponivel em uma caixa para ser copiado tipo um relatorio... ja procurei ajuda mais ninguem me respondeu. se tivesse como demostrar como faz seria muito bom... mais um inscrito!!

[AlessandroSilva-dlvq]

Muito bom mesmo essas aulas.!

Alessandro poderia nos mostrar um exemplo com múltiplas escolhas marcando varias checksbox ai para melhorar os if utilizando uma array para ajudar .
Teria como?

[eldercunha]

Prezado, em se colocando um determinado número de caixas de seleção no formulário, como eu configuraria um botão para que, após ser acionado, as tais caixas desaparecessem e dessem origem a outros objetos, como outras caixas de seleção, em função das que foram selecionadas na primeira etapa?

[rickrodrigooficial]

Mais uma ótima Aula, só não encontrei a opção ( vNome = UserForm1.txtNome.Text ), o .text do final não aparece nas minhas opções, por isso não consegui que o nome fosse escrito.

[gfsouza]

Excelente aula
Tenho uma dúvida

Usando seu exemplo fiz um cadastro com código, nome, sexo, se estuda ou trabalha e idade onde após isso eu posso pesquisar pelo código....até aí tudo funciona, porem não estou conseguindo trazer a checkbox preenchida

Como faço?

[fabimtecplan]

Ola Alessandro, existe uma maneira mais facil de fazer a seguinte programação: Tenho uma tela com 51 opções de cargos(profissão), eu controlo o efetivo no meu trabalho, então coloquei uma caixa de seleção para cada profissão e na frente uma caixa de texto para colocar a quantidade de cada. Na programação eu tive que criar uma condição If para cada variável e ficou uma programação gigante, queria saber se com a função For Next para atribuir a mesma condição para todos. Eu não consegui fazer pois teria que ir mudando o nome da variável.

If vck47 = True Then "Essa eu digo que se a caixa estiver selecionada
funcao = Ck47.Caption "Pega o nome da profissão da caixa
qtd = tx47.Value "Pega o valor no texto na caixa
Call escreve "Clama a função escrever

Mas eu tive que fazer isso para as 51 variaveis, ficou cansativo. Gostaria de te enviar a planilha para vc ver o que poderia melhorar.

[marciol]

Muito bom, Parabéns, gostaria de saber se vc tem algum vídeo com formulário que tenha um gráfico que muda conforme as respostas?

[AQUILA]

Muito bom Alexandro mais vc devia usar e ensinar sempre a opção com variáveis, por boas praticas.

[jeancvd]

Olá caro Alessandro..

você pode usar o comando IIF COMO SE FOSSE O COMANDO DO EXCEL =SE .
IIF (CONDIÇÃO, RETORNO SE VERDADEIRO, , RETORNO SE FALSO)...

como neste exemplo de teste

Do While ActiveCell.Value <> ""

valor = ActiveCell.Value

ActiveCell.Offset(0, 1).Value = IIf(valor > 15, 30, 15)

ActiveCell.Offset(1, 0).Select

Loop


abraços

[rogerioluiz]

Boa tarde Alessandro, eu estou trabalhando com caixas de seleção (checkbox) porem eu tenho umas 17 caixas de seleção e gostaria de saber se pode me ajudar?
quando eu selecionar estas caixas ela concatenar conforme for selecionando elas.
ex. se eu selecionar as caixas

maçã
goiaba
manga
limão
banana

ficaria assim em uma célula concatenado

(maçã, goiaba, manga, limão, banana)

tentei aqui e não estou conseguindo este resultado.

pode me auxiliar neste caso?

agradeço a atenção obrigado

[tatianamoniz]

Alessandro, me salve pelo amor de Deus. Tenho 2 dúvidas.
1) Tentei fazer um formulário com 1 caixa de texto e 3 checkbox. A caixa de texto eu gostaria de retornar um valor de Data (no padrão normal sabe - dd/mm/yy). Não consigo de maneira alguma. Crio a variável (as Date) mas quando envia para planilha a data fica doida, ora aparece invertida, ora aparece um número doido (exemplo coloco 08/10/16 (outubro) e vira 10/08/16 ou 10/04/2076 (de onde isso surgiu?). Já tentei formatar na planilha, já tentei formatar pelo VBA (consegui o código nesses fóruns por ai) e nada funciona.
2) Com as checkbox fiz exatamente como seu exemplo no vídeo. Consegui fazer pular as células direitinho, como um cadastro. Mas quando atribui o valor "0" ou "1" em vez de "falso" ou "verdadeiro", ele só preenche a primeira linha com 0 e 1, mas as restantes volta para o padrão falso/verdadeiro. Não sei onde estou errando!!!! Dá uma ajuda? Por

Segue meus códigos (não atribui variavel Date pq não adianta)...e olha, estou apenas 2 semanas vendo seus vídeos. Não ria de mim não ainda to engatinhando, to tentando aprender.

Private Sub btSalvar_Click()

Dim vHemo As Boolean
Dim vRet As Boolean
Dim vParas As Boolean

vHemo = frmFormulario.cboxHemo.Value
vRet = frmFormulario.cboxRet.Value
vParas = frmFormulario.cboxParas.Value


'Ativar a primeira planilha


'Ativar célula A2
Rows(2).Select


'Hemo
If vHemo Then
ActiveSheet.Range("b2").Value = "1"
Else
ActiveSheet.Range("b2").Value = "0"
End If


'Ret
If vRet Then
ActiveSheet.Range("c2").Value = "1"
Else
ActiveSheet.Range("c2").Value = "0"
End If


'Paras
If vParas Then
ActiveSheet.Range("d2").Value = "1"
Else
ActiveSheet.Range("d2").Value = "0"
End If


'Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True


'Carregar os dados para a planilha
ActiveCell.Value = txtData.Value
ActiveCell.Offset(0, 1).Value = cboxHemo.Value
ActiveCell.Offset(0, 2).Value = cboxRet.Value
ActiveCell.Offset(0, 3).Value = cboxParas.Value


'Limpar a caixa de texto
txtData.Value = Empty

'Limpar os CheckBox
cboxHemo.Value = False
cboxRet.Value = False
cboxParas.Value = False

'Colocar o cursor na caixa de texto
txtData.SetFocus

End Sub

[horadasurpresa]

Alessandro, tudo bem?
Primeiramente, meus parabéns pelas aulas, são ótimas.

Estou montando um formulário para cadastro de produtos e gostaria de inserir um botão que permita ao usuário final realizar a inclusão de novos campos apenas clicando neste botão. Existe alguma forma de fazer isso?

Obrigado e abraços,