=MID( .. ) STRINGA.ESTRAI

[Omocaig]

Ciao, non riesco a ricreare una formula complessa che estragga una serie di valori da una cella, allego esempio:

https://docs.google.com/spreadsheets/d/ ... sp=sharing
Ho usato un link di google per l'esempio ma (perdonatemi se chiarisco l'ovvio) mi servirebbe su excel.

Qualcuno potrebbe darmi una mano?

Grazie,
Giacomo

[Anthony47]

Avrebbe aiutato a proporre la cosa piu' giusta sapere se i valori da cercare sono 4 oppure 40...

Volendo stringere ti propongo una funzione utente, corrispondente a questo codice:

Codice: Seleziona tutto

Function CkValori(ByRef myRan As Range, ByRef myStr As Range) As String
Dim myVal As Range
'
For Each myVal In myRan
If Len(myVal.Value) > 0 Then
    If InStr(1, myStr, myVal.Value, vbTextCompare) > 0 Then
        CkValori = CkValori & myVal.Value & ", "
    End If
End If
Next myVal
End Function


Mettilo in un modulo standard del vba, poi torna su Excel e in C2 inserisci la formula

Codice: Seleziona tutto

=CkValori($A$2:$A$20;B2)


Copia poi verso il basso q.b.

[Omocaig]

Grazie Mille, funziona alla grande.
Btw, il range di valori potrebbe variare, questa soluzione mi sembra super dinamica.

Grazie Mille !