Excel 2007 Macro Copia / Incolla riga con cella condizionata

[deniel69]

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

[Flash30005]

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

[deniel69]

Ottimo e come sempre il migliore ...Umilmente grazie!

[deniel69]

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...

[Flash30005]

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