Macro si blocca su celle con errore

Hai un problema con Excel?

Nuova discussione

Macro si blocca su celle con errore
di Scumm Bar (utente non iscritto) data: 28/04/2017 10:33:17
Salve,
vi spiego subito il problema: ho una macro che elimina righe con informazioni non importanti, in base a valori nelle colonne A e B.

Il problema è che in queste due colonne ci sono molte celle con errore #NOME? che mi bloccano la macro. Siccome queste celle sono in righe che andrebbero eliminate, come posso fare per eliminarle senza che si blocchi la macro?

Grazie anticipatamente a tutti per l'aiuto.
Saluti

Sub Elimina()

Dim ur As Integer
With Sheets("Previsioni_STR")
ur = .Cells(Rows.Count, 1).End(xlUp).Row
For n = ur To 1 Step -1
If .Cells(n, 1).Value <> "Art. pers." And .Cells(n, 1).Value <> "|" And .Cells(n, 1).Value <> "VETTURA TA" And .Cells(n, 2).Value <> "1" Then
.Cells(n, 1).EntireRow.Delete
End If
Next n
End With

End Sub

di patel data: 28/04/2017 11:41:42
la macro senza un file di esempio è poco utile
di Scumm Bar (utente non iscritto) data: 28/04/2017 11:46:14
Allegato

di patel data: 28/04/2017 12:10:30
usa Formula al posto di Value

If .Cells(n, 1).Formula <> "Art. pers." And .Cells(n, 1).Formula <> "|" And .Cells(n, 1).Formula <> "VETTURA TA" And .Cells(n, 2).Formula <> "1" Then

di Scumm Bar (utente non iscritto) data: 28/04/2017 15:00:02
Ho provato a sostituire Value con Formula, ma non elimina più niente

di Mister_x (utente non iscritto) data: 28/04/2017 16:57:06
ciao

on error resume next

ciao

Sub Elimina()
On Error Resume Next
Dim ur As Integer
With Sheets("Previsioni_STR")
ur = .Cells(Rows.Count, 1).End(xlUp).Row
For n = ur To 1 Step -1
If .Cells(n, 1).Value <> "Art. pers." And .Cells(n, 1).Value <> "|" And .Cells(n, 1).Value <> _
   "VETTURA TA" And .Cells(n, 2).Value <> 1 Then
.Cells(n, 1).EntireRow.Delete
End If
Next n
End With

End Sub

di Scumm Bar (utente non iscritto) data: 02/05/2017 11:01:02
Mi dispiace ma anche con "On Error Resume Next" continua a non eliminare le righe. Non da errore, ma non le elimina
di Mister_x (utente non iscritto) data: 02/05/2017 11:25:41
ciao

sul file che tu ai postato la sub() o macro elimina anche quelle righe incriminate

ti riposto il tuo file con inserita la sub() e il lavoro che a fatto

ciao
di Scumm Bar (utente non iscritto) data: 03/05/2017 11:59:07
Hai perfettamente ragione, avevo inserito "On Error Resume Next" ma non avevo sostituito .value nell'If. Grazie!

Vuoi Approfondire?