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

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 »

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

Re: Trazer resultado da planilha para checkbox

Mensagem por srobles »

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.


Responder