Pasedo, olhando com mais calma seu modelo, em sua rotina para Limpar Tudo, não precisamos de todas aquelas instruções, uma vez que a intenção é limpar...

Pasedo, em de trocar as rotinas, preserve a que está utilizando e acrescente a que o Alexandre sugeriu ajustando para o que pretende. Cole a rotina ab...

blz...fiz um exemplo na planilha para explicar melhor.....

A Aba que mencionou, não tem nenhuma data, somente 3 Botões, o que quer que adapte ?

eliezer, acho que esta tela é própria da impressora, ela é igual a Epson que tenho em casa, aqui no serviço são outras e não mostram esta tela. Faça ...

Pacifico Todos os arquivos anexados antes da migração do fórum para um novo provedor ficaram corrompidos, portanto não é só este caso. []s Patropi ...

Troque por: Application.Dialogs(xlDialogPrint).Show

Mel Como você é novata no fórum, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo: viewtopic.php?f=7&t=...

Boa tarde!! Considerando que a data está na coluna C Sub AleVBA_20407() 'Eu não baixei seu arquivo Dim cell As Range Dim lr As Long lr = Cells(Active...

Bom dia!! Tente algo como..........Para cada botão mude o nome da sigla Sub AlgoComoIsso() Dim ws As Worksheet For Each ws In ActiveWorkbook....

Você quer que as abas sejam selecionadas todas de uma vez, ou que se oculte as que não estão na relação ? É para executar alguma outra ação após sele...

Entendo pela explicação, que apesar do numero grande a leitura deveria ser cento e trinta e um mil cento e quarenta e quatro litros e trezentos e trin...

Eu sinceramente, ainda não entendi. Pede impressão em Retrato mas mostra um "desenho" em Paisagem, dis nome da pasta mas não localizei o que...

Olá Caio, se colocar a fórmula que segue abaixo, em E2, resolveria? =D2*(CONT.SES(C:C;C2;B:B;B2)) Edilson dessa forma não funciona, ele não conta d...