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.
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
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
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.
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
Vê se ajuda Charlie.
Qualquer coisa da o grito.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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%?
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
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
Bernardo... ajuda sim. De qualquer forma, caso dê para criar o VBA, ficaria extremamente grato.
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
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
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.
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
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
Alexandre, funcionou bem. Só que toda vez terei que clicar no botão para verificar as condições
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
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
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....
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
Olá Markos... não funcionou.
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
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