A planilha nao tem data para comparar nao vai funcionar nunca.... Outra coisa os modelos de extintores devem ficar em uma coluna unica e nao no cabeç...

Cara isso envolve muita programação e nao creio ser possivel fazer isso no excel.

O arquivo nao esta abrindo nao vi o erro.

O arquivo esta com algum problema nao abre.

Disponibilize o arquivo fica mais facil analisar

Tenta assim na parte do codigo que faz a colagem troque por isso Selection.PasteSpecialPaste:=xlPasteValues E para parar o pisca pisca coloque isso ...

Eu perguntei isso aqui a poucos dias... Veja o topico e tente adpatar. viewtopic.php?f=20&t=17955

A parte que cabe ao excel, ribons e formulas por exemplo são automaticamente traduzidas quando o arquivo for aberto. Aquilo que desenvolvido pelo us...

Ve se isso ajuda

Eu nao entendi o que vc quer exatamente pq da forma que vc exemplificou se o codigo rodar toda a tabela da aba prestadores lançamento e buscar os dado...

Se vc importa manualmente qual o problema em desbloquear a planilha para realizar a importação e bloquear qdo terminar?? Nao vejo problemas nisso.

Nao sei se entendi direito mas me parece que uma tabela com os juros do periodo mes a mes resolve seu problema. Depois basta calcular o periodo em me...

Ve se isso ajuda Troque isso Selection.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=True, _ Transpose:=False Por isso Sele...

Tenta assim dim a as string dim sh as worksheet set sh = sheets(Prestadores_lançamento) sh.range("B3").select a = activece...

Penso que é so alterar o nome userform1 para userform3