Galera, por favor, me ajudem, sou iniciante em vba, estou tentando fazer com que ao clicar no botão de atualizar criado no excel, o macro pesquise no determinado site especificado, os materiais desejados e retorne o valor dos mesmos atualizados na planilha, segue abaixo o código que estou utilizando. alguém poderia me ajudar, pois fica dando esse erro 91. a variavel do objeto ou a variável do bloco “With” não foi definida. PS: Substitui o site de busca por url do site desejado pois na hora do tópico o memso só me permite o envio de dois links.
Sub busca_valores()
Range(“B1:B49”).ClearContents
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(1, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(2, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(3, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(4, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(5, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(6, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(7, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(8, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(9, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(10, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(11, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(12, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(13, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(14, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(15, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(16, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(17, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(18, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(19, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(20, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(21, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(22, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(23, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(24, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(25, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(26, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(27, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(28, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(29, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(30, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(31, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(32, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(33, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(34, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(35, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(36, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(37, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(38, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(39, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(40, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(41, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(42, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(43, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(44, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(45, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(46, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(47, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(48, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Set ie = CreateObject(“internetexplorer.application”)
ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
Cells(49, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext
Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop
ie.Quit
Range(“B1:B49”).WrapText = False
End Sub