Filtro orizzontale

[Ricky0185]

Buongiorno, per un aiuto di un collega. Sulla base del file allegato (enormemente ridotto), dovrei ottenere come risultato qust’altro file, anche sullo stesso foglio, però senza ricorrere al Copia-Incolla Speciale-Trasponi che richiederebbe grande lavoro di riadattamento. Non ho mai usato tabelle Pivot o qualsiasi altro metodo per raggiungere l’obbiettivo e non so neppure se sia possibile. Confido in un Vostro aiuto.
Cordiali saluti
R

[Ricky0185]

Dimenticavo: W11 - office2021 - Possibilmente no macro

[Anthony47]

Bah, da quel che vedo potrebbe tornare comoda la funzione MATR.TRASPORTA. Ad esempio, in A1 di un nuovo foglio

Codice: Seleziona tutto

=STACK.VERT( MATR.TRASPOSTA('GRUPPO MAN'!A1:O100);MATR.TRASPOSTA('GRUPPO MAN'!Q1:AC100))


Compatibile con Office 2021

[Ricky0185]

#NOME? e nei passaggi di calcolo

Forse non riconosce la funzione, eppure Microsoft Office LTSC Standard 2021

[Anthony47]

Niente, Office 2021 non include la funzione STACK.VERT...
Col vba usando Copia /Incolla-Trasponi; ma non so se l'esito sara' quello che vuoi.
Ad esempio:

Codice: Seleziona tutto

Sub TrasponiBoth()
Sheets("GRUPPO MAN").Select
Range(Cells(1, 1), Cells(Rows.Count, "O").End(xlUp)).Copy
Sheets("Foglio3").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
Sheets("GRUPPO MAN").Select
Application.CutCopyMode = False
Range(Cells(1, "Q"), Cells(Rows.Count, "AC").End(xlUp)).Copy
Sheets("Foglio3").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
Range("A1").Select
Application.CutCopyMode = False
End Sub


Questa copia le colonne A:O e le incolla trasposte, poi accoda le colonne Q:AC sempre trasposte
Non so se invece che incollare "tutto" (xlPasteAll) vorrai incollare solo alcuni contenuti, nel qual caso dovrai adattare le istruzioni PasteSpecial

[Ricky0185]

Ti ringrazio, ma non "oso" passare il file con una macro a qualcuno che mi chiede Cos'è una macro. Fra l'altro il secondo file allegato nella prima richiesta è trasposto semplicemente con l'Incolla-Speciale-trasponi. Domani provo la tua funzione in ufficio sul 365.
Buona serata
R

[Raffaele53]

Da provare ….,fare esattamente come scritto
1)Inserisci nuovo foglio
2)Presumo che il foglio sia "GRUPPO MAN", seleziona il range A1:AC45 e copia
3)Nel nuovo foglio, Incolla Speciale FORMATTO+TRASPONI (serve per selezionare le celle)
4) Seleziona nel foglio nuovo tutte le celle bordate
5)Una volta selezionato le celle, vai sulla barra dove si scrivono le formule e metti
=INDICE(MATR.TRASPOSTA('GRUPPO MAN'!$A$1:$AC$45);RIF.RIGA();RIF.COLONNA())
NB devi premere CTRL+SHIFT+INVIO

[Ricky0185]

Grazie raffaele. Con il 21 guarda qui, poi provo col 365.
Buona giornata
R

[Ricky0185]

Visto il messaggio, ho bloccato tutte le celle del secondo foglio ed ho eseguito le tue istruzioni ed il risultato è esattamente come se facessi un semplice Incolla Speciale-Trasponi. Sempre col 21 che è il pc del collega che mi ha chiesto l'aiuto

[Anthony47]

Non ho capito quindi a che punto sei
Se come pare non hai ancora trovato il bandolo allora forse dovresti descrivere "meglio" l'output che vuoi ottenere

[Ricky0185]

Grazie alla tua macro appositamente adattata e ad un pulsante inserito sul foglio (con macro protetta) avrei risolto il problema. In attesa di una soluzione senza macro.
Vi ringraziamo, io ed il beneficiario, del tempo dedicato alla mia richiesta insieme ad un
Cordiale saluto
R