Mah, dopo che hai messo quei numeri in una stringa ti e' chiaro che non li elabori piu'?
Comunque...
Con formule, con i tuoi dati su Foglio1:
-in Foglio2, A2 e B2 ci riporti Nome e Cognome; in C2 inserisci 1 spazio; in D2 usi la formula
- Codice: Seleziona tutto
=SE(Foglio1!F2="MAL";D2&(RIF.COLONNA()-2)&" ";D2)
che poi copi verso destra per altre 30 celle, quindi fino ad AH2;
-AH2 contiene il tuo risultato
-copi la riga 2 verso il basso per quanti nominativi hai
-volendo puoi nascondere le colonne C:AG per non farti abbagliare da troppi dati
OPPURE ti fai una User Function:
-in un Modulo di codice standard (es Modulo1) inserisci questo codice:
- Codice: Seleziona tutto
Function MALAT(Data1) As String
For Each MalDay In Data1
If MalDay = "MAL" Or MalDay = "mal" Then MALAT = MALAT & " " & (MalDay.Column - Data1.Column + 1)
Next MalDay
End Function
Poi sul foglio excel dove vuoi eserai una formula tipo
- Codice: Seleziona tutto
=malat(E2:AI2)
che poi copierai verso il basso per le altre righe che contengono un turno di servizio.
Ciao, fai sapere.