Este fórum está sendo desativado

[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.

[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.

[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

[osvaldomp]

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 todos

Sub 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

[fsabino]

Valeu Osvaldo...também serve.
Obrigado