tente fazer o teste do IF de uma forma diferente: If Not Instr(task1.innerText,"Task")> 0 And lin <> 2 Then

@decovioti anexa a planilha com esses dados capturados , quero confirmar como vem essa informação. Não precisa do seu código, apenas dos dados

Tente fazer com que reconheça a palavra "#Instructions" pra acessar o If.Verifique exatamente como a palavra vem e ajuste no código.

Sem poder testar o código imagino que algo como isto deva resolver: lin = 2col = 1For Each task1 In title_task If task1.innerText = "#Instructio...

Ajustei pra trazer os "SCOUTS", inclui tbm as novas DS e PI que o @edsonbr citou, segue o código e planilha: Sub ExtrairJson()Application.ScreenUpda...

Segue a planilha que usei no teste  1600349315-Extracao-de-Dados.xlsm

o arquivo .rar não esta corrompido , baixe o programa necessário pra extração. Pode usar WinRAR ou 7-Zip, existem varios.  rar.JPG

Tela Dados Extraídos  extracao.JPG

Segue o arquivo, extraia antes de importa pro projeto.  JsonConverter.rar

O @edsonbr fez um excelente trabalho usando expressões regulares pra tratar esse arquivo. A forma mais simples é usando uma função pra tratar o JSON...

@macedorafa a estrutura do arquivo JSON pode ter modificado, anexe essa planilha que usa para analise.

Aparentemente fazer isso é bem simples, tente desta forma pra sempre que não localizar a loja da aba "Abertura" na aba "Ongoing" incluir os novos dad...

Print do resultado da consulta.  saida.JPG

Seu problema me ajudou a treinar um pouco consulta SQL em planilha Excel, é muitoooo mais rápido que qualquer laço, coisa de segundos. Fiz um teste ...

AndersonDeu pra resumir o código nestas linhas: Sub salvar() Dim Linha As Long: Linha = Plan2.Range("A1048576").End(xlUp).Row + 1 Plan2.Range("A...