Excel - Copia righe da 170 fogli in un altro foglio

[MrVain1967]

Buongiorno e scusate se la mia domanda è sicuramente da puro newbie.
Sto lavorando su un file excel costituito da 170 fogli in cui sono presenti dei dati molto ridotti, al massimo 10 righe.
Da questi devo estrarre le righe nella quale sia presente la stringa VJ e copiare queste righe in un ulteriore foglio.
Se poteste aiutarmi ve ne sarei molto grato.
Buona giornata ed auguri a tutti.
Paolo.

[Anthony47]

Ciao MrVain1967, benvenuto nel forum.
La stringa di cui parli va cercata in tutte le colonne dei fogli o in qualcuna specifica? Quante sono le colonne da ricopiare?

Ti aspettiamo.

[MrVain1967]

Provo a spiegare meglio per farvi capire.
Cartella di lavoro contiene i dati formativi dei dipendenti nelle 170 unità locali dell'azienda.
Ogni unità locale ha il proprio foglio nella cartella di lavoro.
Uno dei valori riferiti ai dipendenti che viene inserito in una cella specifica può essere V VJ VE
Mi sarebbe utile uno strumento che potesse estrarre da tutti e 170 fogli le righe relative ai dipendenti (in questo caso con il valore assegnato VJ) e copiare queste righe in un ulteriore foglio di estrazione dati.
Spero di essere stato più chiaro.
Grazie per la pazienza.
Paolo.

[Anthony47]

Ma erano proprio cosi' difficili le domande?
Nell' ipotesi che voglia cercare la stringa nella colonna A dei fogli, prova questa macro:

Codice: Seleziona tutto

Sub cercaz()
'
myStr = "VJ"   '<<< La stringa da cercare
Worksheets.Add before:=Sheets(1)
For I = 2 To Worksheets.Count
    Sheets(I).Select
    LastA = Cells(Rows.Count, "A").End(xlUp).Row
    For J = 1 To LastA
        If Len(UCase(Cells(J, 1).Value)) > Len(Replace(UCase(Cells(J, 1).Value), UCase(myStr), "")) Then
            Cells(J, 1).EntireRow.Copy Destination:=Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    Next J
Next I
'
End Sub


Da Excel, premi Alt-F11 per aprire l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx; personalizza l' istruzione marcata <<< e poi manda in esecuzione la macro.
La macro ti aggiunge un nuovo foglio di lavoro a sinistra di quelli presenti, poi effettua la ricerca in ognuno dei fogli e riporta nel nuovo foglio quelle righe che hanno in colonna A la sequenza cercata.

Fai sapere, ciao.