Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel 2007 Macro Copia / Incolla riga con cella condizionata

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

Excel 2007 Macro Copia / Incolla riga con cella condizionata

Postdi deniel69 » 18/07/14 20:04

Salve a tutti...
Ho bisogno di un aiutino per far funzionare questa sub che ho trovato in un vecchio topic
con il titolo "Macro Copia / Incolla riga con cella condizionata"
nel topic dove l'ho trovata dicono che funziona ,ma in realtà mi va in debug.....

In poche parole devo cercare nella colonna M di un foglio il valore "SPEDITO"
e se lo trovo devo copiare o ancora meglio tagliare l'intera riga e copiarla (incollarla)
in un altro foglio.

Grazie anticipato a chi darà risposta.....


Sub Cerca_SPEDITO()

RefCol = "M" '<< La colonna
CopyStr = "SPEDITO" '<<Il valore
Sheets("Foglio1").Select
RefOff = Range(RefCol & 1).Column
For Each Cell In Range("a4:a" & Cells(Rows.Count, 1).End(xlUp).Row)
If UCase(Cell.Offset(0, RefOff - 1).Value) = UCase(CopyStr) Then _
Cell.Range("A1:M1").Copy Destination:=Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next Cell
End Sub
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Sponsor
 

Re: Excel 2007 Macro Copia / Incolla riga con cella condizio

Postdi Flash30005 » 19/07/14 00:54

Prova così
Codice: Seleziona tutto
Sub CopiaSe()
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR1 = UR1 To 1 Step -1
If UCase(Worksheets("Foglio1").Range("M" & RR1).Value) = "SPEDITO" Then
Worksheets("Foglio1").Rows(RR1).Cut Destination:=Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Worksheets("Foglio1").Rows(RR1).Delete  '<<<< cancella o commenta questa riga se non vuoi eliminare la riga sul foglio1
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: Excel 2007 Macro Copia / Incolla riga con cella condizio

Postdi deniel69 » 20/07/14 14:15

Ottimo e come sempre il migliore ...Umilmente grazie!
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Re: Excel 2007 Macro Copia / Incolla riga con cella condizio

Postdi deniel69 » 26/07/14 04:03

Buon giorno e scusa flash se torno sull'argomento....
Ma vorrei sapere ,come posso modificare il tuo codice in modo ce mi copi solo i valori contenuti nelle celle
e non le formule presenti nelle righe di foglio1?

Grazie ancora...
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Re: Excel 2007 Macro Copia / Incolla riga con cella condizio

Postdi Flash30005 » 26/07/14 13:29

Codice: Seleziona tutto
Sub CopiaSe()
Sheets("foglio2").Cells.Clear '<<<< commenta o cancella questa linea codice se non vuoi resettare il foglio2
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR1 = UR1 To 1 Step -1
If UCase(Worksheets("Foglio1").Range("M" & RR1).Value) = "SPEDITO" Then
Worksheets("Foglio1").Rows(RR1).Copy
Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
'Worksheets("Foglio1").Rows(RR1).Delete  '<<<< cancella o commenta questa riga se non vuoi eliminare la riga sul foglio1
End If
Next RR1
    Application.CutCopyMode = False
    Range("A1").Select
End Sub


Ho aggiunto la riga commentata che ripulisce il foglio2 ma in questo caso la seconda riga va commentata per evitare di cancellare il dato originale e poter, così, fare più test
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-


Torna a Applicazioni Office Windows


Topic correlati a "Excel 2007 Macro Copia / Incolla riga con cella condizionata":


Chi c’è in linea

Visitano il forum: alfrimpa, enrico43 e 5 ospiti