Ciao a tutti, ho un file excel con un elevato numero di righe e voglio eliminarle tutte tranne quelle con determinati codici.
Io ho scritto questa funzione:
Dim COD As Integer
Sheets(StSh).Select
With Sheets(StSh)
COD = .Cells(Rows.Count, 10).End(xlUp).Row
For n = COD To 2 Step -1
If Not .Cells(n, 10).Value = "23" Or .Cells(n, 10).Value = "24" Or .Cells(n, 10).Value = "27" Or .Cells(n, 10).Value = "28" Then
.Cells(n, 10).EntireRow.Delete
End If
Next n
End With
Solo che mi verifica solo la prima condizione, cioè mi tiene solo le righe con codice 23, ma mi cancella quelle con il codice 24, 27 e 28. Perchè? Dove ho sbagliato?
Grazie e buon lavoro