Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Area de impressão

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
TIAGOIM
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Mai 02, 2019 8:43 am

Area de impressão

Mensagem por TIAGOIM »

Prezados,
Tenho uma planilha, a "livro diário" o qual é alimentada pela "lançamentos".
Após a conclusão do uso da planilha "lançamentos", será necessário apenas preparar a planilha livro diário para impressão. A quantidade de linhas na planilha "livro diário" está no intervalo "A7:F4002", porém nem todas as células são utilizadas. Todo o intervalo "A7:F4002" tem fórmulas. O meu objetivo é definir a área de impressão da planilha livro diário conforme o auto filtro, desmarcando as linhas vazias e ficando somente as células preenchidas conforme os dados oriundos da planilha "lançamentos". Não sei se é possivel fazer isso, mas como o vba possui muitos recursos acredito que alguém com conhecimentos aprofundados sobre o assunto para fazer. Desde já agradeço pela atenção
Anexos
Pasta1.zip
(224.54 KiB) Baixado 166 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Area de impressão

Mensagem por Julio Mangilli »

Tente usar um critério do próprio filtro antes de imprimir como:
ActiveSheet.Range("$A$6:$F$4003").AutoFilter Field:=4, Criteria1:="<>"

Retirando as células vazias

Pode fazer uma nova
Sub filtrar ()
ActiveSheet.Range("$A$6:$F$4003").AutoFilter Field:=4, Criteria1:="<>"
End sub

depois dentro de sua macro você coloca lá
Call Filtrar

Ou coloca a própria linha, tente isso.


TIAGOIM
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Mai 02, 2019 8:43 am

Re: Area de impressão

Mensagem por TIAGOIM »

Certo. Grato pela resposta.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder