Marius44 ha scritto:
Ciao
Non avere dubbi. Se i dati SONO FILTRATI questa macro ti riporta (da tuo esempio) le date di col.A in col.G
Se i dati non fossero filtrati e lanci la macro vengono, ovviamente, riportate tutte le date.
Option Explicit
Sub riporta_filtrate()
Dim ur As Long, i As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ur
If Rows(i).Hidden = False Then
Cells(i, 7) = Cells(i, 1).Value
End If
Next i
End Sub
Fai sapere. Ciao,
mario
Ciao Mario,
Grazie per il tuo suggerimento
io ho provato a fare una cosa volante funziona, ma non bene.
era questo:
For y = 1 To 1045779: 'ActiveSheet.Range("$A$1:$E$1045779")
If Cells(y, 4) <> "" Or Cells(y, 4) <> "335" Then
ActiveSheet.Range("$A$1:$E$1045779").AutoFilter field:=4, Criteria1:=Array( _
"G", "GC", "GS"), Operator:=xlFilterValues
'ActiveSheet.Range("$A$1:$E$1045779").AutoFilter field:=4, Operator:=xlFilterValues
'Cells(y, 6) = Cells(y, 4)
End If
If Cells(y, 1) = "" And Cells(y, 2) = "" And Cells(y, 3) = "" And Cells(y, 4) = "" And Cells(y, 5) = "" Then
Exit For
End If
Next
Stasera provero' il tuo (visto che sta settimana lavoro di notte)
Grazie