Perfeito Edson, Pensei tanto em algo mais complexo, que esqueci o mais simples. Muitíssimo obrigado

Bom dia!! Seria isso? Sub M01_PesqConta() ' ' M01_PesqConta Macro ' ' Range("B15").Select Selection.ClearContents Ra...

Bom dia!! Veja ... Private Sub CommandButton1_Click() Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "Text...

disponibilize sua planilha....

Obrigado Edson e DJunqueira, Show de Bola!

Entre outras alternativas, no lugar do PROCV: =ÍNDICE(Dados!$K$4:$K$5575;CORRESP($A$4;Dados!$A$4:$A$5575;0)+1)

No PC aqui do serviço não consegui executar, deve ser por algumas restrições que nos impõee, mas se entendi, troque as linhas da rotina BeforeXmlImpo...

eu fiz essa ficou um pouco menor: =SE(NÚM.CARACT(B2)-PROCURAR("/";B2)=4;B2;SUBSTITUIR(B2;ESQUERDA(B2;4)&"/";""...

Boa tarde!! Eu ainda não baixei seu anexo, mas tente. Suponde que você está usando um image control tente UserForm1.Image1.Picture = LoadP...

uma dúvida: 1999/2005 Qual o ano ?

Não entendo pq TEM que ser macro, se você poderia usar um Localizar/Substituir... MAS, (uma vez levei comida de toco de um moderador, pq eu tentava v...

Pergunta mais estranha, parece que você está conversando com você mesmo, e vc mesmo se dá dois nomes rsrsrs Se não entendeu, por favor só não responda...

André, pode por favor postura um modelo? Vai facilitar que o ajudemos!