Ciao,
chiedo scusa, ma sicuramente il mio "concetto" di cui sopra era troppo... ermetico: quell' etc. suonava come una poesia di Ungaretti :-\\
In realtà il mio problema
Sheets("Ultimofogliodelfile").Select
Call Seleziona_Filtrato_per_copia
Sheets("Primofogliodelfile").Select
etc.

dev'essere rapportato con la macro, più chiaramente:
Sheets("Ultimofogliodelfile").Select
Call Seleziona_Filtrato_per_copia
Sheets("Primofogliodelfile").Select
Range("B25").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Penultimofogliodelfile").Select
Call Seleziona_Filtrato_per_copia
Sheets("Primofogliodelfile").Select
Range("B50").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Terzultimofogliodelfile").Select
Call Seleziona_Filtrato_per_copia
Sheets("Primofogliodelfile").Select
Range("B75").Select
ActiveSheet.Paste
Application.CutCopyMode = False
etc. fino a
Sheets("Secondofogliodelfile").Select
Call Seleziona_Filtrato_per_copia
Sheets("Primofogliodelfile").Select
Range("B??").Select (*)
ActiveSheet.Paste
Application.CutCopyMode = False
Chiedo assai (ma assai...) scusa per la vaghezza della mia esposizione in apertura del thread :-((
[a volte sono una FRANA..................]
Per mia fortuna il codice che mi hai scritto mi è servito per risolvere un altro problema, del quale non riuscivo a trovare la soluzione... :-))

Grazie infinite, buon pomeriggio
eZio


EDIT:
(*) questo in realtà è un problema che dovrò risolvere, ma ho già a disposizione una tua macro che lavora per incollare un range a n righe dall'ultima riga scritta... per cui non volevo abusare della tua immensa Pazienza :-))

salve
con la premessa che non conosco il layout dei foglio del tuo file,
dovrebbe essere sufficiente questo:

primo foglio del file : Sheets(1).select
secondo foglio del file : Sheets(2).select
ultimo foglio del file: Sheets(Sheets.Count).Select
penultimo foglio del file : Sheets(Sheets.Count-1).Select
terzultimo foglio del file: Sheets(Sheets.Count-2).Select
saluti
Giap

---

salve
La tua macro passa in rassegna tutti i fogli della cartella non mi pareva che fosse questo
il tuo intendimento.
saluti
Giap

---

Ciao,
resuscito questo thread per chiedere lumi su un dettaglio tecnico:
questa macro

'--------------------
Dim I As Integer
X = Sheets.Count
Sheets(X).Activate
Application.Run "Seleziona_Filtrato_per_copia1"
For I = (X - 1) To 1 Step -1
Sheets(I).Activate
Application.Run "Seleziona_Filtrato_per_copia2"
Next I
End Sub

se viene eseguita su alcuni PC funziona alla perfezione, ma se viene eseguita su alcuni altri NO. Il problema che ho riscontrato è che I = 1 non è sempre effettivamente il 1° foglio ma di fatto è accodato ad altri "oggetti" aperti, ma invisibili sul desktop (es. i file PERSONAL o XLSTART etc.) e se anziché scrivere 1 scrivo 2 o 3 a seconda del pc (causa S.O.??) la macro si esegue correttamente. Il sistema più "canonico" sarebbe quello di nominare i file col loro nome, o con l'istruzione
ActiveWorkBook.Name
ma, con tutta franchezza, io mi perdo in quell'oceano... :-))
Come andrebbe riscritta la macro affinché quella I = 1 sia effettivamente riconosciuta dal sistema in modo universale?
Grazie infinite, anche per la pazienza. Buona giornata
eZio

Ciao,

chiedo conferma:
se la cartella ha questo percorso
C:\Documents and Settings\User\Documenti\LAVORO_1\Cartella1
sarà sufficiente scrivere
with workbooks Cartella1?
anche se la macro risiede in un file dal percorso diverso?
Facendo un ragionamento in generale: non è possibile dare istruzione al SO di essere in presenza di un riferimento relativo, al pari di quello che è possibile dare nei codici del Range (con o senza $)? In villano volgare, come se il Sistema Solare rimanesse identico indipendentemente dal fatto di trovarsi nella via Lattea o in Andromeda... (chiedo perdono per il ragionamento a spanne, me è per fare capire a cosa mi riferisco).
Grazie assai
eZio

Ciao,
sicuramente sono io che mi perdo in un bicchiere d'acqua, e per di più non riesco a spiegare il problema (che in realtà è semplicissimo)...
In parole povere vorrei che quella macro potesse lavorare in parecchi file, per cui vorrei che lavorasse sui file che di volta in volta trova aperti in sequenza (il 1°, il 2°, il 3° etc.), ma di fatto da un pc all'altro non sempre il 1° viene letto 1°, il 2° 2° etc. Modificando l'istruzione I = To 1 a seconda del pc (sostituisco 1 con 2 o 3), tutto il pacchetto lavora correttamente...
Grazie assai
eZio

Ciao,
hai ragione. Volevo evitare di aprire un altro thread col medesimo argomento di fondo per cui h preso ad esempio la macro già postata :-))
la macro che, con la medesima filosofia descritta più sopra, lavora sui file aperti è questa:
,--------
Dim I As Integer
X = Workbooks.Count
For I = X To 3 Step -1
Workbooks(I).Activate
Application.Run "Macro1"
Next I
End Sub

Grazie assai e buona serata
eZio

con te la nebbia NON esiste proprio..................!! :-))
Proprio questo cercavo da mesi...
Grazie infinite, mio Angelo Custode
eZio


Edit: intanto che " il ferro è caldo"
nella macro
'--------
Dim i As Integer
X = Workbooks.Count
i = 3
Workbooks(i).Activate
Sheets("Foglio 2").Select
Range("ah3", Range("aj" & Rows.Count).End(xlUp)).Select
Selection.Copy
For i = 4 To X Step 1
Workbooks(i).Activate
Application.Run "Macro2"
Next i
Application.CutCopyMode = False
Application.Run "Macro3"
End Sub

Attivo il 3° file aperto, nel Foglio 2 seleziono il range e lo copio nei file dal 4° all'ultimo, poi chiedo di eseguire la Macro2; infine di eseguire la Macro3. Macro2 3 Macro3 lavorano con lo stesso concetto dei file aperti, per cui compreso bene il meccanismo con cui scrivere correttamente le istruzioni non dovrei avere ulteriori problemi (condizionale più che mai d'obbligo).
Dovrei appunto escludere dal lavoro quei file aperti ma nascosti che di fatto ora sbilanciano quel 3 (e di conseguenza anche tutto il resto delle istruzioni), facendolo divenire di fatto 4, o 5 a seconda del PC/SO che è in uso nella macchina in cui sto eseguendo excel... come adatto le istruzioni che mi hai scritto sopra?? (lo so, sono proprio un rompiscatole, per giunta assai ignorante in materia di VBa, ma ho tanta voglia di imparare BENE)

Ciao,
le tue perplessità sono più che fondate. Il mio problema è che ho a che fare con migliaia di file, per cui indirizzare ai rispettivi file tutte quelle macro dopo poco tempo invoglierebbe al suicidio per disperazione :-)
Ho quindi messo a punto un sitema molto semplice che, dando indicazioni precise sull'apertura dei file-madre e su intere cartelle ad essi strettamente legate, svolgono tutta una serie di operazioni perfettamente incastrate tra di loro che su alcune macchine girano alla perfezione (il famoso 3° file aperto in sequenza sopra menzionato viene effettivamente visto dal sistema come il 3° file aperto), mentre su altri PC tutto và a meraviglia solo se modifico pari-pari tutti i puntatori (il 3 diventa 5 o 6, il 4 6 o 7 etc. a seconda del PC in uso). Evidentemente c'è qualche file nascosto che viene conteggiato dal SO o dal PC, mentre il sistema è incastrato alla perfezione altrimenti genererebbe sempre errori; mi mancano i famosi codici che permettano di istruire tutte le macchine a leggere quel 3 come 3, indipendentemente dai file aperti in background che di fatto confondono e disorientano la macchina... La macro che hai scritto sopra è perfetta, il concetto dei "soli file aperti visibili" risponde in modo esatto al mio problema, ma i miei enormi limiti di conoscenza del VBa non mi permettono di adattare correttamente alle mie macro (che ho postato sopra) le istruzioni che hai scritto nella Sub WBvisible. Credo che se vedessi in che modo scrivi i codici in quelle macro, riuscirei a capire il modus operandi per scriverli anche nelle altre (ma ripeto: il condizionale è d'obbligo), quindi riolverei il mio problema alla radice.
Grazie infinite per tutto. Buona giornata
eZio



Edit: chiedo scusa. ho dimenticato di aggiungere che l'indicizzazione dei file aperti è per ordine di apertura.