Questa volta quello che vorrei facesse è trovare una o più parole all'interno di una frase e che una volta trovata mi ricopiasse le colonne accanto su un altro foglio.
Vi porto un esempio pratico. Vorrei cercare da un elenco A la parola "mele" e vorrei che tutte le volte che mi trova tale parola mi riporta nel foglio 2 la riga selezionata con le colonne A e B.
FOGLIO 1 FOGLIO 1
Colonna A Colonna B Colonna A Colonna B
Mele verdi 5 Mele verdi 5
Pere Rosse 7 Mele blu 1
Mele blu 1
Melone bianco 4
Piccola nota: potrei voler cercare anche piò di una parola e la frase in cui cercare può essere variabile
Qui di seguito un codice che avevo trovato in un altro topic riadattato al mio caso ma non funzionante
- Codice: Seleziona tutto
Sub TrovaStrCopia()
Dim Ws1, Ws2 As Worksheet
Dim UR1, UR2 As Long
Dim RR1 As Long
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Ws2.Range("A:X").ClearContents
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 5 To UR1
If Len(UCase(Ws1.Range("C" & RR1))) > Len(Replace(UCase(Ws1.Range("C" & RR1)), "Interface", "")) Then
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws1.Range("A" & RR1 & ":X" & RR1).Copy Destination:=Ws2.Range("A" & UR2)
End If
Next RR1
End Sub
Grazie per l'aiuto come sempre.
