Página 1 de 1

Trazer resultado da planilha para checkbox

Enviado: Ter Jan 14, 2020 5:52 pm
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:

Re: Trazer resultado da planilha para checkbox

Enviado: Qua Jan 15, 2020 9:44 am
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.