ricardo, não entendi direito a lógica que está utilizando, uma vez que seleciona a aba "Base Gráfico" oculta ou exibe a linha e depois selec...

Aparentmente a variavel t estava assuminto o valor 3, então qualquer sequencia depois da terceira linha não será encontrada Experimente: Sub procura()...

Boa tarde!! Leia:

Aaahhh melhor né ? Bacana... O objetivo de todos aqui é ajudar, e a descontração faz parte. Segue o jogo. Ok, agora vc está lindando com datas e hora...

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