msgBox para uma condição

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Olá, bom dia! Gostatia inicilamente de agradecer pelo pronto atendimento que tenho recebido do pessoal do Planilhando, hoje, faço minha 7ª postagem e nas 6 anteriores fui atendido quase que instantâneamente. Obrigado a todos que colaboram para meu aprendizado, pois, tenho aprendido muito aqui. Bom, hoje pretendo continuar com 100% de aproveitamento, se assim posso dizer, para tanto, gostaria que meus ilustres e nobres colegas pudessem tentar me ajudar na situação disposta abaixo:

Tenho uma planilha de solicitação de adiantamento salarial, a qual encaminho em anexo, onde na coluna M (Situação) existe uma condição para que me informe se o valor requerido, foi ou não liberado. Essa condição de "NÃO LIBERADO" é determinda caso o valor solicitado ultrapasse 40% do salário do funcionário, ou o mesmo possua menos de 30 dias de trabalho. Pois, bem, o que eu gostaria é que toda vez que a condição de não liberado fosse informada, surgisse uma mensagem (em uma msgBox, por exemplo) solicitando que verifique a data de admissão ou então informe outro valor.

Em uma situação mais complexa, se possível que essa msgbox me informasse que o valor não foi liberado por conta do período de admissão não permitir ou por conta do valor informado ser superior a 40%, ou seja, além de informar a impossibilidade de solicitar o adinatamento, que informe também o motivo pelo qual a solicitação não foi liberada.
É isso pessoal, tomara que possam me ajudar. Fico aqui ancioso por uma resposta.

Postado : 19/06/2012 5:22 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Leia as regras antes de postar.

Nossas Regras:
viewtopic.php?f=7&t=203

Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

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

Postado : 19/06/2012 5:34 am

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Segue planilha modelo, não é exatamente a que tinha, acontece que exclui e só tenho outra em casa, então criei essa agora para que tentem me ajudar.

Postado : 19/06/2012 6:17 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Vê se ajuda Charlie.

Qualquer coisa da o grito.

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

Postado : 19/06/2012 11:49 am

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Bernardo... como sempre muito eficiente e prestativo. Bom, pelo que reparei, você utilizou a validação de dados. Vou utilizar este método, porém, tem como determinar quais das variantes não foram atendidas? Se não foi liberada por conta da data de admissão, ou se não foi liberada por conta do percentual acima de 40%?

Postado : 19/06/2012 12:15 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Cara desse jeito somente com VBA...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Mas to meio sem tempo agora...

Vê se assim já ajuda.

Qualquer coisa da o grito.

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

Postado : 19/06/2012 12:31 pm

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Bernardo... ajuda sim. De qualquer forma, caso dê para criar o VBA, ficaria extremamente grato.

Postado : 19/06/2012 1:31 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Olá Charlie-81, tente isso e faça os teste necessário.

Sub AleVBA_Teste()
    sn = Range("H6:K900")
    sp = Range("M6:M900")
     
    For j = 1 To UBound(sn)
        If DateDiff("d", sn(j, 1), Date) = 30 Then
            sp(j, 1) = "a data de adimissão e % solicitado não foi concedido"
            If sn(j, 4) < 0.4 Then sp(j, 1) = "a data de adimissão não atendido"
        ElseIf DateDiff("d", sn(j, 1), Date) > 30 And sn(j, 4) < 0.4 Then
            sp(j, 1) = "Porcentagem não atendida"
        Else: sp(j, 1) = "Aprovado"
        End If
    Next
    Range("M6:M900") = sp
End Sub

Por favor tente adaptar de acordo com o que pretende.

Att

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

Postado : 20/06/2012 4:27 am

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

alexandrevba??? Bom dia!!!

Cara... eu devo inserir o código na planilha Plan1(Adiantamento) em questão, certo? Não deu efeito nenhum, será que fiz algo errado? Se possível pode incluir na planilha em anexo. Desde já obrigado.

Postado : 20/06/2012 6:12 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Verifique atentamente sua planilha, pois pode ser que as formulas das colunas <> M, foram deletadas.

Analise e simule todos resultados possíveis, faça os teste!!

baixe em...
http://www.sendspace.com/file/lejfee

Att

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

Postado : 20/06/2012 11:16 am

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Alexandre, funcionou bem. Só que toda vez terei que clicar no botão para verificar as condições

Postado : 20/06/2012 12:07 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite, da uma olhada e ver se atende, não entendi muito oque você queria mais tentei ajudar, qualquer coisa retorna com mais detalhes,

// tenta mudar o valor onde o requerido var ultrapassar aos 40%, ele irá mostrar uma msgbox.

qualquer duvida ou sugestões para implemetar so da o toque.

abraço amigo.

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

Postado : 20/06/2012 3:00 pm

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Boa noite, da uma olhada e ver se atende, não entendi muito oque você queria mais tentei ajudar, qualquer coisa retorna com mais detalhes,

// tenta mudar o valor onde o requerido var ultrapassar aos 40%, ele irá mostrar uma msgbox.

qualquer duvida ou sugestões para implemetar so da o toque.

abraço amigo.

Markos??? obg, vou abrir em casa, estou indo embora do trampo agora. Mesmo que não funcione da forma que quero, fico extremamente grato em ter tentado ajudar. Amanhã volto com a resposta. Vlws....

Postado : 20/06/2012 3:04 pm

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Olá Markos... não funcionou.

Postado : 21/06/2012 6:52 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Veja se te atende..
http://www.sendspace.com/file/2fyk4w

Att

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

Postado : 22/06/2012 5:17 am