Notifications
Clear all

[Resolvido] Declarar valor celula Excel em uma variável VBA

3 Posts
2 Usuários
2 Reactions
953 Visualizações
(@marcosuke)
Posts: 72
Trusted Member
Topic starter
 

Ola amigos!

Montei a muito tempo atras uma macro que "mata" o arquivo caso a data de vencimento esteja expirado.

Para que isso aconteça, salvo o arquivo com a macro configurada, e todas as vezes que atualizo o arquivo, tenho que ir na macro e editar a data do próximo vencimento.

O que estou tentando fazer é que ao invés de eu ter que ir no código todas as vezes alterar essa data, o próprio código busca a data de vencimento que está na aba "MENU" na "C10", mas não faço ideia como posso chamar essa data para o código.

O trecho do código com a data é essa abaixo entre aspas "17/06/2022":

Dim dtexp As Date
  
'Data que deverá expirar
     dtexp = ("17/06/2022")
  
     If Date >= #1/11/2010# Then
     If Date >= dtexp Then
  
     ThisWorkbook.Saved = True
  
     ThisWorkbook.ChangeFileAccess xlReadOnly
  
     Kill ThisWorkbook.FullName
     ThisWorkbook.Close
          
     End If

Alguém pode me dar uma força?

 

 
Postado : 01/10/2022 9:25 am
(@osvaldomp)
Posts: 858
Prominent Member
 

Experimente:

dtexp = Sheets("MENU").[C10]

Osvaldo

 
Postado : 02/10/2022 9:11 am
marcosuke reacted
(@marcosuke)
Posts: 72
Trusted Member
Topic starter
 

@osvaldomp

Olá Oswaldo!! Muito obrigado pela força!

Funcionou perfeitamente!

Grande abraço!

 
Postado : 02/10/2022 7:44 pm
Osvaldomp reacted