ola agradeço a atenção.
preciso comparar o valor da ultima célula preenchida com a antepenúltima. caso o valor seje diferente quero continuar com o valor atual caso seje = colocar a palavra erro
isto esta sendo nescessrio pois no meu codigo esta carregando o resultado da pesquisa anterior
.Document.all("cpf").innerText = Range("a" & linha)
.Document.all("btn_consultar").Click
Application.Wait (Now + TimeValue("00:00:01"))
Range("g" & linha) = IE.Document.all("teste1").innerText
Range("b" & linha) = IE.Document.all("teste2").innerText
Range("d" & linha) = IE.Document.all("teste3").innerText
Range("e" & linha) = IE.Document.all("teste"5).innerText
Range("f" & linha) = IE.Document.all("tesste2").innerText
Range("g" & linha) = IE.Document.all("5353fsf").innerText
menos1 = linha - 1
linha = linha + 1
MsgBox ("linha")
MsgBox ("menos1")
Application.Wait (Now + TimeValue("00:00:01"))
Wend
Wend
Wend
End With
End Sub