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

Check Box não retorna outros valores- Condição IF não funcio

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
renanvba
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Jan 18, 2019 8:27 am

Check Box não retorna outros valores- Condição IF não funcio

Mensagem por renanvba »

Gente,

O botao editar de um form para cadastro possui o codigo abaixo mas nao consigo fazer de jeito nenhum retornar outro valor que nao seja verdadeiro ou falso para check box, ja tentei com IF e não muda

Private Sub CommandButton4_Click()
Dim codigo As Integer

linha = 1
codigo = txtData

Sheets("dados clientes").Select
Do Until Sheets("dados clientes").Cells(linha, 1) = ""
If Sheets("dados clientes").Cells(linha, 1) = codigo Then
Sheets("dados clientes").Cells(linha, 1).Select


ActiveCell.Offset(0, 1).Select
ActiveCell = txtCPF

ActiveCell.Offset(0, 1).Select
ActiveCell = txtNome

ActiveCell.Offset(0, 1).Select
ActiveCell = CheckBoxfopa

End If

linha = linha + 1

Loop

Call cmdPequisar_Click

End Sub


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: Check Box não retorna outros valores- Condição IF não funcio

Mensagem por srobles »

renanvba,

Experimente adicionar uma checagem no status do CheckBox, ex :

Código: Selecionar todos

   If CheckBoxfopa = True Then
      ActiveCell.Offset(0, 1).Select
      ActiveCell = "Sim" ' Altere para o valor que desejar
   Else
      ActiveCell.Offset(0, 1).Select
      ActiveCell = "Não" ' Altere para o valor que desejar
   End If
E para retornar o valor e preencher o CheckBox com o valor contido na célula :

Código: Selecionar todos

   If ThisWorkBook.Sheets("dados clientes").Cells(linha, 4) = True Then
      Me.CheckBoxfopa = True
   Else
      Me.CheckBoxfopa = False
   End If
Espero ter ajudado.

Abs


Responder