Ho sul foglio1 la seguente lista di date a partire da AA1 (INTERVALLATE DA ALTRE CELLE che non elenco x non dilungarmi)
xxxx xxxxxx: 13/10/2012 01:48:59
xxxx xxxxxx: 13/10/2012 01:46:02
xxxx xxxxxx: 13/10/2012 01:08:56
xxxx xxxxxx: 13/10/2012 01:02:58
xxxx xxxxxx: 13/10/2012 00:53:10
xxxx xxxxxx: 13/10/2012 00:47:35
xxxx xxxxxx: 13/10/2012 00:31:13
xxxx xxxxxx: 13/10/2012 00:27:36
xxxx xxxxxx: 12/10/2012 23:59:32
xxxx xxxxxx: 12/10/2012 23:53:10
xxxx xxxxxx: 12/10/2012 23:44:29
xxxx xxxxxx: 12/10/2012 23:26:46
xxxx xxxxxx: 12/10/2012 23:24:36
xxxx xxxxxx: 12/10/2012 23:23:04
xxxx xxxxxx: 12/10/2012 23:22:07
xxxx xxxxxx: 12/10/2012 23:15:59
xxxx xxxxxx: 12/10/2012 23:11:43
xxxx xxxxxx: 12/10/2012 22:55:00
con la seguente macro
Sub Macro1()
Cellafine = Range("AB" & Rows.Count).End(xlUp).Row
Set pippo = Worksheets("Foglio1").Range("AA1:AA" & Cellafine) 'con Intervallo impostiamo la colonna AB1 fino alla sua fine
For Each Migliore In pippo
If Len(Migliore.Value) = 32 Then ' se trova cella piena lunga 32 caratteri corrispondente a "xxxx xxxxx: 23/10/2012 23:28:12" saltando le altre che ci sono in mezzo a quelle della lista che vi ho inviato
cellavuota = Range("A" & Rows.Count).End(xlUp).Row + 1 'cerchiamo l'ultima cella occupata nell'elenco, +1 sarà quella vuota
Cells(cellavuota, 1) = Right(Migliore, 31 - 13)
End If
Next Migliore
End Sub
Il problema è che quando arriva al 12/10 in colla A1 dove trasferisco i dati appare
13/10/2012 01:46:02
13/10/2012 01:08:56
13/10/2012 01:02:58
13/10/2012 00:53:10
13/10/2012 00:47:35
13/10/2012 00:31:13
13/10/2012 00:27:36
10/12/2012 23.59
10/12/2012 23.53
10/12/2012 23.44
10/12/2012 23.26
10/12/2012 23.24
OSSIA MI SI INVERTE il giono con il mese
Perchè ? se potesse servire se estrapolo Right(Migliore, 31 - 12) ossia con uno spazio bianco davanti funziona ma logicamente cosa estraggo è differente dalla data ...