Opa, bem dependendo do pq espera o elemento, por ex: quando é pra da um click, eu faço um loop com o on error goto, ou ate msm pra pegar o conteudo da teg como texto ou outherHTML.
Ex:
Sub Pegar_Link_FlashScore()
Dim driver As New ChromeDriver
Dim Contador_de_erros As Integer
'_________________________________________________________________Abrir O
Chromedriver
Contador_de_erros = 0
R_tratar_1:
'-------------------------------------------------------------------------------------
On Error GoTo tratar_1
Contador_de_erros = Contador_de_erros + 1
If Contador_de_erros > 10 Then
Application.Speech.Speak ("Erro na parte de Ligar o driver, talvez você tenha que atualizar o crome driver")
Exit Sub
End If
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
driver.Start
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'-------------------------------------------------------------------------------------
GoTo pular_1
tratar_1:: Resume R_tratar_1
pular_1:: On Error GoTo 0
'_____________________________________________________________________________________
'__________________________________________________________________________Digitar Url
Contador_de_erros = 0
R_tratar_2:
'-------------------------------------------------------------------------------------
On Error GoTo tratar_2
Contador_de_erros = Contador_de_erros + 1
If Contador_de_erros > 10 Then
Application.Speech.Speak ("Erro na parte de digitar o url da paginá")
Exit Sub
End If
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
driver.Get "https://www.flashscore.com.br/"
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'-------------------------------------------------------------------------------------
GoTo pular_2
tratar_2:: Resume R_tratar_2
pular_2:: On Error GoTo 0
'_____________________________________________________________________________________
'__________________________________________________________________________Aceita Cooks
Contador_de_erros = 0
R_tratar_3:
'-------------------------------------------------------------------------------------
On Error GoTo tratar_3
Contador_de_erros = Contador_de_erros + 1
If Contador_de_erros > 10 Then
Application.Speech.Speak ("Erro na parte de aceitar e fechar os Cooks")
Exit Sub
End If
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
driver.FindElementById("onetrust-accept-btn-handler").Click
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'-------------------------------------------------------------------------------------
GoTo pular_3
tratar_3:: Resume R_tratar_3
pular_3:: On Error GoTo 0
'_____________________________________________________________________________________
end sub
sub AEstruturaéSimples
' vc cria uma variavel e acumula os erros gerados toda vez que vc clicka no elemento e der error
dim tratamentoDeErro as double ' por ex
tratamentoDeErro =0
' ai vc entra no loop com os erros, ao clicar e o elemento nao existir,
Contador_de_erros = 0
R_tratar_3:
On Error GoTo tratar_3
Contador_de_erros = Contador_de_erros + 1
If Contador_de_erros > 10 Then ' aqui vc pode bota ´pra espera quantos erros vc quiser
Application.Speech.Speak ("Erro na parte de aceitar e fechar os Cooks")
Exit Sub
End If
' ex; de um id de botão pra click
driver.FindElementById("onetrust-accept-btn-handler").Click
' se a estrutura der certo vc passa direto "pula"
GoTo pular_3
' se der error vc vem pro tratamento do erro, e aqui vc pode fazer oque quiser tbm,
'desde volta e tentar clickar d novo ou oque tiver em mente
tratar_3:
'porem dando error depois que vc fizer oque quiser vc deve resumir o tratamento pra poder finalizar a respota
Resume R_tratar_3
pular_3:
'e depois de tudo vc deve zerar o o tratamento de error, lembrado se vc não de o Resume , vc não conseguirar usar outra vez o tratamento de erro dentro da msm sub!
On Error GoTo 0
' ue uso essa estrutura com muita eficiencia, ela me faz ir mais rapido sem p´recisar usar application.wait
end sub