Vídeo recomendado
https://youtu.be/diWPPPhW-9E

COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pasedo
Manda bem
Manda bem
Mensagens: 184
Registrado em: Ter Abr 20, 2010 8:32 pm

COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)

Mensagem por pasedo »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO

Mensagem por srobles »

Pasedo,

Veja se as alterações atendem sua necessidade.
Anexos
COMPRA E REVENDA CELULARES.zip
(178.38 KiB) Baixado 362 vezes


pasedo
Manda bem
Manda bem
Mensagens: 184
Registrado em: Ter Abr 20, 2010 8:32 pm

Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO

Mensagem por pasedo »

srobles escreveu: Qua Out 16, 2019 2:40 pm Pasedo,

Veja se as alterações atendem sua necessidade.
srobles, muito obrigado, valeu mesmo.


lupalestina
Colaborador
Colaborador
Mensagens: 10
Registrado em: Ter Out 22, 2019 11:06 am

Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)

Mensagem por lupalestina »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)

Mensagem por srobles »

lupalestina,

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
Então, em um botão, use :

Código: Selecionar todos

   Call calcularPontuacao


lupalestina
Colaborador
Colaborador
Mensagens: 10
Registrado em: Ter Out 22, 2019 11:06 am

Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)

Mensagem por lupalestina »

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.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)

Mensagem por srobles »

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 :

Código: Selecionar todos

   Call calcularPontuacao
Exibindo todos os códigos do UserForm1, selecione a última linha (ou primeira em branco), copie e cole a rotina em si :

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

Código: Selecionar todos

   Call calcularPontuacao
Assim, não será necessário incluir o botão ao formulário.


lupalestina
Colaborador
Colaborador
Mensagens: 10
Registrado em: Ter Out 22, 2019 11:06 am

Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)

Mensagem por lupalestina »

Agora deu certo...obrigado Saulo, vc é fera.


lupalestina
Colaborador
Colaborador
Mensagens: 10
Registrado em: Ter Out 22, 2019 11:06 am

Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)

Mensagem por lupalestina »

Agora deu certo...obrigado Saulo, vc é fera.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder