Infelizmente neste caso (ate onde sei) não é possivel arrastar, vai ter que digitar um a um... Não testei, mas vc pode arrastar lateralmente e transp...

O ideal seria vc informar qual o resultado esperado. Qto mais informações mais facil de obter ajuda.

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