ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Trazer resultado da planilha para checkbox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
LuisPolidoro
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Sex Mai 17, 2013 9:40 am

Trazer resultado da planilha para checkbox

Mensagem por LuisPolidoro » Ter Jan 14, 2020 5:52 pm

Boa tarde amigos!
Preciso trazer os resultado da planilha para as checkbox.
Já tentei de todo jeito mas não estou conseguindo.

Explicando melhor:
Quando faço uma pesquisa através do formulário, gostaria que as checkbox que foram marcadas quando foi feito o cadastro ficassem marcadas (caption = true).

Consegui que a 1ª checkbox fizesse isso, as outras 4 não teve jeito.

Desde já agradeço.

Segue o exemplo em anexo:
Anexos
Trazer resultado da planilha para checkbox.rar
(27.76 KiB) Baixado 54 vezes



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: 794
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Trazer resultado da planilha para checkbox

Mensagem por srobles » Qua Jan 15, 2020 9:44 am

Luis,

Altere o conteúdo do botão Pesquisar para o que se segue abaixo:

Código: Selecionar todos

Private Sub cmb_Pesquisar_Click()
Dim Texto As String
Dim Delimitador As String
Dim my_array

Texto = Planilha1.Range("A1").Value
Delimitador = ", "
my_array = Split(Texto, Delimitador)

If Texto = "" Then
Else
    On Error Resume Next

    TextBox1 = my_array(0)
    TextBox2 = my_array(1)
    TextBox3 = my_array(2)
    TextBox4 = my_array(3)
    TextBox5 = my_array(4)

    If TextBox1 = "DINHEIRO" Then CheckBox1.Value = True
    If TextBox2 = "CARTÃO" Then CheckBox2.Value = True
    If TextBox3 = "BOLETO" Then CheckBox3.Value = True
    If TextBox4 = "DEPÓSITO" Then CheckBox4.Value = True
    If TextBox5 = "CHEQUE" Then CheckBox5.Value = True
    
End If
Repare que a variável Delimitador existente está definida como ",", sendo que na verdade deve ser ", " (com espaço após a vírgula. Por isso que os CheckBox não estavam sendo marcados conforme validação.


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

Responder