Página 1 de 1
Deletar linhas com Data usando macro
Enviado: 06 Jun 2021 às 11:13
por fsabino
Ola,
Estou conseguindo deletar corretamente quando busco na Coluna C qualquer TEXTO, mas quando seleciono para apagar as linhas com uma DATA-Coluna D especifica, a macro me dá um erro.
Se alguem puder dar uma solução agradeço.
Re: Deletar linhas com Data usando macro
Enviado: 06 Jun 2021 às 16:31
por osvaldomp
Me parece que não é possível aplicar o Replace com base no resultado das fórmulas.
Uma solução seria, antes de aplicar o Replace, substituir as fórmulas da coluna D pelos seus respectivos valores, o que pode ser feito manualmente ou via macro.
Outras soluções, caso você não queira substituir as fórmulas pelos seus valores: fazer um Loop pela coluna D para encontrar a data e excluir a linha ou aplicar Auto Filtro e excluir as linhas filtradas.
Re: Deletar linhas com Data usando macro
Enviado: 06 Jun 2021 às 16:41
por fsabino
Ola Osvaldo, creio que seja isso msm!
Testei apagar as datas da coluna A e não deu erro, teria alguma sugestão de como fazer uma macro para:
Apagar na coluna A, se Valor for diferente de data?[/b]Como poderia escrever isso?rsrs
Re: Deletar linhas com Data usando macro
Enviado: 06 Jun 2021 às 18:23
por osvaldomp
fsabino escreveu: ↑06 Jun 2021 às 16:41
Apagar na coluna A, se Valor for diferente de data?
Visto que na coluna A a maioria das "datas" são textos (provavelmente são dados importados de alguma fonte cujas datas estão no formato americano e aí o Excel considera como textos), eu optei por deletar a linha se a coluna B não for um valor que representa uma hora, assim indiretamente faz o que você quer. Veja se o resultado atende.
Código: Selecionar todosSub DeletaLinhas()
Dim LR As Long
LR = Cells(Rows.Count, 1).End(3).Row
Range("A1:D" & LR).AutoFilter 2, "=*"
Range("A2:D" & LR).SpecialCells(12).EntireRow.Delete
ActiveSheet.ShowAllData
End Sub
Re: Deletar linhas com Data usando macro
Enviado: 06 Jun 2021 às 19:17
por fsabino
Valeu Osvaldo...também serve.
Obrigado