Página 1 de 1

Macro que apaga linhas e conta datas

Enviado: 03 Fev 2020 às 22:36
por 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

Re: Macro que apaga linhas e conta datas

Enviado: 04 Fev 2020 às 17:35
por SandroLima
Boa tarde, pessoal...

Alguém sabe como posso adaptar a macro?

Re: Macro que apaga linhas e conta datas

Enviado: 04 Fev 2020 às 22:34
por 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?

Re: Macro que apaga linhas e conta datas

Enviado: 05 Fev 2020 às 11:12
por SandroLima
Bom dia...

Alguém poderia verificar a macro?

Desde já obrigado.

Re: Macro que apaga linhas e conta datas

Enviado: 07 Fev 2020 às 21:29
por 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.