Planilha Excel de rastreamento de pacotes do correio – Versão 2

Controle de ordem de serviço Excel
Planilha de Ordem de Serviço Excel
4 de junho de 2013
Conhecendo as opções do Excel - Geral
Conhecendo as opções do Excel – Geral
24 de junho de 2013

Planilha Excel de rastreamento de pacotes do correio – Versão 2

Objetivo: Disponibilizar planilha excel para rastrear pacotes do correio versão 2.

Atenção: Os correios mudaram a forma como realizavam a consulta e por isso a planilha abaixo não funciona mais. 

Mas criamos uma nova planilha que realiza esta consulta de forma muito mais profissional

Clique no botão abaixo para ver detalhes da nova planilha de rastreamentos de pacotes nos correios.

Rastreamento CorreiosEsta planilha tem por objetivo controlar entregas ou recebimentos de pacotes dos correios.

Você deve alimentar a coluna de Pacotes com os números dos rastreamentos dos correios, e nas colunas Produto e Cliente você deve digitar as informações pertinentes para facilitar a identificação.

Ao concluir clique no botão Rastreamento correio no Excel o sistema irá realizar uma consulta ao Webservice dos correios e retornar as informações dos rastreamentos preenchendo esta planilha principal e também a planilha que lista todo o caminho do rastreamento que consta na base dos correios.

Rastreamento Correios 2

Abaixo o código fonte VBA que realiza a consulta a base dos correios e atualiza a situação da planilha, além de criar um hiperlink entre o código do rastreamento e o seu histórico.

A planilha realiza a busca diretamente do website dos correios e é muito útil para controlar as encomendas de clientes e fornecedores despachadas pelos correios.

Dim lEndereco As Long

Sub lsTodososPacotes()
    Dim lUltimaLinhaAtiva As Long
    Dim lControle As Long
    
    Application.ScreenUpdating = False
    
    lUltimaLinhaAtiva = Worksheets("Lista de Encomendas").Cells(Worksheets("Lista de Encomendas").Rows.Count, 1).End(xlUp).Row
    lControle = 2
    
    lsLimparLista
    
    While lControle <= lUltimaLinhaAtiva
        DoEvents
        lsConsultaProdutoCorreios Worksheets("Lista de Encomendas").Range("A" & lControle).Value
        
        Worksheets("Lista de Encomendas").Select
        Range("A" & lControle).Select
        
        Selection.Hyperlinks.Delete
                           
        Range("B" & lControle).Value = Sheets("Lista de Rastreamentos").Range("A" & lEndereco).Value
        Range("C" & lControle).Value = Sheets("Lista de Rastreamentos").Range("B" & lEndereco).Value
        Range("D" & lControle).Value = Sheets("Lista de Rastreamentos").Range("C" & lEndereco).Value
        
        If Range("B" & lControle).Value <> "" Then
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
                "'Lista de Rastreamentos'!A" & lEndereco, TextToDisplay:=Selection.Value
        End If
            
        lControle = lControle + 1
    Wend
    
    Worksheets("Lista de Rastreamentos").Select
    lsFormata
    Worksheets("Lista de Rastreamentos").Columns("A:D").EntireColumn.AutoFit
    Worksheets("Lista de Encomendas").Columns("A:F").EntireColumn.AutoFit
    Worksheets("Lista de Encomendas").Select
    
    Application.ScreenUpdating = True
    
    MsgBox "Dados de rastreamento atualizados!", , "Atualização"
    
End Sub

Sub lsConsultaProdutoCorreios(ByVal lPacote As String)
    On Error Resume Next

    Dim lUltimaLinhaAtiva As Long

    Worksheets("Rastreamentos").Select
    Worksheets("Rastreamentos").Range("A1:Z50000").ClearContents

    With ActiveWorkbook.Connections("Conexão23")
        .Name = "Conexão23"
        .Description = ""
    End With
    Range("A1:C200").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=" & lPacote
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveWorkbook.Connections("Conexão23").Refresh
    
    lUltimaLinhaAtiva = Worksheets("Rastreamentos").Cells(Worksheets("Rastreamentos").Rows.Count, 1).End(xlUp).Row + 1
    
    Range("A1:C" & lUltimaLinhaAtiva).Copy
    
    Worksheets("Lista de Rastreamentos").Select
    
    lUltimaLinhaAtiva = Worksheets("Lista de Rastreamentos").Cells(Worksheets("Lista de Rastreamentos").Rows.Count, 1).End(xlUp).Row + 2
    
    Range("A" & lUltimaLinhaAtiva).Select
    
    ActiveSheet.Paste
    
    Range("D" & lUltimaLinhaAtiva).Value = lPacote
    
    Range("A" & lUltimaLinhaAtiva & ":D" & lUltimaLinhaAtiva).Font.Bold = True
    
    Range("A" & lUltimaLinhaAtiva & ":D" & lUltimaLinhaAtiva).Select
    
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
    lEndereco = lUltimaLinhaAtiva + 1
    
