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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Check Box não retorna outros valores- Condição IF não funcio
Re: Check Box não retorna outros valores- Condição IF não funcio
renanvba,
Experimente adicionar uma checagem no status do CheckBox, ex :
E para retornar o valor e preencher o CheckBox com o valor contido na célula :
Espero ter ajudado.
Abs
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
Código: Selecionar todos
If ThisWorkBook.Sheets("dados clientes").Cells(linha, 4) = True Then
Me.CheckBoxfopa = True
Else
Me.CheckBoxfopa = False
End If
Abs