Fóruns
Microsoft Excel - 2...
Formulários
Se e no textobox (s...
 
Notifications
Clear all

Se e no textobox (se alinhado)

 
Formulários
Post Recente por arlean 7 anos atrás
5 Posts
3 Usuários
0 Reactions
1,116 Visualizações
RSS
 arlean
(@arlean)
Posts: 3
New Member
Topic starter
 

Boa noite pessoal sou iniciante no excel vba, fiz duas combobox um dependende da outra. Por exemplo uma é possível selecionar um tipo de edificação (ex: escada) na outra aparece opções ( Tipo: com acesso publico, sem acesso publico), de modo que eu quero uma textbox que quando eu selecionar as duas opções retorne o valor da carga, no caso com acesso público 3 e sem acesso ao publico 2.

pensei em um código assim porém não deu certo

Private Sub carregamento_Change()
If tipo.Text = "Arquibancadas" Then carregamento.Value = 4
If tipo.Text = "cinemas" And tipo2.Text = "Estúdio e platéia com assentos móveis" Then carregamento.Value = 5
End Sub

 
Postado : 27/11/2017 8:23 pm
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Bom dia.
Sugiro postar sua planilha para facilitar ajudar-te

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 28/11/2017 3:05 am
 arlean
(@arlean)
Posts: 3
New Member
Topic starter
 

segue em anexo a planilha

 
Postado : 28/11/2017 11:59 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Baseado na estrutura de sua planilha/tabela de carga segue uma possibilidade
Altere a range de "carregamento" da combobox Tipo2, incluindo tambem a coluna de valores (Coluna AK).

Private Sub tipo_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If tipo.Text = "Arquibancadas" Then tipo2.RowSource = "AJ31:Ak31"
    If tipo.Text = "Balcões" Then tipo2.RowSource = "AJ32:Ak32"
    If tipo.Text = "Bancos" Then tipo2.RowSource = "AJ33:AK34"
    If tipo.Text = "Bibliotecas" Then tipo2.RowSource = "AJ35:AK38"
    If tipo.Text = "Casa de Máquinas" Then tipo2.RowSource = "AJ39:AK39"
    If tipo.Text = "Cinemas" Then tipo2.RowSource = "AJ40:AK42"
    If tipo.Text = "Clubes" Then tipo2.RowSource = "AJ43:AK46"
    If tipo.Text = "Corredores" Then tipo2.RowSource = "AJ47:AK48"
    If tipo.Text = "Cozinhas não Resideciais" Then tipo2.RowSource = "AJ49:AK49"
    If tipo.Text = "Depósitos" Then tipo2.RowSource = "AJ50:AK50"
    If tipo.Text = "Edifícios Residenciais" Then tipo2.RowSource = "AJ51:AK52"
    If tipo.Text = "Escadas" Then tipo2.RowSource = "AJ53:AK54"
    If tipo.Text = "Escolas" Then tipo2.RowSource = "AJ55:AK57"
    If tipo.Text = "Escritório" Then tipo2.RowSource = "AJ58:ak50"
    If tipo.Text = "Forros" Then tipo2.RowSource = "AJ59:ak59"
    If tipo.Text = "Galerias de Arte" Then tipo2.RowSource = "AJ60:AK61"
    If tipo.Text = "Garagens e Estacionamentos" Then tipo2.RowSource = "AJ62"
    If tipo.Text = "Ginásio de Esportes" Then tipo2.RowSource = "AJ63:AK63"
    If tipo.Text = "Hospitais" Then tipo2.RowSource = "AJ64:AK65"
    If tipo.Text = "Laboratórios" Then tipo2.RowSource = "AJ66:AK66"
    If tipo.Text = "Lavanderia" Then tipo2.RowSource = "AJ67:AK67"
    If tipo.Text = "Lojas" Then tipo2.RowSource = "AJ68:AK68"
    If tipo.Text = "Restaurantes" Then tipo2.RowSource = "AJ69:AK69"
    If tipo.Text = "Teatros" Then tipo2.RowSource = "AJ70:AK71"
    If tipo.Text = "Terraços" Then tipo2.RowSource = "AJ72:AK75"
    If tipo.Text = "Vestíbulo" Then tipo2.RowSource = "AJ76:AK77"
End Sub

Depois inclua o procedimento abaixo no evento Change do combo tipo2

Private Sub tipo2_Change()
carregamento.Text = tipo2.List(tipo2.ListIndex, 1)
End Sub

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

 
Postado : 28/11/2017 12:44 pm
 arlean
(@arlean)
Posts: 3
New Member
Topic starter
 

Tudo ok meu amigo funcionou perfeitamente. Muito obrigado !

 
Postado : 28/11/2017 1:02 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico