Este fórum está sendo desativado

[Piacentini19]

Bom dia.
Gostaria de saber como faço para que no dia da data limite que coloquei na célula E8 ser igual a célula E11 ela execute uma macro.
Como posso prosseguir?
Desde ja agradeço a ajuda...

[wesleyribeiro123]

Piacentini
Bom dia,

Brother utilize a seguinte instrução caso o dia de hoje seja calculado na própria planilha:

Código: Selecionar todos

Sub AtivarComData()
If Planilha1.Range("E11") = Planilha1.Range("E8") Then
    'INSIRA SEU CÓDIGO AQUI
    MsgBox "MACRO EXECUTADA"
End If
End Sub

E caso deseje que o calculo do dia de hoje seja executado dentro do código sem vinculo com a planilha use esta:

Código: Selecionar todos

Sub AtivarComDataAutomatica()
If Planilha1.Range("E8") = Date Then
    'INSIRA SEU CÓDIGO AQUI
    MsgBox "MACRO EXECUTADA"
End If
End Sub

Esepro ter lhe ajudado...

[Piacentini19]

Obrigado pela ajuda, mas eu não consegui inserir.
Tipo assim, como a celula que busca automaticamente a data com a formula =hoje(), a que eu inserir vai ser a data de validade.
Desda forma, quando chegar no dia que estipulei para vencimento, tem que automaticamente a macro ser executada para bloquear a planilha.
Se foi isso mesmo que passou me desculpa, mas não consegui fazer lkkkkk mas obrigado...

[wesleyribeiro123]

Piacentini

Sim, vou tentar detalhar melhor a função criada...

Código: Selecionar todos

Sub AtivarComData()
'~> Na linha abaixo estamos verificando se a Data informada na Planilha ("E8") é igual a data de hoje ("E11")
'~> Se a data não for igual ele finaliza a execução da macro e nada é alterado em tua planilha.
If Planilha1.Range("E11") = Planilha1.Range("E8") Then
'~> Se a data for igual, então ele executará tudo que estiver aqui neste espaço em BRANCO

    'INSIRA SEU CÓDIGO AQUI
    'Se a macro que deverá ser executada for apenas para Bloquear a planilha utilize a linha abaixo, se não, apague-a
     Planilha1.Protect "SENHA"
'~> Utilize este espaço acima para escrever teu código
    MsgBox "MACRO EXECUTADA" 'Esta mensagem é apenas para saber que as datas são iguais e a macro foi executada
End If
End Sub

Espero ter sido claro quanto as explicações...

[Piacentini19]

Boa tarde Wesley!
Do fundo do meu coração eu não sei como fazer kkkkk
Montei aqui nesta planilha, mas não da nada...
Olha o que eu fiz...
Agradeço seu tempo e paciência.


Sub AtivarComData()
If Planilha1.Range("E11") = Planilha1.Range("E8") Then
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True

'INSIRA SEU CÓDIGO AQUI
'Se a macro que deverá ser executada for apenas para Bloquear a planilha utilize a linha abaixo, se não, apague-a
Planilha1.Protect "SENHA"
MsgBox "MACRO EXECUTADA" 'Esta mensagem é apenas para saber que as datas são iguais e a macro foi executada
End If
End Sub