Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Ajuda em vba planilha cidades x estados

Dúvidas gerais sobre Word
Rickardus
Colaborador
Colaborador
Mensagens: 13
Registrado em: Qui Set 28, 2017 4:36 am

Ajuda em vba planilha cidades x estados

Mensagem 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
Anexos
Cidades Brasileiras.rar
(205.8 KiB) Baixado 697 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Ajuda em vba planilha cidades x estados

Mensagem por srobles »

Rickardus,

Veja se o modelo em anexo atende suas necessidades.

Abs
Anexos
Cidades Brasileiras.zip
(217.64 KiB) Baixado 734 vezes


Rickardus
Colaborador
Colaborador
Mensagens: 13
Registrado em: Qui Set 28, 2017 4:36 am

Re: Ajuda em vba planilha cidades x estados

Mensagem por Rickardus »

Obrigado pela resposta, vi o codigo mas , ele não está preenchendo as caixas população e área ainda.
Abraços


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Ajuda em vba planilha cidades x estados

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Ajuda em vba planilha cidades x estados

Mensagem por srobles »

Grande Reinaldo!

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

Obrigado pela ajuda, mestre!

Forte abraço.


Rickardus
Colaborador
Colaborador
Mensagens: 13
Registrado em: Qui Set 28, 2017 4:36 am

Re: Ajuda em vba planilha cidades x estados

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder