Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Select case em VBA-...
 
Notifications
Clear all

Select case em VBA-EXCEL

 
2024 - VBA & Macros
8 Posts
2 Usuários
0 Reactions
1,540 Visualizações
RSS
 canastra
(@canastra)
Posts: 10
Active Member
Topic starter
 

Olá,
Pretendo criar um useform com 5 textbox.
No textbox1 coloco o valor de venda;
No textbox 2 deve aparecer um valor condicional, conforme o valor de venda do textbox1

Caso a venda seja entre R$ 15.234,38 a R$ 19.042,96 textbox2 é R$ 221,30
Caso a venda seja entre R$ 19.042,97 a R$ 23.803,71 textbox2 é R$ 277,10
Caso a venda seja entre R$ 23.803,72 a R$ 29.754,63 textbox2 é R$ 347,00
Caso a venda seja entre R$ 29.754,64 a R$ 37.193,28 textbox2 é R$ 433,70
e assim sucessivamente

No textbox3, necessito de outro valor condicional, a partir do valor de venda textbox1:

Caso a venda seja até ate R$ 7.057,14 textbox3 é R$ 63,40
Caso a venda seja entre R$ 7.057,15 a R$ 8.821,42 textbox3 R$ 72,60
Caso a venda seja entre R$ 8.821,43 a R$ 11.026,78 textbox3 R$ 90,60
Caso a venda seja entre R$ 11.026,79 a R$ 13.783,48 textbox3 R$ 112,70
Caso a venda seja entre R$ 13.783,49 a R$ 17.229,35 textbox3 R$ 141,10
e assim sucessivamente

No textbox4, calcular 5% do valor de venda (textbox1)

No textbox5 (custo) preciso somar tudo.

Também coloquei 2 botões: 1 para calcular e outro para limpar

Como montar os códigos com select case? :)

 
Postado : 01/01/2014 4:26 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Por favor deposite seu arquivo modelo, aqui no fórum!!!

Att

 
Postado : 01/01/2014 4:29 pm
 canastra
(@canastra)
Posts: 10
Active Member
Topic starter
 

Não estou conseguindo enviar o anexo: "Temporary folder could not be found. Please check your PHP installation."
As principais dúvidas são se eu devo colocar os códigos no textbox ou no commandButton1 e se devo declarar as variáveis dentro ou fora da sub :cry:
O esboço dos códigos está assim:

Dim venda As Double
Dim escritura As Double
Dim registro As Double
Dim custo As Double

Private Sub CommandButton1_Click()
venda = txt_venda.Text
escritura = txt_esc.Text
registro = txt_reg.Text
custo = txt_custo.Text

Select Case venda
Case venda = ""
MsgBox ("Favor inserir valor de venda!")
Case venda >= 58114.51
escritura = 802.1
Case Is >= 60535.91
escritura = 835.1
Case Is >= 72643.13
escritura = 1001.9
Case Is >= 75669.87
escritura = 1043.5
Case Else
escritura =
End Select

txt_itbi.Text = Val(txt_venda * 2 / 100)

txt_custo.Text = Val(txt_venda.Text) + Val(txt_esc.Text) + Val(txt_reg.Text) + Val(txt_itbi.Text)

End Sub

Private Sub CommandButton2_Click()

txt_venda.Text = ""
txt_esc.Text = ""
txt_reg.Text = ""
txt_custo.Text = ""
txt_itbi.Text = ""

End Sub

 
Postado : 01/01/2014 4:48 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente um site gratuito
http://www.sendspace.com/

Att

 
Postado : 01/01/2014 4:51 pm
 canastra
(@canastra)
Posts: 10
Active Member
Topic starter
 

Vamos tentar esse link: http://sdrv.ms/1g1wW1H

 
Postado : 01/01/2014 4:57 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Você deve está de brincadeira, só tem o arquivo, onde está sua Userform e as rotinas? :|

Att

 
Postado : 01/01/2014 5:03 pm
 canastra
(@canastra)
Posts: 10
Active Member
Topic starter
 

Amigo, é sério.
Fiz em excel 2003. acesso a guia macro e depois editor vba (ou algo parecido). O userform está lá.
Obrigado

 
Postado : 01/01/2014 7:10 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu sinto muito, mas eu fiz questão de baixar outro arquivo, ficou da mesma forma... :(

Att

 
Postado : 02/01/2014 3:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico