Nao consegui adaptar o codigo do Osvaldo, e pelo jeito vou ter que escrever os dois codigos e chamar as rotinas atraves de uma terceira. Ficando assi...

Disponibilize o arquivo.

Disponibilize seu arquivo.

Não consegui adaptar o código do Osvaldo E preciso ter a opção de escolha imprimir ou salvar em pdf E não gostaria de usar duas rotinas para isso, ...

Um dos códigos que estou tentando adaptar é esse Sub Empresa() Dim WL As Worksheet Dim WCHK As Worksheet Dim WM As Worksheet Dim WSNOME As Worksh...

Não entendi

Osvaldo e fccarlos vou testar ambas. Mas nem sempre sei a quantidade de dados a serem impressos por assim dizer posso ter 50, 20 ou 300 Mauro tenho ...

fcarlos sua rotina não resolveu, eu já tenho a rotina que gera o pdf e a impressão, esse não é o problema meu problema é que a msgbox se repete a cada...

Ve se é ajuda

Nem olhei a planilha mas um simples somase resolve facilmente Utilize o assistente de funções do Excel (clicando no fx da barra de formulas) que vc c...

Eu costumo declarar uma variavel Dim W as worksheet 'Insira essa linha logo apos a abertura do arquivo Set W = activeworkbook assism vc pode se...

Link do topico antigo viewtopic.php?f=10&t=19162

Abrir outro topico com o mesmo assunto nao vai fazer a resposta aparecer assim do nada. Aguarde no seu topico antigo.

Ate onde sei o formato texto depende da digitação do usuario, ou seja para permanecer como vc deseja vai depender da digitação do usuario.