Buona sera Domenico ho eseguito passo passo le istruzioni del post5,perfetto una curiosità
perché con questa macro
Sub ordina()
Dim Ur As Long, X As Long, DD As Date
Application.ScreenUpdating = False
Ur = Sheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Foglio2").Range("A1:AO" & Ur).Clear
Ur = Sheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Foglio1").Columns("A:AO").Copy
Sheets("Foglio2").Range("D1").PasteSpecial
For X = 1 To Ur
DD = Sheets("Foglio2").Cells(X, 4)
Sheets("Foglio2").Cells(X, 3) = Day(DD)
Sheets("Foglio2").Cells(X, 1) = Month(DD)
Sheets("Foglio2").Cells(X, 2) = Year(DD)
Next X
ActiveWorkbook.Worksheets("Foglio2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Foglio2").Sort.SortFields.Add Key:=Range("A1:A" & Ur _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Foglio2").Sort.SortFields.Add Key:=Range("B1:B" & Ur _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Foglio2").Sort.SortFields.Add Key:=Range("C1:C" & Ur _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Foglio2").Sort
.SetRange Range("A1:AO" & Ur)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Foglio2").Columns("A:C").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
MsgBox "fatto"
End Sub
modificando Range("A1:AO")
al posto delle macro precedente era
Sheets("Foglio2").Range("A1:U" & Ur).ClearContents
i numeri vengono precisi
invece con Sheets("Foglio2").Range("A1:U")
i numeri non vengono precisi non riesco ad allagare nessun file
per ora,i numeri sono 20,il range ("A1:U")mi sembrava corretto ho
fatto diversi tentativi,mi sfugge qualcosa?
Saluti matteo