Notifications
Clear all
2024 - VBA & Macros
3
Posts
2
Usuários
1
Reactions
1,123
Visualizações
Topic starter
Bom dia Caros Colegas,
Estou com uma planilha ( Relatório exportado do sistema ), aonde eu tenho um titulo neste caso o centro de custo e abaixo dele os lançamento correspondente. qual a minha necessidade? que esse titulo seja preenchido automático nas células, em seu respectivo lançamento, para a partir dai dar sequencia em meu trabalho de filtro e captação de dados.
Segue abaixo planilha iniciada.
Se puder me ajudar fico agradecido.
Att
Admaury
Postado : 18/08/2020 12:22 pm
Mas os números que já existem na coluna E vão sumir?
Se entendi direito, seria preencher a coluna D (TP) com o número que vem antes da barra (mesma linha de "Centro Custo:") e a coluna E (Ori) com o número depois da barra. É isso? Se for, tente rodar o seguinte código:
Sub PreencheTPeORI()
Dim rgA As Range
With Worksheets("Planilha1")
For Each rgA In Intersect(.Range("O:O").SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow, .Range("D:E")).Areas
rgA.Value = Split(Replace(rgA.Cells(2).Offset(-1), " ", ""), "/")
Next rgA
End With
End Sub
Postado : 18/08/2020 1:51 pm
Admaury reacted