Este fórum está sendo desativado

[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.

[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

[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

[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

[Saulo]

Boa Tarde Prezado osvaldomp!
Obrigado Pela Paciência e Compartilhamento de Seus Conhecimentos.
Funcionou Perfeitamente.
Fique Com DEUS.
Atenciosamente