Guru do Excel e Power BI

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

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

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

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

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

Guru do Excel e Power BI

Na data limite executar macro

Na data limite executar macro

Na data limite executar macro

Na data limite executar macro

Na data limite executar macro

Na data limite executar macro