Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
Boa tarde pessoal, tenho este form com o listbox onde faço pesquisa em outra planilha, lá está funcionando corretamente, mas aqui não está dando certo e quero que esta list box tenha mais de 10 colunas e as pesquisas tanto pelo nome da coluna 4 no texbox e pela data no combobox, mas não estou conseguindo, se puderem me ajudar agradeço.
- Anexos
-
- COMPRA E REVENDA CELULARES.rar
- arquivo
- (181.37 KiB) Baixado 345 vezes
Editado pela última vez por pasedo em Qua Out 16, 2019 5:30 pm, em um total de 1 vez.
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO
Pasedo,
Veja se as alterações atendem sua necessidade.
Veja se as alterações atendem sua necessidade.
- Anexos
-
- COMPRA E REVENDA CELULARES.zip
- (178.38 KiB) Baixado 362 vezes
-
- Colaborador
- Mensagens: 10
- Registrado em: Ter Out 22, 2019 11:06 am
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
Bom dia galera...
Sou novo por aqui e estou precisando de uma ajuda gigantesca com VBA.
Eu criei um formulário com pequeno questionário, onde cada questão equivale a uma pontuação. Neste formulário coloquei alguns checkbox e optionbuttons e para cada opção selecionada me gera um ponto.
No final do formulário teria que somar toda essa pontuação porém não estou conseguindo fazer.
eu tentei fazer da seguinte forma:
Private Sub txt_resultado_Change()
Dim temp1, temp2, temp3, temp4, temp5, temp6, temp7, temp8, temp9, temp10, temp11, temp12, temp13 As Double
Dim resultado As Double
If UserForm1.optbt1.Value = True Then
temp1 = 0
Else: temp1 = 1
If UserForm1.optbt2.Value = True Then
temp2 = 0
Else: temp2 = 1
If UserForm1.optbt3.Value = True Then
temp3 = 0
Else: temp3 = 1
If UserForm1.optbt4.Value = True Then
temp4 = 0
Else: temp4 = 1
If UserForm1.CheckBox5.Value = True Then
temp5 = 0
Else: temp5 = 1
If UserForm1.CheckBox6.Value = True Then
temp6 = 0
Else: temp6 = 1
If UserForm1.CheckBox7.Value = True Then
temp7 = 0
Else: temp7 = 1
If UserForm1.CheckBox8.Value = True Then
temp8 = 0
Else: temp8 = 1
If UserForm1.CheckBox9.Value = True Then
temp9 = 0
Else: temp9 = 1
If UserForm1.CheckBox10.Value = True Then
temp10 = 0
Else: temp10 = 1
If UserForm1.CheckBox11.Value = True Then
temp11 = 0
Else: temp11 = 1
If UserForm1.CheckBox12.Value = True Then
temp12 = 0
Else: temp12 = 1
If UserForm1.CheckBox13.Value = True Then
temp13 = 0
Else: temp13 = 1
resultado = temp1 + temp2 + temp3 + temp4 + temp5 + temp6 + temp7 + temp8 + temp9 + temp10 + temp11 + temp12 + temp13
UserForm1.txt_resultado = resultado
End Sub
conseguem me ajudar???
Sou novo por aqui e estou precisando de uma ajuda gigantesca com VBA.
Eu criei um formulário com pequeno questionário, onde cada questão equivale a uma pontuação. Neste formulário coloquei alguns checkbox e optionbuttons e para cada opção selecionada me gera um ponto.
No final do formulário teria que somar toda essa pontuação porém não estou conseguindo fazer.
eu tentei fazer da seguinte forma:
Private Sub txt_resultado_Change()
Dim temp1, temp2, temp3, temp4, temp5, temp6, temp7, temp8, temp9, temp10, temp11, temp12, temp13 As Double
Dim resultado As Double
If UserForm1.optbt1.Value = True Then
temp1 = 0
Else: temp1 = 1
If UserForm1.optbt2.Value = True Then
temp2 = 0
Else: temp2 = 1
If UserForm1.optbt3.Value = True Then
temp3 = 0
Else: temp3 = 1
If UserForm1.optbt4.Value = True Then
temp4 = 0
Else: temp4 = 1
If UserForm1.CheckBox5.Value = True Then
temp5 = 0
Else: temp5 = 1
If UserForm1.CheckBox6.Value = True Then
temp6 = 0
Else: temp6 = 1
If UserForm1.CheckBox7.Value = True Then
temp7 = 0
Else: temp7 = 1
If UserForm1.CheckBox8.Value = True Then
temp8 = 0
Else: temp8 = 1
If UserForm1.CheckBox9.Value = True Then
temp9 = 0
Else: temp9 = 1
If UserForm1.CheckBox10.Value = True Then
temp10 = 0
Else: temp10 = 1
If UserForm1.CheckBox11.Value = True Then
temp11 = 0
Else: temp11 = 1
If UserForm1.CheckBox12.Value = True Then
temp12 = 0
Else: temp12 = 1
If UserForm1.CheckBox13.Value = True Then
temp13 = 0
Else: temp13 = 1
resultado = temp1 + temp2 + temp3 + temp4 + temp5 + temp6 + temp7 + temp8 + temp9 + temp10 + temp11 + temp12 + temp13
UserForm1.txt_resultado = resultado
End Sub
conseguem me ajudar???
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
lupalestina,
Experimente adicionar a rotina em um módulo ou ao final dos códigos existentes no UserForm1 :
Então, em um botão, use :
Experimente adicionar a rotina em um módulo ou ao final dos códigos existentes no UserForm1 :
Código: Selecionar todos
Sub calcularPontuacao()
Dim somaSelecao As Long
Dim ctlControle As Control
somaSelecao = 0
For Each ctlControle In UserForm1.Controls
If TypeName(ctlControle) = "OptionButton" Then
If ctlControle = True Then
somaSelecao = somaSelecao + 1
End If
End If
If TypeName(ctlControle) = "CheckBox" Then
If ctlControle = True Then
somaSelecao = somaSelecao + 1
End If
End If
Next
MsgBox "Pontuação final : " & somaSelecao & ".", vbInformation, "Pontuação"
End Sub
Código: Selecionar todos
Call calcularPontuacao
-
- Colaborador
- Mensagens: 10
- Registrado em: Ter Out 22, 2019 11:06 am
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
Salve Saulo,
Só não entendi uma coisa, eu preciso substituir pelos nomes dos botões que eu criei e fazer uma linha pra cada? é isso?
Comecei o curso de VBA a menos de uma semana, to nub ainda no assunto.
Só não entendi uma coisa, eu preciso substituir pelos nomes dos botões que eu criei e fazer uma linha pra cada? é isso?
Comecei o curso de VBA a menos de uma semana, to nub ainda no assunto.
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
lupalestina,
Remova o evento txtResultado_Change(). Copie-o para um bloco de notas só por precaução.
Adicione um botão ao formulário, apenas para chamar a rotina (pois será ele quem fará a verificação do que foi ou não selecionado), usando :
Exibindo todos os códigos do UserForm1, selecione a última linha (ou primeira em branco), copie e cole a rotina em si :
Agora, se preferir atualizar o valor da soma ao clicar / marcar estes controles, você terá de usar o evento Click de cada um dos controles e então, chamar a rotina :
Assim, não será necessário incluir o botão ao formulário.
Remova o evento txtResultado_Change(). Copie-o para um bloco de notas só por precaução.
Adicione um botão ao formulário, apenas para chamar a rotina (pois será ele quem fará a verificação do que foi ou não selecionado), usando :
Código: Selecionar todos
Call calcularPontuacao
Código: Selecionar todos
Sub calcularPontuacao()
Dim somaSelecao As Long
Dim ctlControle As Control
somaSelecao = 0
For Each ctlControle In UserForm1.Controls
If TypeName(ctlControle) = "OptionButton" Then
If ctlControle = True Then
somaSelecao = somaSelecao + 1
End If
End If
If TypeName(ctlControle) = "CheckBox" Then
If ctlControle = True Then
somaSelecao = somaSelecao + 1
End If
End If
Next
UserForm1.txtResultado = somaSelecao
End Sub
Código: Selecionar todos
Call calcularPontuacao
-
- Colaborador
- Mensagens: 10
- Registrado em: Ter Out 22, 2019 11:06 am
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
Agora deu certo...obrigado Saulo, vc é fera.
-
- Colaborador
- Mensagens: 10
- Registrado em: Ter Out 22, 2019 11:06 am
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
Agora deu certo...obrigado Saulo, vc é fera.