Página 1 de 1

Ajuda em vba planilha cidades x estados

Enviado: Qui Set 28, 2017 7:33 pm
por Rickardus
Abraços a todos,
Sou novo por aqui e necessito de ajuda. Criei uma planilha com base retirada da net que relaciona cidades x estados do Brasil esta parte funciona em 2 combobox
mas, gostaria de adicionar o resultado do segundo combobox (cidades) mais 2 itens como por exemplo população e área de cada cidade. tentei de todas as forma conhecidas por mim e não obtive sucesso. Em anexo o arquivo. Se alguem puder me ajudar agradeço.
Obrigado

Re: Ajuda em vba planilha cidades x estados

Enviado: Sex Set 29, 2017 1:20 am
por srobles
Rickardus,

Veja se o modelo em anexo atende suas necessidades.

Abs

Re: Ajuda em vba planilha cidades x estados

Enviado: Sex Set 29, 2017 5:09 am
por Rickardus
Obrigado pela resposta, vi o codigo mas , ele não está preenchendo as caixas população e área ainda.
Abraços

Re: Ajuda em vba planilha cidades x estados

Enviado: Sex Set 29, 2017 9:24 am
por Reinaldo
O modelo (muito bom por sinal) proposto pelo colega SRobles,para atingir o que se propoe, apos escolher a cidade deve ser teclado "ENTER" ou "TAB"
Uma outra opção

Código: Selecionar todos

Private Sub Combo_CIDADE_Change()
If Me.Combo_CIDADE = "" Then Exit Sub
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Combo_CIDADE, Sheets("CIDADES").Range("B2:D10000"), 2, False)
Me.TextBox2.Text = Application.WorksheetFunction.VLookup(Combo_CIDADE, Sheets("CIDADES").Range("B2:D10000"), 3, False)
End Sub

Re: Ajuda em vba planilha cidades x estados

Enviado: Sex Set 29, 2017 12:53 pm
por srobles
Grande Reinaldo!

A solução enviada por ti amigo é excelente! Simples e objetiva!

Obrigado pela ajuda, mestre!

Forte abraço.

Re: Ajuda em vba planilha cidades x estados

Enviado: Sex Set 29, 2017 7:34 pm
por Rickardus
Caros, Srobles e Reinaldo. Muito obrigado pela ajuda as duas soluções funcionam perfeitamente . Não havia reparado que na resposta do Srobles era a tecla enter ou tab. Agradeço imensamente não conseguiria isto sem a ajuda de vcs.
Grande abraços a todos