Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel2003] Ricerca parola+Copia-Trasponi stessa riga

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

[Excel2003] Ricerca parola+Copia-Trasponi stessa riga

Postdi enrico43 » 28/10/14 18:21

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
enrico43
Utente Senior
 
Post: 133
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Sponsor
 

Re: [Excel2003] Ricerca parola+Copia-Trasponi stessa riga

Postdi Flash30005 » 29/10/14 00:05

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
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: [Excel2003] Ricerca parola+Copia-Trasponi stessa riga

Postdi enrico43 » 29/10/14 12:12

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, 8)").Select
Range("CL.Offset(0, 8)").Activate
Selection.Copy
Un doppio grazie insieme ai miei più
Cordiali saluti
Enrico
enrico43
Utente Senior
 
Post: 133
Iscritto il: 13/09/14 15:33
Località: Fiumicino


Torna a Applicazioni Office Windows


Topic correlati a "[Excel2003] Ricerca parola+Copia-Trasponi stessa riga":


Chi c’è in linea

Visitano il forum: Nessuno e 31 ospiti