Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

cercare parola in excel e copiare riga dati

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

cercare parola in excel e copiare riga dati

Postdi libraio » 17/01/13 17:59

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
libraio
Utente Senior
 
Post: 211
Iscritto il: 04/01/10 20:31

Sponsor
 

Re: cercare parola in excel e copiare riga dati

Postdi Flash30005 » 17/01/13 18:46

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: cercare parola in excel e copiare riga dati

Postdi libraio » 17/01/13 19:19

Grazie Flash,
è perfetto, e posso variare anche il termine cercato!
Siete insostituibili
libraio
libraio
Utente Senior
 
Post: 211
Iscritto il: 04/01/10 20:31

Re: cercare parola in excel e copiare riga dati

Postdi Flash30005 » 17/01/13 21:50

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: cercare parola in excel e copiare riga dati

Postdi libraio » 18/01/13 10:13

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
libraio
Utente Senior
 
Post: 211
Iscritto il: 04/01/10 20:31

Re: cercare parola in excel e copiare riga dati

Postdi Flash30005 » 18/01/13 10:25

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)
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: cercare parola in excel e copiare riga dati

Postdi libraio » 18/01/13 13:39

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... :oops:
Grazie
libraio
libraio
Utente Senior
 
Post: 211
Iscritto il: 04/01/10 20:31


Torna a Applicazioni Office Windows


Topic correlati a "cercare parola in excel e copiare riga dati":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti