Postado por: @evaldo_soares
Tenho uma planilha chamada Dados,
No arquivo que você anexou não existe a planilha Dados. O código sugerido abaixo irá atuar na planilha ativa, e independe de seu nome.
Essa ação seria mediante um botão em um Userform.
O UserForm teria essa única função ? Se sim, existem outras formas mais simples para executar o código.
Exemplo: Data atual 20/07/2023.... e excluir todas as linhas cuja coluna G tenha data anterior a 20/01/2022.
A data correta é 20/01/2023.
______________________________
Título editado pela Moderação.
Sub ExcluiRegistros()
With ActiveSheet
Application.ScreenUpdating = False
On Error Resume Next
.ShowAllData
On Error GoTo 0
.[A1:N1].AutoFilter 7, "<" & CLng(DateAdd("M", -6, Date))
If .AutoFilter.Range.Columns(1).SpecialCells(12).Count < 2 Then
MsgBox "NÃO ENCONTRADAS DATAS QUE ATENDEM AO CRITÉRIO"
Else: .Range("A2:N" & .Cells(Rows.Count, 1).End(3).Row).SpecialCells(12).EntireRow.Delete
End If
.AutoFilterMode = False
End With
End Sub
Postado : 30/07/2023 11:51 am