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

E porque nao faz uma unica tabela identificando o que é serviço e o que é material. A tabela que fiz ela somente totaliza as outras duas.

Se tivesse postado a planilha ou testado todas as opções não estaria com o problema. Isso pq se tivesse feito o que sugeri veria que da certo. Boa s...

Vindo do Fernando achei meio estranho tambem, no entanto, ideia de maluco formate com a quebra automatica pelo vba. Apos a colagem dos valores

Qdo for proteger a planilha na janela que abre marque Usar Relatorio de Tabela Dinamica é o terceiro de baixo para cima Informe uma senha se desej...

Um dia eu chego la. Ficou muito mais rapido

Nelson obrigado por sua sugestão, mas nao consegui importar o arquivo que enviei como modelo Recebo um msgbox que a linha 1 nao tem 120 caracteres A...

Mauro foi quase pq a rotina esta transformando alguns preços em Texto Tem alguma ideia de como fazer? A rotina que estou usando para importar é a qu...

Mauro muito boa a observação, mas como sou iniciante em VBA, ainda nao sei fazer de outra maneira, assim se for possivel otmizar para um melhor desemp...

Nem vi a planilha mas deve ser algo assim se(E(A1 = "Banana";B1="Maça");"Promoção";"") Para Ou é o mesmo exe...

Se não deu certo, diz lá o que não deu certo e não cria outro, até porque se você não disser o deu errado a sua resposta vai ser a mesma. Diz lá o que...

Mauro segue os arquivos. Tem um modelo de TXT e o resultado do arquivo importado. Porem esse arquivo pode ter mais colunas e mais linhas Obrigado ...

Ja é o terceiro topico que vc abre sobre o mesmo assunto no seu anterior eu indiquei o primeiro. Inclusive la tem uma resposta.