End Sub


Sub lsLimparLista()

    Worksheets("Lista de Rastreamentos").Select
    Columns("A:Z").Select
    Range("C10").Activate
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub

Sub lsFormata()
    Range("A1:C1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Calibri"
        .Size = 15
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("A1").Value = "Lista de Rastreamentos"
    
    Range("D1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Lista de Encomendas'!A1", TextToDisplay:="Lista de Encomendas"
End Sub

GUT PPT

Abraço

Abraço

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

33 Comentários

  1. Fabio disse:

    Vcs estão de parabens

  2. Schauston disse:

    Amigo, esse conceito pode ser usado para qualquer site ou somente para o site dos Correios.

  3. Alex disse:

    Caras, muito obrigado,isso vai facilitar muito a minha vida! obrigado mesmo e parabéns!

  4. Primeiramente quero parabenizar por este trabalho que esta excelente resolveu muito dos meus problemas de controle e quero relatar um bug que encontrei acredito que devido a uma possível falha no rastreio dos correios ao se rastrear estes códigos embora apareça como entregue no site dos correios a planilha não retorna nenhum valor RB484397845CN , RB484397837CN , RB484397885CN , RB660134841CN se possível peço que verifique o ocorrido e gostaria de saber se aceita doação e como fazer a mesma? Muito obrigado.

    • Marcos Rieper disse:

      Bom dia Jordane,

      Muito obrigado pelo seu retorno sobre a planilha e interesse na doação.

      Realizei um teste aqui e funcionou direitinho, os dois primeiros apareceram como Entrega Efetuada, o terceiro como Conferido e o último não foi entregue mesmo, conferi inclusive no site dos correios.

      Com relação a doação desde já eu agradeço muito, o site já se mantém com a venda de cursos e peço muito se você fizesse uma doação a uma igreja no valor que doaria ao site, fico muito agradecido com o seu gesto de reconhecimento pelo trabalho do site e precisando de qualquer coisa por favor entre em contato.

      Abraço

      Marcos Rieper

  5. Existem exemplos muito bons nesse site, e outros que além de chamar a aatenção, São de extrema utilidade e nos intriga a saber como é sua execução. Parabéns por nos presentear

  6. Jordane Marques disse:

    Estranho aqui não atualiza com estes códigos de rastreio na verdade atualiza pelo que percebi mas retorna em branco pois se eu escrever ao nos campos quando mando rastrear volta a ficar branco as células segue a planilha com os códigos que cito, apenas baixei ela e preenchi com os códigos que tenho aqui que não estão retornando pra mim corretamente, segue link : http://www.4shared.com/file/oeGHzfUC/RastreamentoCorreios3.html . Obrigado.

  7. Ricardo Correa disse:

    Caros, meus parabéns, sensacional esta consulta. Irei aplicar no meu trabalho irá agilizar e muito as consultas realizadas.
    Obrigado. Abraços.
    Também gostaria de saber se conseguem fazer uma rastreando cargas pelo transportador TNT?

  8. Jordane disse:

    Boa noite, Marcos venho desde já parabenizar pelo conhecimento e excelente trabalho suas planilhas são incríveis tenho uma sugestão de uma nova planilha que acredito ser interessante na verdade basicamente e uma junção de dois de seus trabalhos para gerar uma nova funcionalidade, a ideia e uma planilha no qual se insira o CEP de postagem , o CEP de destino o método de envio e o código de rastreio o que será feito e a comparação em dias uteis do prazo previsto da entrega e o prazo real da postagem ate a entrega em dias uteis baseado no rastreio inserido, caso o prazo seja maior que o verificado nos CEP’s repassados o mesmo será sinalizado. A finalidade e facilitar a abertura de reclamações aos correios por encomendas entregues fora de data o qual libera o reembolso de 30% do valor pago para envios via PAC e Sedex. Acredito que sera de grande valia tal planilha, espero que goste do desafio, no mais muito obrigado.

  9. Jordane disse:

    Boa tarde Marcos, gostaria que verificasse a minha questão anterior e como lhe contacto para o serviço, fico no aguardo. Muito obrigado.

  10. KLEBER disse:

    Importo diversos produtos dos estados unidos. Todos enviados pela DHL. Alguns itens vem direto para o Brasil. Ex: http://webtrack.dhlglobalmail.com/?mobile=&trackingnumber=GM5551137096386157

    Outros porém seguem para Alemanha e posteriormente para o Brasil. Ex: http://webtrack.dhlglobalmail.com/?mobile=&trackingnumber=GM5551137096601632

    Em ambos os casos, o primeiro rastreio é no site da DHL. No caso dos pedidos que seguem para a Alemanha é disponibilizado outro link (veja no exemplo). E somente nesse novo link é localizado o código dos correios.

    Pergunta: Tendo o código inicial da DHL e sabendo dessa logística, consigo criar um código que rastreie meu pedido inserindo apenas o código primário passado pelo site?

    Outra coisa: Encontrei um erro (não sei se é que se pode chamar assim) na planilha. Alguns pedidos enviados de fora já possuem o código de rastreio dos correios, mas como ficam parados por dias na alfandega, muitas vezes não constam no rastreio dos correios. A planilha, nestes pedidos que não são encontrados, retorna a mesma informação do pedido anterior listado. Será que é fácil de corrigir isso?

    Desde já agradeço.

    Kleber

  11. Marcelo disse:

    Ótimo mesmo. Parabéns!
    Só fiquei na duvida quanto a planinha rastreamentos ( a planilha do meio ) ela mostra o ultimo objeto digitado em LISTA DE ENCOMENDAS é isso ?

  12. Marcelo disse:

    E pra ficar mais perfeita ainda, só falta 2 detalhes:

    01- Um campo “PRODUTO” na lista de encomendas e este produto ir para a planinha LISTA de Rastreamento automaticamente:

    02- Na lista de rastreamento ter uma opção de filtrar/classificar por SITUAÇÃO( a ultima situação do objeto )
    Grato

  13. Daniel disse:

    PARABENS!!!! Estava acompanhando os códigos de rastreio tudo na mão, que trabalho que dava. Ótima planilha, show de bola 🙂

    Marcos, apenas uma coisa, como faço para capturar a data inicial ao invés da última data?

  14. Hugo disse:

    Excelente trabalho! Seria possível criar uma planilha que só busque a ultima atualização invés de todo o histórico? Seria perfeito! ou seja, só existir uma unica aba que diz qual é o status e a data e hora do pedido. Ajudaria muito!

    Grato!

  15. Anderson disse:

    Olá,

    A planilha ainda está funcionando? Fiz umas tentativas e não consegui.. Obrigado

  16. Michael disse:

    Olá amigo!!

    Gostei das suas planilhas, eu tentei edita-la pra minha finalidade, mas não consegui entender muito! Eu preciso o seguinte.

    Na Célular A1 tenho o código da postagem. Quero criar um botão para pegar o código da A1, consultar se já foi entregue e jogar a data na célula b1 e na célula c1 a situação do objeto (Entregue, encaminhado etc). Assim eu consultarei código por código, pois na planilha atual sempre que clico em consulta produto correios a planilha consulta todas as linhas e isso deixa muito lento. Consegue me fornecer esse código para jogar dentro de um botão? E Parabéns pelo trabalho, desde já agradeço sua ajuda!!

  17. Thabata disse:

    Oi, uso bastante essa planilha e acho otima! obrigada e parabéns

    Porém, de um tempo pra cá, os Correios desativaram o site websro, não da para fazer o rastreamento do pacote via websro e somente pelo site dos Correios.

    Vi pelo cod. fonte da sua planilha que ele busca pelo websro, mas como ele esta fora, a planilha não funciona mais =/ existe a possibilidade de alterar o site de busca para o http://www.rastrearobjetos.com.br/ ou até mesmo o site próprio dos Correios?

    Obrigada

  18. Wilson disse:

    este arquivo já não está mais funcionando, pois os Correios mudaram o link de rastrear, tem algum outro arquivo atualizado que funcione?

  19. ewerton disse:

    Gostaria de ter essa planilha ela funciona bem?

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.