Este fórum está sendo desativado

[SandroLima]

Boa noite, pessoal

Estou novamente precisando de ajuda em duas coisas da planilha anexa.

1) Uma macro que exclua as linhas da tabela "TB_PlanodeTrade" desde a 1ª linha (logo abaixo da linha de cabeçalho) até a penúltima linha... mantendo apenas a linha 0 (zero).

2) Ajustar a macro "Renumera_Dias"
A finalidade da macro é agrupar e classificar as datas iguais na coluna [Data] da tabela "TB_PlanodeTrade"
A macro funcionava muito bem até eu precisar incluir a linha 0 na tabela.
Gostaria que ela continuasse fazendo a mesma função somente quando uma data for inserida, desconsiderando a linha 0 da tabela
Isso se faz necessário porque a cada início de mês a tabela será replicada e terá as linhas apagadas mantendo apenas a linha zero da tabela.
A contagem inicia a partir da 1ª data inserida;.

Segue planilha anexa.

Muito obrigado desde já a quem puder colaborar

[SandroLima]

Boa tarde, pessoal...

Alguém sabe como posso adaptar a macro?

[SandroLima]

Boa noite

Tentei a macro de apagar as linhas da tabela (da primeira linha até a penúltima linha) da seguinte forma:

Código: Selecionar todos

Option Explicit

Sub ApagaLinhasTabela()
    
    Dim Plan As Worksheet
    Set Plan = wsh_PlanodeTrade
    
    Dim TabelaTrade As ListObject
    Set TabelaTrade = Plan.ListObjects("TB_PlanodeTrade")
    
    Dim LinhaInicial As Long, LinhaFinal As Long
    LinhaInicial = TabelaTrade.Range.Row
    LinhaFinal = TabelaTrade.ListRows.Count + LinhaInicial
    
    Application.ScreenUpdating = False
    
    TabelaTrade.ListRows(LinhaInicial + 1 & ":" & LinhaFinal - 1).Delete Shift:=xlShiftUp
    
    Application.ScreenUpdating = True
    
    Set Plan = Nothing
    Set TabelaTrade = Nothing
    
End Sub

Mas não obtive êxito. Alguém poderia verificar?

[SandroLima]

Bom dia...

Alguém poderia verificar a macro?

Desde já obrigado.

[SandroLima]

Boa noite, pessoal

Essa parte da macro já consegui resolver:

Estou novamente precisando de ajuda em duas coisas da planilha anexa.

1) Uma macro que exclua as linhas da tabela "TB_PlanodeTrade" desde a 1ª linha (logo abaixo da linha de cabeçalho) até a penúltima linha... mantendo apenas a linha 0 (zero).

Ainda preciso dessa parte:
2) Ajustar a macro "Renumera_Dias"
A finalidade da macro é agrupar e classificar as datas iguais na coluna [Data] da tabela "TB_PlanodeTrade"
E depois numerar/inserir numeração igual na coluna [Dias] para as datas que se repetem na coluna [Data].
A macro funcionava muito bem até eu precisar incluir a linha 0 na tabela.
Gostaria que ela continuasse fazendo a mesma função somente quando uma data for inserida, desconsiderando a linha 0 da tabela... como está no exemplo.

Se o campo [Data] estiver vazio ou com o valor "-" (hífen) a coluna [Dias] recebe o valor 0 (zero.
Isso se faz necessário porque a cada início de mês a tabela será replicada e terá as linhas apagadas mantendo apenas a linha zero da tabela.
A contagem (nº 1) inicia, portanto, a partir da 1ª data inserida.

Muito obrigado desde já a quem puder colaborar.