ciao
questo copia le righe nascoste nel foglio2
saluti
Dim wk As Worksheet
Set wk = Worksheets("foglio2")
ur = Range("A" & Rows.Count).End(xlUp).Row
For j = 1 To ur
If Cells(j, 1).EntireRow.Hidden = True Then
ur1 = wk.Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(j, 1).EntireRow.Copy
wk.Range("A" & ur1).PasteSpecial xlPasteValues
end if
next
[Modificato da dodo47 25/08/2019 11:03]
Domenico
Win 10 - Excel 2016