cercare parola in excel e copiare riga dati

[libraio]

Ben ritrovati,
in un foglio Excel 2003 devo trovare una parola (Zanichelli) che è parte di un testo variabile in colonna C e riportare l'intera riga che la contiene (colonne A:I) nel Foglio 2.
Ho iniziato con la funzione 'Cerca.vert', ma mi sono già "incartato"...
Qualcono mi può cortesemente aiutare?
Grazie

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub TrovaStrCopia()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Ws2.Range("A:I").ClearContents
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
If Len(UCase(Ws1.Range("C" & RR1))) > Len(Replace(UCase(Ws1.Range("C" & RR1)), "ZANICHELLI", "")) Then
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws1.Range("A" & RR1 & ":I" & RR1).Copy Destination:=Ws2.Range("A" & UR2)
End If
Next RR1
End Sub

Ciao

[libraio]

Grazie Flash,
è perfetto, e posso variare anche il termine cercato!
Siete insostituibili
libraio

[Flash30005]

Era l'idea che mi era venuta
infatti potresti creare una convalida dati da elenco in una cella e prelevare questo "valore"
Al variare della cella attivare la macro.

ciao

[libraio]

Intrigato dalla tua ipotesi ho "provato" con la convalida dati, ma è un'opzione che non ho mai esercitato... e non riesco ad ottenere i risultati sperati.
Io pensavo di modificare al bisogno il dato da cercare (Zanichelli) e la colonna interessata, direttamente sul codice,; come potrei semplificare con la convalida dati?
Ancora grazie
libraio

[Flash30005]

Ti crei un elenco in una colonna che potrai nascondere es.: colonna N
In L1 crei la convalida (da Menu Dati) e inserendo la voce Elenco (in Consenti) e selezionando in origine N1:Nx (fine elenco)

Poi nel vba del foglio inserisci questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$L$1" Then Exit Sub
TrovaStrCopia
End Sub

La macro va modificata in quanto deve prendere il valore di L1 quindi sarà così

Codice: Seleziona tutto

Sub TrovaStrCopia()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Ws2.Range("A:I").ClearContents
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
If Len(UCase(Ws1.Range("C" & RR1))) > Len(Replace(UCase(Ws1.Range("C" & RR1)), UCase([L1]), "")) Then
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws1.Range("A" & RR1 & ":I" & RR1).Copy Destination:=Ws2.Range("A" & UR2)
End If
Next RR1
Ws1.Range("A1:I1").Copy Destination:=Ws2.Range("A1")  '<<<< aggiunta riga per copiare la testata
Ws2.Select    '<<<<<<<<<<<<<<<<< aggiunta riga per selezionare il foglio di output (foglio2)
End Sub

Allego il file test

ciao

EDIT ore 10:35 - aggiunte righe per completare dati output (vedi commenti nella macro)

[libraio]

Fantastico Flash!
Il procedimento accelera parecchio le procedure.
A questo punto (già notevole) "sfido" la tua cortesia: sarebbe possibile rendere variabile, e quindi selezionabile, la colonna in cui effettuare la ricerca del dato? Attualmente è fissa sulla colonna 'C'. Ne otterrei un ulteriore beneficio...
Grazie
libraio