patrick23,

Boa tarde!

Veja se é assim.

Obs. Esse arquivo resolve a parte de digitar o CEO e buscar os demais dados do endereço.

Descompacte todos os arquivos e teste.

A outra parte (digitar um endereço e buscar o CEP) ainda é necessário desenvolver. Todavia, a lógica é igual a da primeira parte. Ou seja, quando o usuário digitar um endereço, buscar na base de dados por aquele endereço e, encontrando coincidência, buscar o CEP e jogar na planilha.

Infelizmente não está funcionando em meu computador.

Infelizmente não está funcionando em meu computador.

De fato não irá funcionar, este exemplo trabalha off-line e faltou o arquivo do Access que contem o banco de dados, vamos aguardar o Wagner para anexa-lo.

Gostaria que a consulta fosse feita online, pois acredito que tenhamos bases de dados atualizadas mais frequentemente.

Mas vamos esperar e ver se funciona.

Gostaria que a consulta fosse feita online, pois acredito que tenhamos bases de dados atualizadas mais frequentemente.

Mas vamos esperar e ver se funciona.

No tópico abaixo tem um modelo que preenche os campos em um formulário (online), mas pelo cep somente, baixe e veja se ajuda, se pesquisar por CEP no forum encontrara varios posts e modelos, alguns anexos infelizmente estão corrompidos, até um tópico meu, mas este vou ver se encontro um backup e atualizo, por enquanto veja o que indiquei.

Baixe o exemplo no último post
Procurar endereço por CEP
viewtopic.php?f=28&t=3463&start=20

estou tentando usar seu arquivo mas esta dando o seguinte erro:

https://drive.google.com/file/d/0By7zwEUmL4SxZ2wwOWZnZTQ4b0k/view?usp=sharing

Eu uso o Office 2011 for mac, será que esse é o problema?

crie no seu projeto planilha chamada cep.

no evento botão pesquisar_click coloque
buscacep

no fim dos módulos cole este módulo abaixo:

Private Sub buscacep()
 
 On Error GoTo TratarErro
 If Len(TextCEP) < 8 Then
 MsgBox "CEP inválido, pois tem menos de 8 numeros", vbExclamation, "Avisso"
 Exit Sub
 End If
 
 If TextCEP.Text <> "" Then
 Range("cep!a1:h1").Clear
         TextENDERECO = Empty
         TextBAIRRO = Empty
         ComboCIDADE = Empty
         ComboUF = Empty
                    
         ActiveWorkbook.XmlImport URL:= _
             "http://republicavirtual.com.br/web_cep.php?cep=" & TextCEP, ImportMap:= _
             Nothing, Overwrite:=False, Destination:=Range("cep!$b$1")
             TextENDERECO = VBA.UCase(Range("g1") & " " & Range("cep!h1"))
             TextBAIRRO = VBA.UCase(Range("cep!f1"))
             ComboCIDADE = VBA.UCase(Range("cep!e1"))
             ComboUF = VBA.UCase(Range("cep!d1"))
             'Me.Label6.Caption = "CEP procurado: " & vbNewLine & TextCEP.Text
             'Me.Label6.Font.Bold = True
             'TextBoxCep = Empty
 End If
         Calculate
    TextCEP.SetFocus
SAIR:
     Exit Sub
TratarErro:
     MsgBox "CEP não cadastrado! " & Err.Description, vbCritical, Err.HelpFile
     GoTo SAIR
    Resume
   
 End Sub

se a cidade e o uf não forem combo troque por txtuf ou txtcidade!!! ou textuf ou textcidade!!!! como vc definiu o seu campo!!!!

patrick23,

Bom dia!

Não cheguei a abrir os arquivos "Tabela...ZIP" que enviei (pois já estavam compactados aqui na minha máquina) e nem percebi que eram arquivos do Excel. Pensei que estava mandando o arquivo em Access.Desculpem a minha falha.

Infelizmente aqui o trabalho só tenho 7Zip e não tenho como instalar outro compactador. o 7Zip quando compacta os arquivo deixa os mesmos com extensão numérica (.001, .002, .003 etc) e esse tipo de extensão não é aceito aqui no site.

Assim, tão logo chegue em casa, eu compactarei o arquivo e o enviarei.

estou tentando usar seu arquivo mas esta dando o seguinte erro:

https://drive.google.com/file/d/0By7zwEUmL4SxZ2wwOWZnZTQ4b0k/view?usp=sharing

Eu uso o Office 2011 for mac, será que esse é o problema?

Não tenho um mac para testar, mas pelo pouco que sei, algumas funções e instruções são diferentes no mac, o ideal seria procurar em foruns de "MAC" ou sobre o erro que está obtendo para ver se é devido ao mac.

Bem senhores, eu fiquei devendo a remessa do arquivo em Access com a tabela de CEP's. como o arquivo é muito grande, segue o mesmo compactado em diversos arquivos. Perdão pela demora na remessa dos arquivos.