Sheets("Ordini").Select ActiveSheet.Range("$I:$I").AutoFilter Field:=2, Operator:=xlFilterDynamic, _ Criteria1:=xlFilterAllDatesInPeriodFebruary Ur = Worksheets("Ordini").Range("A" & Rows.Count).End(xlUp).Row Worksheets("Ordini").Range("A1:I" & Ur).Copy Destination:=Worksheets("Feb").Range("A1") Sheets("Feb").Select |
scossa's web site |
Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
scossa's web site |
Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |