Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Data no VBA
 
Notifications
Clear all

Data no VBA

 
2024 - VBA & Macros
Post Recente por xlarruda 7 anos atrás
6 Posts
4 Usuários
0 Reactions
1,377 Visualizações
RSS
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
Topic starter
 

Pessoal, uma dúvida..
em VBA, como faço isso:

Se a data contida na célula A1, caiu em um "Sábado" então G1 = "OK"

Desde já Agradeço!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 23/10/2017 10:58 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

xlarruda,

Boa tarde!

    If Weekday(Range("A1").Value = 7) Then
        Range("G1").Value = "OK"
    End If

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 23/10/2017 11:50 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
Topic starter
 

Edit: Wagner descupe, eu tinha dito que deu certo mas porque tinha tentado apenas com a data de sábado. Mas reparei o código está trazendo o "OK" na G1, independente do dia da semana. Por exemplo, eu coloquei a data de hoje e mesmo assim ele traz "OK".

Agradeço desde já!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 23/10/2017 12:05 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 
[G1] = IIf(Weekday([A1]) = 7, "OK", "")

Osvaldo

 
Postado : 23/10/2017 1:16 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Na solução do colega wagner o fechamento da função está em local incorreto deve ser
Weekday(Range("A1").Value) = 7

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/10/2017 1:58 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
Topic starter
 

Caro Osvaldomp, é examtamente isso!
Reinaldo, Obrigado também pelo detalhe observado! Depois da sua dica funcionou também.
E obrigado novamente ao wagner.. Vocês são feras!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 23/10/2017 2:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico