Caio,
innanzi tutto Grazie per la tua davvero immensa pazienza (e pari comprensione per un povero diavolo come il sottoscritto...)
Credo proprio che HAI fatto centro, come sempre: sono stupende!! E assolvono ai miei vincoli/limiti "strutturali".
Concedimi di rimanere allibito anche per la sintesi delle tue creature: ne leggo di macro nel web, ma per ottenere quello che tu riesci a fare in 4 righe scrivono una Divina Commedia (se mai vi riescono!!). Nulla a che vedere con la bellezza e l'eleganza regale delle tue creature! Mi mancherai tantissimo... [al di là del preziosissimo aiuto che mi dai...]
Avrei una ciliegina da mettere sulla torta, che credo non ti dia particolare tribolazione perché lavora su queste tue due utime macro:
-la sub controlla2 rimane com'è: individua le celle con bordi colorati e apre i file necessari per l'immissione dei dati nei campi FIELD e CRITERIA1 della sub Filtra1.
-la mia ultima richiesta prima di lasciarti in sacrosanta pace (sempre che tu voglia ancora darmi retta) riguarda la macro Filtra1 che è scritta in ogni file EXCEL(n) CHE DEVE RIMANERE INVARIATA NELL'IMPIANTO
E possibile dare istruzioni alla macro controlla2 (quindi tutto avviene dal file EXCEL_A) di:
-andare nel 1° file che ha aperto e scrivere la 1^ colonna che ha trovato nei campi FIELD e CRITERIA1 del 1° dei 2 filtri
e chiudere il file in cui ha appena scritto i dati, salvandone le modifiche;
-andare nel 2 file che ha aperto e scrivere la 2^ colonna che ha trovato nei campi FIELD e CRITERIA1 del 1° dei 2 filtri
e chiudere il file in cui ha appena scritto i dati, salvandone le modifiche;
etc. fino all'ultima colonna che ha trovato, in cui scriverà i dati nell'ultimo file che ha aperto, dopodiché lo chiude salvandone le modifiche?
Mi chiuderesti del tutto una serie di problematiche legate a questa operazione che definisco grottesca, ma con la quale mio malgrado devo fare i conti... :-\\
Grazie infinite
eZio

Ciao,

Hai capito benissimo :-)
...e mi hai risolto un grosso problema.
Grazie infinite per tutto, carissimo Amico mio. In becco all'aquila (in aviazione si dice così) per i tuoi impegni.
eZio

salve

.Cells(1, 18).Value = Chr(Range(mycoll(y)).Column + 64)

saluti
Giap

---

Ciao,
Grazie per la precisazione. Stavo cercando a dritta e a manca nel web, ma (ovvio) non avendo trovato nulla di risolutivo mi ero arrangiato con questa soluzione: mi appoggiavo alla cella S1 in cui avevo scritto la funzione:
=SE(R1=8;"h";SE(R1=9;"i"; etc. fino a SE(R1=33;"ag";))))))))))))))))))))))))))
in tal modo veniva visualizzata la lettera corrispondente :-)

Ora mi sta sorgendo un altro problema (fortunatamente assai circoscritto) in una serie di file in cui non posso fare altrimenti:
c'è modo con una macro di farle scrivere nei campi FIELD e CRITERIA1 del primo dei due filtri (in questa sotto, la lettera h) della macro

Sub Filtra1()
swProcessato = ActiveWorkbook.Name
Workbooks(swProcessato).Activate
Sheets("Foglio 2").Select
Range("A2:AH2").Select
Selection.Copy
Range("A16").Select
ActiveSheet.Paste
Range("A17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$18", Range("$AH$18").End(xlDown)).AutoFilter Field:=Range("h18").Column, Criteria1:=Range("h18").Value, _
Operator:=xlAnd 'MODIFICARE FIELD E CRITERIA1 A SECONDA DELLA SIGMA DA FILTRARE
ActiveSheet.Range("$A$18", Range("$AH$18").End(xlDown)).AutoFilter Field:=Range("AH18").Column, Criteria1:=Range("AH18").Value, _
Operator:=xlAnd
Rows("3:12").Select
Selection.EntireRow.Hidden = True
End Sub

la lettera che trova nella cella S1 del Foglio1 e poi di farle chiudere quel file, salvando le modifiche dopo avere modificato la sub Filtra1?
Sembra che questo chiodo fisso non voglia finire di rompere le scatole :\\
Grazie infinite,
eZio

Ciao,
hai perfettamente ragione... il polpettone è indigeribile per chiunque, te lo assicuro. E il fatto che tu fino ad ora lo abbia digerito senza il minimo problema la dice lunga su che "stomaco" [leggere: cervello] tu abbia :-))
Torno serio:
SIGMA è una delle innumerevoli sigle che ho nelle mie macro per distinguere e capire al volo in ogni momento di cosa sto parlando e in quale costellazione della mia galassia mi trovo, altimenti davvero sarebbe impossibile stare dietro a tutto il mio polpettone senza fare tremende confusioni. Ti chiedo scusa, è sempre lo stesso discorso: per me che so cosa sto maneggiando è semplice, ma devo mettermi nei panni (i tuoi) che di punto in bianco ti trovi davanti un pasticcio di macro e devi dipanare l'intricata matassa. Pertanto ignora quella sigla che scioccamente ho mantenuto nel commento.
Le macro che mi hai scritto stanno già facendo stupendamente il loro egregio lavoro nei file in cui sono state inserite, ma in questo caso specifico devo risolvere il problema tenendo conto di questa enorme limitazione: la macro deve rimanere così com'è, non posso fare variazioni altrimenti tutto l'intricato incastro/ingranaggio s'inceppa inesorabilmente (chiaramente le istruzioni dei riferimenti di Foglio1 da cui pescare le lettere da modificare andranno inseriti, ma senza modificare la macro nel suo impianto). Purtroppo il mio problema, per fortuna l'ultimo di questa serie, è questo e non posso assolutamente fare altrimenti (per ora, poi gradualmente modificherò e porterò allo stesso standard di quelle che stanno già lavorando):
questa sub Filtra1 è in un file; in Foglio1, cella S1, c' è il riferimento letterale ottenuto con la funzione che ti ho sintetizzato sopra; devo potere modificare la lettera dei campi FIELD e CRITERIA1 del primo dei due filtri della macro in modo che vi venga scritta quella di cella S1 di Foglio1. Non posso inserire cicli, o altri lavori da fare svolgere la macro: devono solo essere modificati quei due parametri e poi il file dev'essere chiuso salvando le modifiche...
Ora questo lavoro viene svolto manualmente, ma oltre che alienante è assai facile fare errori di scrittura perché i file da sistemare sono parecchi. Se si riuscisse a fare queste sostituzioni via VBa sarebbe davvero una gran bella vittoria...
Grazie infinite, per tutto
eZio

Ciao,


che pazienza che hai!!
in pratica si, una macro o una o più istruzioni che indichino alla macro di sostituire i campi FILED e CRITERIA1 del primo dei due filtri con la lettera scritta in S1 di Foglio1 del file. Magari chiedo una fesseria... ma mi risolverebbe un problema serio :-\\
Grazie infinite
eZio

Ciao,

prima di tutto concedimi un'esclamazione che mi esce spontaneamente: "Mamma mia, Mamma mia!!"
sono davvero esterefatto... sono fermamente convinto che il VBa l'abbia inventato tu.

La macro è quella che ho scritto sopra, che è quella che hai scritto qui sopra eccetto per riga4 Range("A17").Select
Ho eseguito alla lettera le tue indicazioni, con le variazioni necessarie e... non avevo dubbi: FUNZIONA TUTTO A MERAVIGLIA.
Non ho parole per ringraziarti, perché mi viene dal profondo del cuore. Mi hai risolto un problema serio, dal quale non potevo mio malgrado uscirne in tempi brevi.
Grazie infinite, caro Amico.
eZio

Mi rispondo da solo :-))
(passettino dopo passettino qualcosa imparo, forse)

la sub perché si esegua "forse" và scritta così
,----------
Dim x As Integer
Dim Wb As Window
Dim n As Integer

For Each Wb In Windows
If Wb.Visible <> True Then
x = x + 1
End If
Next
i = x + 2
e = Workbooks.Count
For n = e To i Step -1
Workbooks(n).Activate
Application.Run ("'" & ActiveWorkbook.Name & "'!ModificaFiltra1")
Next n

End Sub

...ma in questo affascinante Universo del VBa non bisogna MAI dare nulla per scontato (si prendono certi schiaffoni!!)
per cui se ho scritto una fesseria mi si riprenda senza indugi...
Buona giornata
eZio

detto da te fà piacere alla n ;-))

Grazie assai
eZio