Macro per estrarre numeri da cella

[Statix]

Salve a tutti, come sempre ogni tanto capita qualche problemino,
ho un range("C9:C300") in ogni cella ci sono 20 numeri di lunghezza variabile
vorrei con una macro estrarre i 20 numeri di ogni cella nel range( "L9:AE300")

Codice: Seleziona tutto

 2 7 10 16 21 22 34 36 42 54 62 63 64 69 70 71 73 77 79 81
8 13 14 17 23 24 29 31 38 39 46 50 56 61 66 70 77 80 83 88
8 21 26 31 33 37 39 45 51 52 57 66 69 75 76 80 81 85 88 90
12 14 20 28 33 45 48 54 63 64 65 67 72 73 75 77 79 80 84 90


http://www.filedropper.com/test2_15

[Anthony47]

Te la cavi con una macro autoregistrata:
-avvia la registrazione
-seleziona C9
-estendi la selezione verso il basso
-avvia l'operazione Testo-in-Colonna
-scegli Delimitato /Spazio
-nello step 3 di 3 scegli Destinazione = L9
-Completa

A me ha registrato questo codice:

Codice: Seleziona tutto

Sub Macro2()
'
    Range("C9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("L9"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1)), TrailingMinusNumbers:=True
End Sub


Ciao

[Statix]

Ciao Anthony,
ho provato la macro, quando la eseguo ,esce questa finestra di convalida



se premo ok va bene, se premo annulla mi da questo errore




è possibile non visualizzare questa finestra per la convalida.
grazie

[Anthony47]

Puoi azzerare l'area di destinazione prima di procedere; es

Codice: Seleziona tutto

Range("L:AE").ClearContents       'Pulisci l'area di output
    Range("C9").Select
    Range(Selection, Selection.End(xlDown)).Select
' etc etc


Ciao

[Statix]

già fatto e uguale non cambia niente,

[Anthony47]

Alora Range("L:AE").Clear (invece che Range("L:AE").ClearContents)

Ciao

[Statix]

Ciao Anthony,
tutto ok, funziona
con Clear mi ha cancellato solo i bordi è colori delle celle
del range L:AE