Notifications

Clear all

Inserir linha após sequência de datas

2024 - VBA & Macros

Post Recente por valveeS_ 11 anos atrás

7 Posts

2 Usuários

0 Reactions

1,030 Visualizações

RSS

valveeS_

(@valvees_)

Posts: 4

New Member

Topic starter

Boa pessoal, blza?

Novato aqui e com um sério problema. Estou tentando criar um macro que insira uma linha após uma sequência de datas, exemplo:

O problema é que não sei programa, só tenho a lógica e quando vou alterar alguma formula que acho na internet, eu não sei fazer ele analisar a linha e sim, colocar um texto fixo. Daí ele acaba colocando linha após cada data, rs.

Alguém tem uma solução? São muuitas planilhas que terei que usar isso.

Postado : 05/06/2014 9:54 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

Veja este código:

Sub Separa_Data_GT()

Dim PL      As Long 'PL = Primeira Linha
Dim UL      As Long 'UL = Última Linha
Dim i       As Long
Dim Coluna  As String

Coluna = "A"

PL = Cells(2, Coluna).Row
UL = Cells(Rows.Count, Coluna).End(xlUp).Row

For i = UL To PL Step -1
    If Cells(i, Coluna).Value = Cells(i - 1, Coluna).Value Then
        'não faz nada
    Else
        Cells(i, Coluna).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next i
End Sub

Onde está:

Coluna = "A"

Coloque a coluna das datas, se não for a coluna "A"

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 05/06/2014 10:18 am

valveeS_

(@valvees_)

Posts: 4

New Member

Topic starter

Mais que perfeito!
Muitíssimo obrigado.

Eu acessei o fórum pela primeira vez hoje, mas vou verificar se existe alguma área para tutoriais e tentar aprender alguma coisa, quem sabe até ajudar com alguma coisa.

Salvou meu dia gtsalikis, kk.

Postado : 05/06/2014 10:39 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

Não temos exatamente "tutoriais", porém,

temos a board de dicas e macetes:
viewforum.php?f=28

e temos a board de modelos (biblioteca), alguns com soluções para problemas comuns:
viewforum.php?f=21

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 05/06/2014 10:46 am

valveeS_

(@valvees_)

Posts: 4

New Member

Topic starter

Opa, blza?

Estão me pedindo algo um pouco diferente agora.
Estou precisando inserir uma linha após cada mês.

As datas não são fixas e ficam assim, por exemplo:

Acredito ter entendido a lógica da PL e UL, mas penso que sirva somente para exatas, pois tentei mudar o código e não consegui.
Alguém tem uma solução?

Postado : 09/06/2014 8:28 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

É quase a mesma coisa:

Sub Separa_Mes_GT()

Dim PL      As Long 'PL = Primeira Linha
Dim UL      As Long 'UL = Última Linha
Dim i       As Long
Dim Coluna  As String

Coluna = "A"

PL = Cells(2, Coluna).Row
UL = Cells(Rows.Count, Coluna).End(xlUp).Row

For i = UL To PL Step -1
    If Month(CDate(Cells(i, Coluna))) = Month(CDate(Cells(i - 1, Coluna))) Then
        'não faz nada
    Else
        Cells(i, Coluna).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next i
End Sub

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 09/06/2014 10:17 am