Bom-dia. A imagem eu deixei como comentário, pois pedia a imagem quando eu ia rodar o "form", vou dar uma olhada no cpf. Agora na caixa...

O problema está na caixa "Localizar" o evento está como "Click()" troca para "AfterUpdate()". Private Sub cb_localizar_...

Olá amigo. Troquei o botão "Editar" para "Atualizar", pois quando faz a pesquisa já chama as informações no modo de edição. F...

Olá amigo...! Use " TextBox1.Setfocus " para ganhar "foco" no TextBox. Se for o caso também use " TextBox1.text = "...

Olá Medeiros65. Segue outra forma de contar os números repetidos, se for para contar quantas vezes um determinado número saiu do início do concur...

Olá amigo...acho que ainda tem erro...quando eu rodo a macro, ela conta os "18" erros informados, blz....só que quando eu diminuo as linhas ...

Olá amigo...acho que ainda tem erro...quando eu rodo a macro, ela conta os "18" erros informados, blz....só que quando eu diminuo as linhas ...

karaka...funfou...vou ampliar o código...!!! Se não aparecer erros. vou posta como "RESOLVIDO" att, Francisco

Ok...vou ver o resultado...!

Boa noite galera...o robo8268 ficou de responder meu "post" e nada ainda. Se alguém puder me ajudar com essa macro, agradeço. Não foi por fa...

Olá robo8268, não consegui adaptar na minha macro.

robo8268...dá uma olha no anexo que você vai entender melhor. Eu digitei alguns nomes errados para a macro corrigir, até aí blz...só que eu gostaria q...

Olá amigo. Tenta esses. Private Sub btnPrimeiro_Click() Plan1.Activate Dim UltimaLinha As Object Set UltimaLinha = Plan1.Range("A3")....

É isso aí mesmo...vlw...!