Estrai testo tra simboli

[apocrimata75]

Data la cella A1 contenente la stringa "W-W(OT)-W-L-W(AP)-W", vorrei poter estrarre in 6 celle distinte i valori compresi tra i segni - ed ottenere pertanto: in a2 "W", in a3 "W(OT) ecc.ecc.

Ho provato i vari stringa estrai ma non ho risolto il problema, tipo

Codice: Seleziona tutto

=SE(A1="";"";STRINGA.ESTRAI(A1;3;RICERCA("-";A1)-1))

Potreste aiutarmi? Grazie anticipatamente.

[Dylan666]

Ma non basta la funzione "Dividi testo in colonne" dando come separatore il trattino?

[apocrimata75]

Partendo dalla risposta di Dylan666 ho creato questa macro

Codice: Seleziona tutto

Sub Macro3()
'
' Macro3 Macro
'
    Range("CJ2:CJ31").Select
    Selection.TextToColumns Destination:=Range("CN2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    ActiveWindow.SmallScroll Down:=0
    Range("CM1").Select
End Sub

dove cj2:cj31 sono le celle che contengono i valori separati dal "-".

L'unico problema che la macro si ferma al momento in cui chiede di "Sostituire il contenuto delle celle di destinazione?" e bisogna premere OK, si può evitare?

[Dylan666]

Prova con:
APPLICATION.DISPLAYALERTS=FALSE

http://msdn.microsoft.com/en-us/library ... 39782.aspx

[apocrimata75]

Spero di averla inserita correttamente

Codice: Seleziona tutto

Sub Macro3()
'
' Macro3 Macro
'

'
    Range("CJ2:CJ31").Select
    Selection.TextToColumns Destination:=Range("CN2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    ActiveWindow.SmallScroll Down:=0
    Application.DisplayAlerts = False
    Range("CM1").Select
End Sub


ma non va

[Dylan666]

la riga che ti ho dato mettila all'inizio

[apocrimata75]

Perfetto funziona, grazie mille.