@Basole Agradeço o retorno mestre, muito obrigado. Agora que consegui resolver a questão do rastreio, estou com uma nova questão:
Quando eu coloco o CNPJ na "A2" ele busca na macro a Razão Social e replica na "B2".
Sub CNPJ()
Set p = ThisWorkbook.Worksheets("Pipeline - Empresas")
Set c = ThisWorkbook.Worksheets("CNPJ")
'Inicializa o site de busca
Set IE = CreateObject("internetexplorer.application")
IE.Visible = False
IE.Navigate "https://cnpj.biz"
Do While IE.Busy Or IE.ReadyState <> 4:
Loop
'Insere o valor na célula referente ao CNPJ
linha = 7: coluna = 2
For Each el In IE.Document.getElementsByClassName("smooth search")
el.Value = p.Cells(linha, coluna)
Exit For
Next
Do While IE.Busy Or IE.ReadyState <> 4:
Loop
IE.Document.getElementsByClassName("btn btn-b btn-sm")(0).Click
Do While IE.Busy Or IE.ReadyState <> 4:
Loop
'Pesquisa a razão social
linha = 1: coluna = 1
For Each elementoTabela In IE.Document.getElementsByClassName("post-item")
c.Cells(linha, coluna) = elementoTabela.innerText
Next
End Sub
Neste caso eu criei uma nova planilha chamada de CNPJ, que recebe os valores buscados do site e a minha planilha principal só espelha de maneira formatada a informação.
Adicionei o seguinte código a planilha principal:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Call CNPJ
End If
End Sub
Ele chama a macro de pesquisa quando eu insiro o CNPJ na célula A1 e me da o resultado na A2.
O que eu preciso é colocar um range em várias células para que elas vão fazendo a pesquisa de forma automatizada porém quando eu coloco Range("A1:A10") por exemplo, ele não ativa as funções.