Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Evento Exite
 
Notifications
Clear all

Evento Exite

 
2024 - VBA & Macros
Post Recente por m_araujo 13 anos atrás
7 Posts
2 Usuários
0 Reactions
2,021 Visualizações
RSS
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Boa tarde pessoal,
preciso de uma pequena ajuda de voces
eu tenho o seguinte codigo 

Private Sub Ardidos_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next

If Ardidos.Value = "" Then
    MsgBox "Entre com o valor.", "Verifique", vbCritical
    Ardidos.SetFocus
End If
Ardidos.Value = FormatNumber(Ardidos.Value, 2)

If Ardidos.Value < 8 Then
GArdido.Value = 0
Else
GArdido.Value = FormatNumber(GArdido.Value, 2)
GArdido.Value = Ardidos.Value - 8
End If

DArdido = SubTotal.Value * GArdido.Value / 100
DArdido.Value = FormatNumber(DArdido.Value, 2)


SDesconto.Text = CDbl(DUmidade.Text) + CDbl(DImpureza.Text) + CDbl(DAvariado.Text) + CDbl(DArdido.Text)
SDesconto.Value = FormatNumber(SDesconto.Value, 2)

PesoLiquido.Value = SubTotal.Value - SDesconto.Value
PesoLiquido.Value = FormatNumber(PesoLiquido.Value, 2)


Saca.Value = PesoLiquido.Value / 60
Saca.Value = FormatNumber(Saca.Value, 2)' Gostaria de quando eu prescione ele calculase todos esses campos SACAS, SDESCONTO e PESOLIQUIDO o que acontece e que quando eu presciono ENTER ele muda de foco para o proximo controle e so faz os calculos quando eu clico nele novamente ou fecho e abro novamente o frrme que ele se encontra os outros estão iguais a esse e funciona perfeitamente

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 29/02/2012 2:20 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Boa tarde pessoal,
preciso de uma pequena ajuda de voces
eu tenho o seguinte codigo

..E...

O quem tem o código e do que precisa? :?

Att

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

 
Postado : 29/02/2012 6:02 pm
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bom dia Alaxrande
eu comentei o trexo do codigo
escrevi
'Gostaria de quando eu prescione ENTER calculase todos esses campos SACAS, SDESCONTO e PESOLIQUIDO o que acontece e que quando eu presciono ENTER ele muda de foco para o proximo controle e so faz os calculos quando eu clico nele novamente ou fecho e abro novamente o frrme que ele se encontra os outros estão iguais a esse e funciona perfeitamente '

At.
Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 01/03/2012 3:39 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Araujo,
aparentemente o codigo deveria executar ao sair do campo Ardidos (Sub Ardidos_Exit), faça o seguinte teste: "iniba" a linha "On Error Resume Next" (coloque um apostrofe na frente ('On Error Resume Next);
e rode a rotina . Se não houver mensagem de erro, poste seu arquivo para podermos analisa-lo

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

 
Postado : 01/03/2012 7:22 am
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Boa tarde Reinaldo
obrigado por responde
cara eu fiz como tu me pedio para fazer mais não resolveu
estou postando meu arquivo ai.

At.
Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 01/03/2012 11:20 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Araujo,
Não sei exatamente o motivo, mas como os controles estão "ancorados" em um Frame, ao chegar no text Ardidos e teclar enter (ou tab) o foco sai do controle frame e "vai" ao btn cancela, com isso o comando exit de ardidos fica "em stand-by", e ao retornar o foco ao controle Frame, então a rotina e complementada /executada. Anexo seu arquivo sem o frame, e aparentemente está funcional.

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

 
Postado : 01/03/2012 12:33 pm
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Opa Reinaldo funcinou que é uma belza obrigado
se não for pedir muito seguinte dar uma olhada nesse topico aqui é o mesmo arquivo
viewtopic.php?f=10&t=3606
como vc ja baixo o arquivo dar uma analizada
eu gostaria de que o TICKET em aberto so fecha-se quando o sistema desse o peso liquido
e tambem so colocase data e hora de saida quando fosse pra fechar o ticket
me entende .
obrigado

At.
Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 01/03/2012 12:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico