ciao Melissa...segregato!!! comunque bene, spero anche tu
perchè dici di non poter registrare l'applicazione di multifiltri?
ti faccio un paio di esempi banali che tu sarai sicuramente in grado di interpretare:
....
With Sheets("Foglio1").Range("A1:Z10000")
.AutoFilter Field:=1, Criteria1:=Sheets("Foglio2").Range("A1").Value
.AutoFilter Field:=3, Criteria1:=Sheets("Foglio2").Range("B1").Value
End With
.......
Dim rng As Range
Set rng = ActiveSheet.Range("A1:H100")
rng.AutoFilter Field:=1, Criteria1:=Array( _
"Pippo", "Pluto", "Paperino"), Operator:=xlFilterValues
rng.AutoFilter Field:=3, Criteria1:=Array( _
"dato1", "dato2"), Operator:=xlFilterValues
...... Per quanto riguarda il codice esposto nel tuo primo post, se ho capito:
...
r = 8
c = 2
r1 = 20
c1 = 10
riga = 8
colonna = 15
Range(Cells(r, c), Cells(r1, c1)).Copy Cells(riga, colonna).End(xlUp).Offset(1, 0)
....
Questo copia il range B8:J20 a partire dalla prima riga libera di colonna 15 (O)
cari saluti
[Modificato da dodo47 26/03/2020 13:06]
Domenico
Win 10 - Excel 2016