[Copiare le celle filtrate in un altro foglio]
Ho registrato una macro per copiare le celle filtrate dal foglio VERIFICA al foglio MODULO
Questo è il codice:
Public Sub Quinta()
'Applicare un filtro al foglio 'VERIFICA', filtro di testo <> "Non disp"
Sheets("Verifica").Select
Range("B2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$19").AutoFilter Field:=2, Criteria1:= _
"<>NON DISPON", Operator:=xlAnd
End Sub
Public Sub Sesta()
' copio i valori filtrati nel foglio MODULO
Sheets("Verifica").Select
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("modulo").Activate
Range("A10").Select
ActiveSheet.Paste
Sheets("verifica").Activate
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("modulo").Activate
Range("C10").Select
ActiveSheet.Paste
Sheets("verifica").Activate
Range("C5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("modulo").Activate
Range("D10").Select
ActiveSheet.Paste
Come faccio a rendere indipendente la cella da cui partire la copia?
Adesso è Range("A5").Select
Ma se mi arrivano altri dati la cella da cui partire potrebbe essere diversa: esempio Range("A1").Select
Allego il file
Grazie delle risposte