Boa Tarde,

Estou com uma dúvida básica que não consigo encontrar a resposta. Tenho uma Chekbox para encerrar um procedimento, caso ele esteja marcado, terá a referencia "VERDADEIRO" em um célula (i, 20). Porém ao pesquisar como utilizado no código abaixo, a Chekbox não atualiza e permanece inativo. Eu gostaria que ao pesquisar o ChekBox correspondesse a "VERDADEIRO" ou a "Falso" conforme sua utilização.

Segue abaixo os código utilizado, e o campo esta em negrito.

Private Sub cmdpesquisar_Click()
Dim bPesq As Boolean
Dim i As Integer
Sheets("ADM FICHAS").Select
bPesq = False
i = 2
Do Until Cells(i, 1) = ""
If Val(Cells(i, 1)) = Val(cbsequencia.Value) Then
bPesq = True
Exit Do
End If
i = i + 1
Loop

If Not bPesq Then
MsgBox "Sequência " & cbsequencia & " não encontrada", vbOKOnly, "Administração de Fichas"
cbsequencia.SetFocus
Exit Sub
End If

cbsequencia.Value = Cells(i, 1)
txtcodkit.Value = Cells(i, 2)
txtmatricula.Value = Cells(i, 3)
Me.txtrevendedor.Value = Cells(i, 4)
txtqtpc.Value = Cells(i, 5)
txtvrkit.Value = Cells(i, 6)
txtctkit.Value = Cells(i, 7)
txtdtmontagem.Value = Cells(i, 8)
txtdtvisita.Value = Cells(i, 9)
txtdtretorno.Value = Cells(i, 10)
txtdtacerto.Value = Cells(i, 11)
txtvdreais.Value = Cells(i, 12)
txtparticipacao.Value = Cells(i, 13)
txtftlq.Value = Cells(i, 15)
txtporcentagem.Value = Cells(i, 14)
txtcmpr.Value = Cells(i, 16)
txtvdbt.Value = Cells(i, 17)
Me.txtdevedor.Value = Cells(i, 18)
Me.txtvendacartao.Value = Cells(i, 19)
Me.ckbencerrado = Cells(1, 20)

End Sub