- Codice: Seleziona tutto
Sub filtro_uno()
Sheets("foglio1").Select
Columns("D:D").Select
Selection.AutoFilter
ActiveSheet.Range("$d$1:$d$500").AutoFilter Field:=1, Criteria1:=[AG2]
Range("D7:L500").Copy
Selection.AutoFilter
Range("AH1").Activate
Range("AH1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B2").Select
End Sub
che, come da titolo, mi da errore sulla riga ActiveSheetPaste, ho provato a cambiare il comando per il "paste" diverse volte ma restituisce sempre errore, come posso fare?
Grazie in anticipo.