Página 1 de 1
[RESOLVIDO] Macro Para Exibir a Data/Hora na Célula "L10"
Enviado: 01 Jul 2022 às 10:19
por Saulo
Bom Dia,
Tenho Várias Planilhas (Plan 1, Plan 2, Plan3, ...Plan15) Num Mesmo Arquivo.
Solicito ajuda para criar uma macro para exibir a data/hora na célula "L10", Somente Para as Planilhas (Plan 1, Plan 2 e Plan3) sempre que o arquivo for impresso através das opções do excel : “Arquivo-Imprimir (Ctrl+P)” ou pelo “ícone da impressora”.
RESSALVA: Que a data/hora a ser exibida em "L10" seja independente, ou seja, a data/hora de impressão exibida na célula “L10” da Plan1 não deve ser replicar para Plan2 que deve ter a data/hora atualizada somente no ato da impressão dela.
Desde já agradeço.
Re: Macro Para Exibir a Data/Hora na Célula "L10"
Enviado: 01 Jul 2022 às 15:47
por osvaldomp
Olá,
@Saulo .
Instale uma cópia do código abaixo no módulo de
EstaPastaDeTrabalho
Código: Selecionar todosPrivate Sub Workbook_BeforePrint(Cancel As Boolean)
[L10] = Now
End Sub
Re: Macro Para Exibir a Data/Hora na Célula "L10"
Enviado: 04 Jul 2022 às 09:08
por Saulo
Bom Dia Prezado Por osvaldomp
Primeiramente Obrigado Por Dispor de Seu Tempo Para Nos Ajudar.
Seu entendimento foi correto, Eu que não soube expressar-me corretamente, por isso peço desculpas.
Então...
Na realidade a rotina de exibir a data de impressão, deve ser aplicada somente as "Plan1", "Plan2", "Plan3", até tentamos procurar comandos para agregar a sua macro e chegamos na rotina abaixo que conforme esperado não funcionou, se for possível, teria como Você avaliar o erro da nossa rotina ou propor uma nova rotina?
Segue Abaixo Nossa Tentativa:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets = Array("Plan1", "Plan2", "Plan3")
[L10] = Now
End With
End Sub
Atenciosamente
Re: Macro Para Exibir a Data/Hora na Célula "L10"
Enviado: 04 Jul 2022 às 10:52
por osvaldomp
Salve,
@Saulo .
O erro foi meu, peço desculpas, pois na sua primeira mensagem já está claro: "...
exibir a data/hora na célula "L10", Somente Para as Planilhas (Plan 1, Plan 2 e Plan3) ...".
Possivelmente o que me induziu ao erro foi que, no arquivo anexado, você destacou L10 em TODAS as planilhas, e não somente nas 3 primeiras.
Experimente este código abaixo no lugar do anterior.
Código: Selecionar todosPrivate Sub Workbook_BeforePrint(Cancel As Boolean)
If IsError(Application.Match(ActiveSheet.Name, Array("Plan1", "Plan2", "Plan3"), 0)) Then Exit Sub
[L10] = Now
End Sub
Re: Macro Para Exibir a Data/Hora na Célula "L10"
Enviado: 04 Jul 2022 às 13:32
por Saulo
Boa Tarde Prezado osvaldomp!
Obrigado Pela Paciência e Compartilhamento de Seus Conhecimentos.
Funcionou Perfeitamente.
Fique Com DEUS.
Atenciosamente