restituire valori da tabella

[podge]

Buongiorno, tramite vba estrapolo le presenze/assenze di 20 dipendenti che confluiscono in un foglio dove compare:

Codice: Seleziona tutto

Nome   Giorno   Assenza       Ore
AAA         1       Permesso       
AAA         2       Licenza           
AAA         3                             8
BBB         1                             9
BBB         2        Malattia
BBB         3                             8

etc. etc.
Questi dati dovrebbero poi andare in un ulteriore file che si presenta così:

Codice: Seleziona tutto

           AAA                BBB               CCC
1    PERMESSO            9
2    LICENZA           MALATTIA
3         8                     8


Come potrei fare?

[Anthony47]

Puoi usare le funzioni Confronta e Indice.
Ad esempio, se il tuo elenco e' in A1:D200, creati in I1 verso destra l'elenco delle persone e in H2 verso il basso la serie delle date; poi in I2 inserisci la formula

Codice: Seleziona tutto

=INDICE($C$1:$C$200;CONFRONTA(I$1&$H2;$A$1:$A$200&$B$1:$B$200;0))&INDICE($D$1:$D$200;CONFRONTA(I$1&$H2;$A$1:$A$200&$B$1:$B$200;0))

Va confermata con Contr-Maiusc-Engter, non il solo Enter

Poi copia I2 e incollalo nelle colonne verso destra; poi copi la prima riga di formule verso il basso per tutti i giorni elencati

Se vuoi la tabella su un file separato, dopo averla creata sul file/foglio che contiene l'elenco, fai un Taglia e incolla sul secondo file: i riferimenti delle formule si adatteranno automaticamente.

Ciao

[klingklang]

Se posso, in alternativa alle formule, vorrei suggerire uno sguardo allo strumento Incrocia dati testuali del mio programma. In questo esempio, il risultato voluto si ottiene mettendo Giorno come campo riga, Nome come campo colonna e gli altri due come campo valore, senza separatori. Allego uno screenshot, se lo provate fatemi sapere cosa ne pensate

[klingklang]

(P.S: c'è un piccolo bug che vado subito a correggere: anche deselezionando il checkbox del separatore, viene inserito lo stesso. Fino a bug corretto, occorre cancellare il contenuto della casella di testo "Separa con" per ottenere il medesimo risultato )