Bom dia pessoal!

A planilha não está rodando pelo fato do site de busca ( http://republicavirtual.com.br/web_cep.php?cep= ) estar fora de serviço.
Alguém sabe como ficaria se alterássemos o site para o site dos correios? Na página inicial existe um buscador.

Muito obrigado.

Att.
Eduardo.

Boa tarde,
Baixei esta planilha e copiei as macros para outra planilha que eu utilizo no trabalho, porem quando digito um cep, da uma mensagem, "cep não encontrado" alguem pode me ajudar?
vlw.

Boa tarde!!

Deve olhar atentamente a posta, e especificar as referências aos objetos.

se poder postar um arquivo modelo compactado..

Att

Boa tarde,
Baixei esta planilha e copiei as macros para outra planilha que eu utilizo no trabalho, porem quando digito um cep, da uma mensagem, "cep não encontrado" alguem pode me ajudar?
vlw.

Tente por aqui
viewtopic.php?f=10&t=6066

No 4shared tem a base completa(?!?) Brasil e consulta sem web.
http://www.4shared.com/rar/ezFGzFso/COR ... NDRIX.html

Qq coisa fala.

Abs,

Boa noite, galera,

Ressuscitando o tópico aqui pra matar uma dúvida. Essa rotina funcionou redondo aqui em casa, mas na internet da minha empresa não funcionou, porque lá usam um proxy que precisa de autenticação. Como eu faço pra setar essas credenciais?

grato,

LF83

Boa tarde, desculpa reviver o tópico
Alguém poderia upar novamente alguma das planilhas?
Estou fazendo uma planilha e queria colocar esse mecanismo nela, mas não estou encontrando em nenhum lugar.
Consegui fazer a busca do cep, mas não prencher as celulas com o resultado.
Obrigado desde já

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
    'CommandButton9.Enabled = False
    'CommandButton2.Enabled = False
   'CommandButton6.Enabled = False
   'CommandButton7.Enabled = False
   'CommandButton8.Enabled = False
 End Sub

Segue...