Importante dizer tb o que pretende fazer, pq nao disse o que precisa.

Nao entendi abri seu formulario e depois cliquei em pesquisar funcionou normalmente. e cliquei novamente em barra depois cliquei em fechar e funciono...

O Auto Filtro simplesmente nao resolve?

Troca essa linha ActiveCell.Offset(0, 2).Range("A1").Value = 1 Por esta ActiveCell.Value = 1

Os dois primeiros ja fazem a verificação caso nao de verdadeira e que vai exibir a mensagem entao nao precisa testar novamente. Teste com todas as se...

Apague o ultimo for e deixe apenas a mensagem

Qual o problema pq olhando seus codigos aparentemente esta tudo correto.

Para cada text box que vc queira o valor 0 utilize esse codigo textbox1.value = 0,00

Tente trocar Exit For por Exit Sub

Tentou no evento inicializale do formulario carregar as textbox com o valor 0 E uma ideia

Arquivo protegido com senha fica dificil ajudar

Tenta assim Private Col as integer Sub teste () Col = 2 End Sub

Ve se é assim!!

Minha sugestao separa em duas planilhas uma de apurando e outra de apurado e coloca um botao pra mover os valores apurados para a outra planilha

Kd o arquivo?