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