Fóruns
Microsoft Excel - 2...
Formulários
Retornar quantos ôn...
 
Notifications
Clear all

Retornar quantos ônibus conforme o nº de passageiros

 
Formulários
Post Recente por afbergman 10 anos atrás
5 Posts
3 Usuários
0 Reactions
1,506 Visualizações
RSS
 afbergman
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Boa tarde pessoal,

Gostaria e fazer a seguinte situação:

na textbox "nº de passageiros" ao inserir o valor ela auto completaria a outra texbox "onibus"

Esses sao os valores:

quando o nº de passageiros for menor ou igual a 60, completaria na textbox onibus com o nº 1, ou seja, em cada onibus cabem 60 passageiros.

Explicando melhor, exemplo:

ate 60 passageiros = 1 onibus
de 61 ate 120 = 2 onibus
121 ate 180 = 3 onibus e assim por diante

Me ajudem!!!

Abraços.

 
Postado : 25/10/2014 11:27 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

afbergman,

Boa Tarde!

Por gentileza atente, nas próximas postagens aqui no fórum, para a correta organização e regras do fórum. O título da sua mensagem não quer dizer nada. Utilize sempre algo claro e que defina claramente sua necessidade.

Veja se assim lhe atende.

Numero de onibus.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 25/10/2014 12:27 pm
 afbergman
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Não funcionou!!!!

Se possivel, gostaria que me explicasse como foi a linha de raciocínio feita desse codigo.

Abraços.

 
Postado : 03/11/2014 10:18 pm
Reinaldo
 Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Aproveitando o excelente raciocínio do colega Wagner Morel,
altere assim:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Val(TextBox1.Text) Mod 60 = 0 Then
        TextBox2.Text = Int(Val(TextBox1.Text) / 60)
    Else
        TextBox2.Text = Int(Val(TextBox1.Text) / 60) + 1
    End If
End Sub

Se a divisão por 60 tiver resto Zero (função Mod retorna o resto da divisão), então o numero e a divisão.
Se houver um resto, adicione 1 a divisão

Reinaldo

 
Postado : 04/11/2014 6:57 am
 afbergman
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Funcionou pessoal!!!

Muito obrigado.

 
Postado : 04/11/2014 9:00 am
Forum Jump:
  Tópico Anterior
Próximo Tópico