Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Ajuda com codigo VBA para controlar data de validade

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
rpenna



Mensagens : 1
Data de inscrição : 06/01/2015

MensagemAssunto: Ajuda com codigo VBA para controlar data de validade    Ter Jan 06, 2015 5:52 pm

Ola pessoal,

preciso controlar a data de validade dos produtos em minha empresa e para isso criei uma planilha em que coloco:

Coluna A - nome dos produtos
Coluna B; C; D; n - as datas de validade

Inicialmente inseri uma formatacao condicional que muda as cores das celulas baseados na proximidade do vencimento como por exemplo:

Celula azul se o a data de vencimento for maior que 15 dias
Celula verde se o a data de vencimento for maior que 5 dias
Celula amarela se o a data de vencimento for maior que a data atual e menos do que 5 dias
Celula vermelha se o a data de vencimento for igual a data atual
Celula preta se o a data de vencimento menor do que a data atual

Posteriormente, como serao meus funcionarios que irao atualizar a planilha decidi avancar um pouco mais e criar um codigo VBA que me avise caso algum produto venha a vencer mas nao estou conseguindo finalizar a planilha.

O que preciso:

- rodar o macro automaticamente  quando a planilha for aberta.
- proximo passo, procurar em um intervalo de celulas ( b2:z999) a ocorrencia de data que seja menor do que a data atual ou seja produto vencido em estoque.
- proximo passo se existir data menor do que a atual ( nao tenha produtos vencidos ) nada acontece e se existir data menor do que a atual ( exista produtos vencidos em estoque ) o excel me mande um e-mail avisando o fato.

As rotinas de rodar o macro ao abrir a planilha e de enviar email estao funcionando o que nao consigo fazer funcionar e o meio da programacao.

Obrigado pela ajuda,
Rafael
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com codigo VBA para controlar data de validade    Qua Jan 07, 2015 12:01 am

Boa tarde!!

Poste seu arquivo modelo!!


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
lucas.100sk8



Mensagens : 4
Data de inscrição : 13/01/2015

MensagemAssunto: Re: Ajuda com codigo VBA para controlar data de validade    Qua Jan 14, 2015 2:26 pm

Coloque um Call Pintar no workbook open
e crie um módulo com esse código e toda vez que abrir a planilha ela atualizara

Sub Pintar()
Dim data As Date
Dim diasrest As Integer

Range("b2").Select

Do Until ActiveCell.Value = ""

data = ActiveCell.Value

diasrest = data - Date

If diasrest > 15 Then

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Else
If diasrest > 5 Then

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Else

If diasrest = 0 Then

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Else

If diasrest < 0 Then

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 4.99893185216834E-02
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With

Else
If diasrest < 5 Then

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With



End If
End If
End If
End If
End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Ajuda com codigo VBA para controlar data de validade    Hoje à(s) 5:43 pm

Voltar ao Topo Ir em baixo
 
Ajuda com codigo VBA para controlar data de validade
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como restaurar o fórum para uma data específica
» Ajuda com codigo de caracteris
» ajuda-no-tutorial-phpbb3-para-punpbb
» Aplicativo para controlar a tv por Wi-Fi
» widget para compromisso - igual ao aniversário

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: