Amigos,
Estou tentando organizar dados que um relatório extraído de sistema antigo.
Nesse relatório vem um cadastro a cada 50 linhas, entretanto, alguns deles tem 54. Por isso não consigo fazer uma formula para extrair só a informação que preciso nas referidas células. Pensei na seguinte solução:
Verifica A1, se for o termo "Nome:", então vai verificar A51, se for o termo "Nome:",então verifica A101... Assim por diante.
Caso Ax não for "Nome:", então ele exclui 4 linhas anteriores (assim o que era 54 vira 50) e segue o baile.
Tentei fazer isso de uma forma meio burra (mas é o máximo que consegui)
sub Funcao0
Sheets("Minhaplanilhaauxiliar").Select
Range("M1").Select
ActiveCell.FormulaR1C1 = _
"=IF('Planilhacomdados!R[21]C[-12]=""Nome:"",funcao1,"funcaoexluir0")"
sub end
Aí essa funcao0 seria um botão.
A funcao1 seria para verificar a o próximo cadastro e faria referência para funcao2 (e assim por diante)
A funcaoexcluir0 seria um comando para excluir as 4 linhas anteriores
Alguma sugestão?