Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Ajuda com codigo VBA para controlar data de validade

Ir para baixo 
3 participantes
AutorMensagem
rpenna




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

Ajuda com codigo VBA para controlar data de validade  Empty
MensagemAssunto: Ajuda com codigo VBA para controlar data de validade    Ajuda com codigo VBA para controlar data de validade  EmptyTer 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

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

Boa tarde!!

Poste seu arquivo modelo!!


Att
Ir para o topo Ir para baixo
lucas.100sk8




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

Ajuda com codigo VBA para controlar data de validade  Empty
MensagemAssunto: Re: Ajuda com codigo VBA para controlar data de validade    Ajuda com codigo VBA para controlar data de validade  EmptyQua 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
Ir para o topo Ir para baixo
Conteúdo patrocinado





Ajuda com codigo VBA para controlar data de validade  Empty
MensagemAssunto: Re: Ajuda com codigo VBA para controlar data de validade    Ajuda com codigo VBA para controlar data de validade  Empty

Ir para o topo Ir para baixo
 
Ajuda com codigo VBA para controlar data de validade
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Help: Ajuda com fórmula ou com código VB
» Criar código para fazer consulta em formulário
» Vários handlers para um mesmo código
»  Código VBA para prever futuros valores
» Verificar condição para continuar código vba

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: