[Excel2003] Ricerca parola+Copia-Trasponi stessa riga

[enrico43]

Buonasera,
avrei bisogno di un Vs aiuto per risolvere un piccolo (per Voi) problema.
In un foglio (1) ho molte descrizioni nella colonna C con relativi valori numerici nella stessa riga nella colonna I ed N. Con la ricerca (per parola) sulla colonna C, vorrei riportare nelle colonne T, U e V stessa riga, l’intera descrizione della cella trovata in C (copiata in T) solo se nella colonna I c’è il valore, il corrispondente valore in I (copiato in U) e quello trovato in N (copiato in V). E se possibile colorare la cella in C in giallo, per evitare che successive ricerche intercettino celle già spazzolate.
http://www.filedropper.com/provavariante
Il mio tentativo è nel file allegato, ma va in errore su “Selection.PastSpecial…” subito e quindi non so neppure se compare la richiesta se voglio fermarmi alla cella in C trovata.
Un grazie anticipato dell’interessamento ed
Un cordiale saluto
Enrico

[Flash30005]

Prova così

Codice: Seleziona tutto

Sub TrovaTrasponi()
Dim rng As Range
Dimmi = InputBox("Scrivi la parola da cercare")
If Dimmi = "" Then Exit Sub
For Each rng In ActiveSheet.UsedRange
    If IsNumeric(rng.Value) = False And Left(rng.Text, 4) = Dimmi Then

        Range("C" & rng.Row).Copy Destination:=Range("T" & rng.Row)
        Range("C" & rng.Row).Interior.ColorIndex = 6
        Range("I" & rng.Row).Copy Destination:=Range("U" & rng.Row)
        Range("I" & rng.Row).Interior.ColorIndex = 6
        Range("N" & rng.Row).Copy
        Range("V" & rng.Row).PasteSpecial Paste:=xlPasteValues
        Range("N" & rng.Row).Interior.ColorIndex = 6

        Dim irisp As Integer
        irisp = MsgBox("Cella " & rng.Address & " a nome " & rng.Value & " Vuoi fermarti ?", vbYesNo)
        If irisp = vbYes Then Exit For

    End If
Next rng


ciao

[enrico43]

Intanto grazie della velocissima risposta.
Ho provato la tua macro, funziona e con qualche aggiustamento si poteva adattare al mio file.
Mi ero però accorto che l'istruzione ...And Left(rng.Text, 4) mi sceglie solo le parole di 4 lettere (anche mettendo gli asterischi prima e dopo "*" Dimmi "*". In effetti l'avevo fatta per verificare il "Cavo", ma se digito una parola di oltre 4 lettere non trova nulla. Ho ricompilato un altra macro che ti allego
http://www.filedropper.com/provavariante1_1
ma che anch'essa presenta problemi con le istruzioni di copia-incolla
Range("CL.Offset(0, 6), CL.Offset(0, ").Select
Range("CL.Offset(0, ").Activate
Selection.Copy
Un doppio grazie insieme ai miei più
Cordiali saluti
Enrico