Olá, bom dia.
Tenho uma sequência no excel com N linhas e colunas. A Macro testa os dados de 3 colunas. Se determinadas condições forem satisfeitas, seleciona-se os dados de uma quarta coluna e os copia num combo html.
O cód funciona até selecionar os dados da quarta coluna, dali em diante dá erro em tempo de execução 424 - o objeto é obrigatório.
Seguem os dados do excel e a parte da cód onde surge o erro.
Agradeço se alguém puder ajudar.
Núm Núcleo Responsável Tipo Descrição Data REM Data Baixa
0000155-40.2006.4.01.3100 NTE Nayara Ciência Extinção 09/11/2021 09/11/2021
0000192-91.2011.4.01.3100 NTE Nayara Ciência Extinção 09/11/2021 09/11/2021
0000304-75.2002.4.01.3100 NTE Nayara Ciência Extinção 09/11/2021 09/11/2021
0000499-26.2003.4.01.3100 NTE Nayara Ciência Extinção 09/11/2021 09/11/2021
0000560-81.2003.4.01.3100 NTE Nayara Ciência Extinção 09/11/2021 09/11/2021
0000720-14.2000.4.01.3100 NTE Nayara Ciência Extinção 09/11/2021 09/11/2021
0001012-33.1999.4.01.3100 NTE Nayara Ciência Extinção 09/11/2021 09/11/2021
0000018-48.2012.4.01.3100 NTE Nayara Ciência Arquivamento 09/11/2021 09/11/2021
Cód
Sub baixa_processos()
' Macro BAIXAR PROCESSOS PLANILHÃO
' conecta com drive
Dim driver As New ChromeDriver
Dim url As String
Dim lin As Long
Dim contador As Integer
Dim selecao As Range
contador = 1
contar = 0
'ACESSAR INTRA
url = "Pág tal"
With driver
'.Start
.Get url
Worksheets("Plan1").Activate
For lin = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Plan1").Activate
Range("a" & lin).Select
ActiveCell.Show
'GUARDAR DADOS EM VARIÁVEIS
data_baixa = Plan1.Range("g" & lin).Text
descr = Plan1.Range("e" & lin).Text
tipo_pet = Plan1.Range("d" & lin).Text
'SELECIONAR A FAIXA DE PROCESSOS A SEREM BAIXADOS
Do While data_baixa = Plan1.Range("g" & lin).Text And descr = Plan1.Range("e" & lin).Text And tipo_pet = Plan1.Range("d" & lin).Text
contar = contar + 1
lin = lin + 1
Loop
Set selecao = Range(("a" & lin - 1), ("a" & (lin - (contar)))).Select --> linha do erro (chega até a selecionar os 7 números) e logo em seguida o erro.
Application.Wait (Now + TimeValue("0:00:01"))
'selecao.Copy
Range(("a" & lin - 1), ("a" & (lin - (contar)))).Copy
.FindElementByXPath("Clicar em um combo html").Click
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys selecao
Application.Wait (Now + TimeValue("0:00:01"))
Paulo Silvei...
Zerinho
Registrado
2 Mensagens
0 Curtidas
Selecionar um range de N linhas e copiá-los num combo HTML.
#1 Por Paulo Silvei...
22/11/2021 - 11:28