Pessoal, tenho uma planilha que estou tentando fazer uma regra para concatenar e criar uma Base de Informação. Tenho uma planilha que na coluna "A", sem pre aparece qual o item contabil, ex:
ITEM CONTABIL 01
1.11.01.001
1.11.01.002
1.11.01.003
.
.
.
ITEM CONTABIL 02
1.11.01.001
1.11.01.002
1.11.01.003
.
.
.
TOTAL DO PERIODO
Bem quero que toda vez que ele encontrar o "ITEM CONTABIL", ele extraia para a "coluna b" os dois ultimos caracterres, e faça a concatenação até o proximo "ITEM CONTABIL" e que finalize o "Loop" quando encontrar o texto "TOTAL DO PERIODO" na "coluna a". eu consegui desenvolver até aqui:
Pergunta
amsviana
Pessoal, tenho uma planilha que estou tentando fazer uma regra para concatenar e criar uma Base de Informação. Tenho uma planilha que na coluna "A", sem pre aparece qual o item contabil, ex:
ITEM CONTABIL 01
1.11.01.001
1.11.01.002
1.11.01.003
.
.
.
ITEM CONTABIL 02
1.11.01.001
1.11.01.002
1.11.01.003
.
.
.
TOTAL DO PERIODO
Bem quero que toda vez que ele encontrar o "ITEM CONTABIL", ele extraia para a "coluna b" os dois ultimos caracterres, e faça a concatenação até o proximo "ITEM CONTABIL" e que finalize o "Loop" quando encontrar o texto "TOTAL DO PERIODO" na "coluna a". eu consegui desenvolver até aqui:
Range("a1").Select
While ActiveCell.Value <> "ITEM CONTA : 01"
ActiveCell.Offset(1, 0).Range("a1").Select
Wend
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=MID(RC[-1],17,2)"
ActiveCell.Offset(1, 0).Select
For LIN = 1 To 1000
Do
If IsEmpty(ActiveCell) Then
If IsEmpty(ActiveCell.Offset(0, -1)) Then
ActiveCell.Value = ""
Else
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-1],""-"",""01"")"
End If
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
Next
End Sub
Agradeço a ajuda!
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.