Skip to main content
removeu 263 caracteres do conteúdo
Fonte Link

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

    While (Range("a" & linha) <> "")
           Range("e1") = linha
           
           
            
    
    While (Range("d" & linha) = "")
           Range("f1") = menos1


.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("plano_nao_encontrado""teste1").innerText
Range("b" & linha) = IE.Document.all("contratoOiTV""teste2").innerText
Range("d" & linha) = IE.Document.all("msisdnCliente""teste3").innerText
Range("e" & linha) = IE.Document.all("fixoCliente""teste"5).innerText
Range("f" & linha) = IE.Document.all("planoCliente""tesste2").innerText
Range("g" & linha) = IE.Document.all("dlg_planos_dados""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

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

    While (Range("a" & linha) <> "")
           Range("e1") = linha
           
           
            
    
    While (Range("d" & linha) = "")
           Range("f1") = menos1


.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("plano_nao_encontrado").innerText
Range("b" & linha) = IE.Document.all("contratoOiTV").innerText
Range("d" & linha) = IE.Document.all("msisdnCliente").innerText
Range("e" & linha) = IE.Document.all("fixoCliente").innerText
Range("f" & linha) = IE.Document.all("planoCliente").innerText
Range("g" & linha) = IE.Document.all("dlg_planos_dados").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

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

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

    While (Range("a" & linha) <> "")
           Range("e1") = linha
           
           
            
    
    While (Range("d" & linha) = "")
           Range("f1") = menos1

.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("plano_nao_encontrado").innerText Range("b" & linha) = IE.Document.all("contratoOiTV").innerText Range("d" & linha) = IE.Document.all("msisdnCliente").innerText Range("e" & linha) = IE.Document.all("fixoCliente").innerText Range("f" & linha) = IE.Document.all("planoCliente").innerText Range("g" & linha) = IE.Document.all("dlg_planos_dados").innerText

menos1 = linha - 1 linha = linha + 1

MsgBox ("linha") MsgBox ("menos1")

Application.Wait (Now + TimeValue("00:00:01"))



.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("plano_nao_encontrado").innerText
Range("b" & linha) = IE.Document.all("contratoOiTV").innerText
Range("d" & linha) = IE.Document.all("msisdnCliente").innerText
Range("e" & linha) = IE.Document.all("fixoCliente").innerText
Range("f" & linha) = IE.Document.all("planoCliente").innerText
Range("g" & linha) = IE.Document.all("dlg_planos_dados").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

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

    While (Range("a" & linha) <> "")
           Range("e1") = linha
           
           
            
    
    While (Range("d" & linha) = "")
           Range("f1") = menos1

.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("plano_nao_encontrado").innerText Range("b" & linha) = IE.Document.all("contratoOiTV").innerText Range("d" & linha) = IE.Document.all("msisdnCliente").innerText Range("e" & linha) = IE.Document.all("fixoCliente").innerText Range("f" & linha) = IE.Document.all("planoCliente").innerText Range("g" & linha) = IE.Document.all("dlg_planos_dados").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

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

    While (Range("a" & linha) <> "")
           Range("e1") = linha
           
           
            
    
    While (Range("d" & linha) = "")
           Range("f1") = menos1


.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("plano_nao_encontrado").innerText
Range("b" & linha) = IE.Document.all("contratoOiTV").innerText
Range("d" & linha) = IE.Document.all("msisdnCliente").innerText
Range("e" & linha) = IE.Document.all("fixoCliente").innerText
Range("f" & linha) = IE.Document.all("planoCliente").innerText
Range("g" & linha) = IE.Document.all("dlg_planos_dados").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
Fonte Link

preciso comparar o valor da ultima célula preenchida com a antepenúltima

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

    While (Range("a" & linha) <> "")
           Range("e1") = linha
           
           
            
    
    While (Range("d" & linha) = "")
           Range("f1") = menos1

.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("plano_nao_encontrado").innerText Range("b" & linha) = IE.Document.all("contratoOiTV").innerText Range("d" & linha) = IE.Document.all("msisdnCliente").innerText Range("e" & linha) = IE.Document.all("fixoCliente").innerText Range("f" & linha) = IE.Document.all("planoCliente").innerText Range("g" & linha) = IE.Document.all("dlg_planos_dados").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