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:
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Trazer resultado da planilha para checkbox
- LuisPolidoro
- Acabou de chegar
- Mensagens: 8
- Registrado em: Sex Mai 17, 2013 9:40 am
Trazer resultado da planilha para checkbox
- Anexos
-
- Trazer resultado da planilha para checkbox.rar
- (27.76 KiB) Baixado 188 vezes
Re: Trazer resultado da planilha para checkbox
Luis,
Altere o conteúdo do botão Pesquisar para o que se segue abaixo:
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.
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