Salve sto cercando si creare una macro per copiare alcune righe da un foglio ad un altro.Queste righe da copiare presentano in una colonna delle date;le righe da copiare sono solo quelle percui tale data è meno recente del giorno oggi.
Ho provato col registratore di macro:
Sub scaduti()
'
' scaduti Macro
'
'
Sheets("DA ARRIVARE").Select
Columns("A:J").Select
Selection.Copy
Sheets("SCADUTI").Select
Columns("A:J").Select
ActiveSheet.Paste
Range("G18").Select
Application.CutCopyMode = False
Columns("A:J").Select
ActiveWorkbook.Worksheets("SCADUTI").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("SCADUTI").Sort.SortFields.Add Key:=Range("J2:J236" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SCADUTI").Sort.SortFields.Add Key:=Range("H2:H236" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("SCADUTI").Sort.SortFields.Add Key:=Range("F2:F236" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("SCADUTI").Sort
.SetRange Range("A1:J236")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
A questo punto devo eliminare tutte le righe per le quali il valore della cella J (una data) è maggiore del valore
della data di oggi
Come posso fare ad aggiungere questa condizione?