Entrei nesse fórum, pois estou a 2 dias tentando resolver um problema.
Tenho uma lista de dados que estão confusos para leitura, mas seguem um padrão de formatação.
Estou tentando transpô-los em uma nova planilha de uma forma mais fácil para analisar os dados.
Tentei fazer um loop com "For", mas ele só consegue identificar a primeira linha de dados. Quando é para verificar a próxima ele não reconhece a minha condição. O programa roda, mas não identifica os dados seguintes.
Segue o programa abaixo:
For i = 2 To 50
If Left(Sheets("C").Range("A" & i), 6) = " Esta" Then
Pergunta
Rodrigo Vianna
Bom dia pessoal,
Entrei nesse fórum, pois estou a 2 dias tentando resolver um problema.
Tenho uma lista de dados que estão confusos para leitura, mas seguem um padrão de formatação.
Estou tentando transpô-los em uma nova planilha de uma forma mais fácil para analisar os dados.
Tentei fazer um loop com "For", mas ele só consegue identificar a primeira linha de dados. Quando é para verificar a próxima ele não reconhece a minha condição. O programa roda, mas não identifica os dados seguintes.
Segue o programa abaixo:
For i = 2 To 50
If Left(Sheets("C").Range("A" & i), 6) = " Esta" Then
Sheets("T").Range("A" & i).FormulaR1C1 = "='C'!RC"
Sheets("T").Range("B" & i).FormulaR1C1 = "='C'!R[2]C[-1]"
Sheets("T").Range("C" & i).FormulaR1C1 = "='C'!R[2]C[-1]"
Sheets("T").Range("D" & i).FormulaR1C1 = "='C'!R[2]C[-1]"
End If
Next
Estou aberto a outra opções. Agradeço a ajuda!!
Obrigado
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.