Ciao,
sono alle prese con un altro problema che riguarda le mie tabelle, ma per spiegarlo in breve e senza confusione devo ricostruirne il percorso con una premessa, usando anche alcune immagini:

- in foglio2 (rif. il file-prova) abbiamo la TABELLA2 che elenca in varie colonne (H:AG) dei codici e la colonna AH che elenca un codice interno
- filtrando di volta in volta il cod. di una colonna della TABELLA2 e il cod. di col.AH otteniamo dei dati, come in questa immagine:



- mediante una macro abbiamo fatto effettuare queste operazioni congiunte di filtro in tutta la TABELLA2 e col.AH , macro che ci riporta il tutto in una tabella Pivot (nel foglio TabPivot) in cui vengono evidenziati, come in queste immagini:



a) col.B e U (idem C e V, nascoste): i cod. di col.AH di foglio2
b) col.D e W: tutti i codici di TABELLA2
c) da col.E a col.Q e da col.X a col.AJ: il numero di righe compilate, riscontrate durante ciascuna operazione congiunta di filtro TABELLA2/ col.AH; ad esempio cella I29=10, ottenuto filtrando in foglio2 il cod.23 di col.L con il cod.1 di col.AH che evidenzia appunto 10 righe




Ora, per altri fini di statistica e monitoraggio dei dati devo, grazie a questa stupenda tabella Pivot, evidenziare in un foglio (che in pratica è la copia del foglio2 senza celle bordate e colorate) la cella del codice che nel ns. esempio di cui sopra ha generato il valore 10 di cella I29, che come vediamo è il cod.23 di col.L di riga 569. Avendo sperimentato che il sistema della bordatura delle celle da evidenziare è assai valido, vorrei poterlo applicare anche in questo caso con l’accortezza di usare un diverso colore (che imposterò di volta in volta nella macro) a seconda del valore che sto isolando: ad esempio il valore 10 (righe) ha il rosso, l’11 (righe) ha il blu etc. come nell'immagine d'insieme relativa alla tabella preparata per il valore 10



da cui si ricava che:
col.J riga 4, il cod.117 filtrato con il cod.6 di col.AH ha generato una tabella di 10 righe
col.P riga 5, il cod.64 filtrato con il cod.5 di col.AH ha generato una tabella di 10 righe
col.M riga 6, il cod.72 filtrato con il cod.4 di col.AH ha generato una tabella di 10 righe
col.AA riga 6, il cod.45 filtrato con il cod.4 di col.AH ha generato una tabella di 10 righe
etc.

Per comodità riporto in sequenza le macro, adattate alle mie tabelle:

-Confronto tra tabella2 e col. AH e compilazione tabella Pivot


- Ricerca della sogente in foglio2




Certo è che di macro che ruotano intorno alle mie tabelle, carissimo a10n11, me ne hai scritte davvero tante e mai e poi mai mi sarei immaginato di poter trovare ad ogni mio problema (spesso assai difficile, se non impossibile, da comprendere per un Osservatore esterno) soluzione più eccellente di quella da te propostami… posso quidi affermare che di sicuro chiuderò quest’anno- per molti aspetti assai difficile- in super-bellezza…Grazie solo a te, e di questo te ne sarò grato in Eterno ;)))
Grazie infinite, saluti
eZio

salve
partendo dall'immagine che segue:

tu vorresti che nella tabella generale del foglio2 vengano evidenziati tutte e 5 le ricorrenze del codice 18 (componente) che abbia come riferimento il numero 3 (colonna AH) e presente nella colonna 2 di Tabella 2 (che nella tabella Pivot è indicata come colonna 9 ?

Se è questo che chiedi, serve creare un ciclo di confronto non difficle da realizzare ma potrebbe diventare piuttosto corposo come elaborazione vista la mole di dati che hai nelle tabelle.
Non so se riesco a farlo in giornata al massimo ti proporrò una soluzione entro lunedì.


Approffitto per ricollegarmi alla domanda posta nell'altro 3D.
L'aumento smisurato del volume del file, non è genrato dalla macro, Nella macro in questione non è definita nessuna area e comunque servirebbe solo a svuotare la memoria e non modificare le dimensioni del file.
Se hai fatto delle duplicazioni dei fogli, probabilmente questo è imputabile ad esso. Dovresti provare a ripulire i fogli
selezionando le righe e colonne apparentemente vuote ed eliminarle per vedere se il tuo file si riduce.
saluti
Giap

---

salve
a meno che non prenda una cantonata, in base alle spiegazioni date, il lavoro (salvo alcune piccole modifiche)
lo hai già nelle macro "CopiaFiltrati" e "CercaSorgente"

Le due nuove macro frutto della modifica, lavorano come segue:
La macro Sub evidenziaInTabella() , ti filtra le due tabelle pivot con il criterio che ti verrà richiesto dalla Inputbox effettuerà la sua elaborazione e lancerà in automatico la macro
Sub EvidenziaSorgente_AH() che cerca nel foglio2 la sorgente del valore cercato.
NB. io ho utilizzato il foglio2 come tabella da evidenziare con la bordatura, se tu hai copiato la tabella origiale su un altro foglio cambia il riferimento del foglio di destinatzione in questa istruzione: (segnata in rosso)

Macro Sub evidenziaInTabella()
...........................
Call EvidenziaSorgente_AH
With Sheets("Foglio2").Range(Cellrif)
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlMedium
.Borders.ColorIndex = colore
End With
...................................

macro Sub EvidenziaSorgente_AH()
.................................
With Sheets("Foglio2")
Set area2 = .Range("AH2", .Range("AH2").End(xlDown))
For Each cl In area2
...........................................

quelle che seguono sono le due macro modificate:



Ulteriore annotazione:

nell'istruzione che segue:

.....
Select Case criterio
Case 10
colore = 3
Case 11
colore = 4
Case 12
colore = 7
End Select
..................


è stato prevista la bordatura per i valori uguali a 10-11-12 rispettivamente con i colori 3-4-7
puoi estendere e modificare a piacimento.

provale e vedi se ho centrato il problema.
saluti
Giap

---

Ciao,
sto riguardando questo vecchio 3d, in particolare la 1^ macro del code incluso nel quote:





in cui la macro in questione, previa inserimento dell'altezza della tabella filtrata, restituisce la tabella con la cella bordata il cui valore genera quella tabella di altezza definita

ma, ahimè, non riesco a mettere a fuoco il significato dell'istruzione
For i = 1 To 13
a cui fa seguito l'istruzione Selection.AutoFilter Field:=i, Criteria1:=criterio

So di fare una figuraccia, ma sono altrettanto consapevole che per imparare (non v'è limite al Sapere) bisogna sempre essere umili...
Grazie assai anche per la comprensione, buona giornata
eZio

.

Ciao,
non avevo considerato questo importante dettaglio... (!!)
Grazie assai, buona giornata
eZio