Este fórum está sendo desativado

[Lahel]

Boa Tarde galera!
Estou montando uma planilha com ajuda de vocês! Graças a Deus,
Agora estou com outra duvida na coluna "Validade Ate" quando estiver "Prazo - Menos de 1 Mês" queria saber se o possível quando eu abrir o excel e ele me mandar uma caixa de msg mostrando o nome da pessoa que falta 1 mês para vencimento.
Exemplo:
"O ASO do Adilson Luiz dos Santos irá vencer em 1 Mês"
"O ASO do Adilson Luiz dos Santos irá vencer em 15 dias"
"O ASO do Adilson Luiz dos Santos está vencido"

Segue a planilha em anexo"

[gfranco]

Não seria mais funcional uma formatação condicional?
Pergunto isso pois (provavelmente) haverá mais de um colaborador em cada situação e, penso eu, deve ser muito pouco produtivo ficar clicando em "OK" de msgbox ( e nem vai dar tempo de memorizar todos os nomes....
Minha opinião.

[Lahel]

Então como tenho que abrir a planilha todo dia e emitir os ASO se aparecesse essa msg na tela eu consigo mapear mais rápido.

[mprudencio]

Neste caso eu concordo com o colega

Uma formatação condicional isso vai me identificar visualmente os colaboradores que precisam de atenção.

Dificilmente vc tera apenas 1 colaborador que atenda a condição e se seguir no seu raciocinio vc tera diversas vezes a msgbox.

Imagina uma empresa com 400 funcionarios e 100 estao com o ASO vencendo seria 100 cliques.

3 formataçoes condicionais resolve facil

Verde qdo faltar menos de 30 dias
Amarelo qdo faltar menos de 15 dias
Vermelho qdo vencer.

[Lahel]

Sim nesse ponto concordo com vcs, mais minha equipe chegará no máximo até 100 funcionários, no maximo 8 ASOs vence no mês ou seja seria 8 cliks no máximo e quando a msg aparacer eu ja tomaria as providencias

[mprudencio]

Pessoalmente nao faria assim justamente para nao ter que clicar mais de uma vez no OK.

A FC que vc ja aplicou e o auto filtro é mais que suficiente.

De qualquer forma

Cole este codigo em Esta PastadeTrabalho


Private Sub Workbook_Open()
Dim W As Worksheet
Dim WRows As Long


Set W = Plan1

For WRows = 9 To W.Range("A" & Rows.Count).End(xlUp).Row

If W.Cells(WRows, 8).Value <> "Valido" Then

MsgBox "O ASO DE" & " " & W.Cells(WRows, 1).Value & Chr(13) & Chr(13) & W.Cells(WRows, 8).Value

End If

Next WRows

End Sub

[Lahel]

Ficou muito top, minha duvida e que quando eu abro a planilha os box nao aparece somente quando mando executar

[Lahel]

Pessoalmente nao faria assim justamente para nao ter que clicar mais de uma vez no OK.

A FC que vc ja aplicou e o auto filtro é mais que suficiente.

De qualquer forma

Cole este codigo em Esta PastadeTrabalho


Private Sub Workbook_Open()
Dim W As Worksheet
Dim WRows As Long


Set W = Plan1

For WRows = 9 To W.Range("A" & Rows.Count).End(xlUp).Row

If W.Cells(WRows, 8).Value <> "Valido" Then

MsgBox "O ASO DE" & " " & W.Cells(WRows, 1).Value & Chr(13) & Chr(13) & W.Cells(WRows, 8).Value

End If

Next WRows

End Sub

Coloquei, so que quando abro a planilha não acontece nada, somente quando vou na aba macro e eu executo ai da certo.

[mprudencio]

Vc precisa abrir o editor vba e colar em Esta PastadeTrabalho.

Normalmente esta do lado esquerdo da tela