Tb nao encontrei problema nenhum

Nao precisa de VBA basta usar um intervalo nomeado com range dinamico. Com base na tabela (titulos) iniciando na linha 3 coloque essa formula no gere...

Na verdade vc precisa de 50 planilha com 50 emails a enviar, sao 10 campanhas que vc pode colocar em um unico arquivo. Vc nao tem 500 pastas e sim 50...

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