Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Calculo de valores de uma Matriz calculando em loop,valor da pag anterior somando com a pag atual, calcular only atual!

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
pedrodssj
Colaborador
Colaborador
Mensagens: 18
Registrado em: Qua Nov 06, 2019 2:56 pm

Calculo de valores de uma Matriz calculando em loop,valor da pag anterior somando com a pag atual, calcular only atual!

Mensagem por pedrodssj »

ao abrir a primeira pagina, o mesmo contem matriz tabela ele calcula determinado valor correto e joga o valor correto para a célula ,ao abrir a 2º pagina ele calcula o valor da pagina anterior com o atual e abrir a 3º pagina ele calcula o valor da 1º pagina, da 2º pagina e do atual que no caso a 3º pagina e assim sucessivamente.... como resolver este problema!

Código: Selecionar todos

Sub GERADOLINKSPLAN5()

Dim driver As New ChromeDriver
'driver.AddArgument ("--headless")


linha = 1
over05 = 0
Range("I1").Select

While Cells(linha, 1) <> ""
   If Cells(linha, 1) <> "" Then
      driver.Get "" & Cells(linha, 5)

    Set todosOsLinks = driver.FindElementByXPath("//div[3]/div/table/tbody/tr[5]/td[7]").FindElementsByTag("a")

    For Each linkUnico In todosOsLinks
        driver.Get "" & linkUnico.Attribute("href")

Dim tbl As TableElement
Set tbl = driver.FindElementByXPath("//*[@id=""info""]/table/tbody").AsTable
Dim Data()
Data = tbl.Data


Value1 = UBound(Data, 1) - LBound(Data, 1)

Dim separar As Double
Dim Texto, a() As String

Texto = Data(1 + 1, 6)
a() = Split(Texto, "-")

For r1 = 1 To UBound(Data, 1) - LBound(Data, 1)
    
  Texto = Data(r1 + 1, 6)
  a() = Split(Texto, "-")
  separar = a(1)
   
  If a(0) + separar <= "3" Then
  over05 = over05 + 1
  
  End If

    Next
  linha = linha + 1
  ActiveCell.Value = over05
  ActiveCell.Offset(0, -2).Value = Value1
  ActiveCell.Offset(1, 0).Select
Next linkUnico

End If
Wend

End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Nill2016
Colaborador
Colaborador
Mensagens: 32
Registrado em: Qua Mai 09, 2018 11:34 am

Re: Calculo de valores de uma Matriz calculando em loop,valor da pag anterior somando com a pag atual, calcular only atu

Mensagem por Nill2016 »

De onde estão vindo os dados? Se puder colocar a planilha para que mais pessoas vejam vai facilitar na solução.


Responder