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 todos
Private 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 todos
Private 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