Jump to content
Fórum Script Brasil
  • 0

Alimentar todos os campos de endereço a partir do CEP


Question

Olá,

Gostaria de saber como alimentar todos os campos do endereço a partir do CEP.

Estou com uma aba da panilha onde todos os ceps do Brasil estão lá e a partir de uma pesquisa feita em outro userform, o qual é exclusivo para a pesquisa do endereço, quando a opção fosse escolhida, ao clicar em "selecionar CEP" todas as informações fosse pra os devidos campos do userform cadastro. Como posso fazer isso?

Lembrando que o resultado, ou seja, a pesquisa do CEP estará no listbox no userform feito somente para pesquisar os CEPs e a informação será levada ao você clicar na opção desejada no listbox e, com a opção selecionada, clicar em "selecionar CEP".

Se necessário consultar, o arquivo do excel tá nesse Link pra baixar a planilha. .

Esse sistema será uma doação para uma ONG aqui da cidade que resgata animais em situação de risco.

Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0
5 horas atrás, Alyson Ronnan Martins disse:

Boa tarde @Yuri Da Costa GarciaTem a maneira fácil e a maneira difícil.

Você tenhecimento básico se vba ou apenas excel?

Tenho algum conhecimento de ambos. Eu quem fiz toda essa programação e design. Fui estudando ao longo do projeto, mas, algumas coisas eu não achei.

Link to post
Share on other sites
  • 0

Boa noite @Yuri Da Costa Garcia

Primeiro eu coloquei uma função achar a linha na planilha:

Public Function fPesquisarCEP(CEP As Long) As Long
On Error GoTo Pulo
Dim s As Worksheet
Dim r As Long

Set s = Sheets("Bco_CEPs")
r = Application.WorksheetFunction.Match(CEP, s.Range("A:A"), 0)
fPesquisarCEP = r
Exit Function

Pulo:
    r = 0
    Resume Next
    
End Function

Se e a função retornar maior que 0 ele vai pegar os valores da linha e colocar no furmulário:

Public Sub cPesquisaCEP(r As Long)
Dim s As Worksheet
Set s = Sheets("Bco_CEPs")
If r = 0 Then
    formCadastrar.txtUF.Value = ""
    formCadastrar.txtCidade.Value = ""
    formCadastrar.txtBairro.Value = ""
    formCadastrar.txtRua.Value = ""
Else
    formCadastrar.txtUF.Value = s.Cells(r, "B").Value
    formCadastrar.txtCidade.Value = s.Cells(r, "C").Value
    formCadastrar.txtBairro.Value = s.Cells(r, "D").Value
    formCadastrar.txtRua.Value = s.Cells(r, "E").Value
End If
End Sub

O comando foi  testado no buscar o CEP:

Private Sub btCEP_Click()
Dim CEP As Long
Dim r As Long
CEP = CLng(Replace(txtCEP.Value, "-", ""))

If fPesquisarCEP(CEP) > 0 Then
'    Colocar os campos
    r = fPesquisarCEP(CEP)
    cPesquisaCEP (r)
Else
    formCeps.Show
End If

End Sub

 

Link do Arquivo

Excel

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149151
    • Total Posts
      645419
×
×
  • Create New...