[Resolvido] MACRO PARA PREENCHIMENTO DE COLUNAS SEQUENCIA

2024 - VBA & Macros

Post Recente por Admaury 4 anos atrás

3 Posts

2 Usuários

1 Reactions

1,093 Visualizações

RSS

Admaury

(@admaury)

Posts: 50

Trusted Member

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

Contas-pagas-julho-2020-.xlsx

Postado : 18/08/2020 12:22 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

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