Bom dia, renanvba

Mesmo informando o código, não consigo entender qual a sua dúvida e desta forma,
para ajudá-lo com maior rapidez e eficácia, é muito importante você anexar uma planilha de exemplo
com dados (fictícios) e que não seja o projeto inteiro (com o trecho que está com dificuldades);
explicando com as informações necessárias para alcançar o seu objetivo (se necessário incluir
imagens elucidativas)..

Dica: Você criou um Tópico com o mesmo assunto em outro Fórum.. quando lançar a mesma dúvida, você
poderá informar com os Links deles para que os integrantes deste(s) Fórum(ns) que tenham perguntas
semelhantes possam acompanhar ...
(e aqueles que querem ajudar possam verificar se já foi solucionado, para não "amarrá-los" depois que
foi resolvido), fazendo isso em todos os Fóruns que tenha aberto; se tiver a(s) solução(ões) em algum
deles coloque o link desta solução nos outros ...

Aguardando a sua resposta.

LaerteB

renanvba,

Bom dia!

Além da recomendação acima, elaborada pelo colega LaertB, já passada nas orientações iniciais que lhe enviei, você continua descumprindo as regras desse fórum e postando código VBA sem a utilização da ferramenta CODE localizada logo acima da Caixa de mensagens (quinto botão da esquerda para a direita). Se não sabe como fazer, pergunte que qualquer integrante ou moderador terá prazer em ajudar como fazer.

Isso só demonstra que você não leu as orientações passadas. Desse modo, solicitamos, mais uma vez, ler as orientações de modo a cumprir fielmente as regras do fórum.

Entendi onde está o problema:

ActiveCell = CheckBoxfopa

Quando você diz que a célua ativa recebe checkbox, o código interpreta da seguinte forma:

ActiveCell = CheckBoxfopa.value

Ou seja, coloca na célula ativa o valor da checkbox.
Acontece que o valor de uma checkbox só pode ser verdadeiro (quando ela está selecionada) ou falso ( quando ela não está selecionada).

Caso você queira passar o TEXTO que está na checkbox, fica assim:

Private Sub CommandButton4_Click()
Dim codigo As Integer

linha = 1
codigo = txtData.text

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.text

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

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

End If

linha = linha + 1

Loop

Call cmdPequisar_Click

End Sub