Condividi:        

Ciclo If con più condizioni

Forum in cui potersi conoscere parlando di argomenti non legati all'informatica. Se siete qui per le prima volta e non conoscete ancora nessuno allora presentatevi e facciamo quattro chiacchiere.

Ciclo If con più condizioni

Postdi SebNan » 29/05/13 13:54

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
SebNan
Utente Junior
 
Post: 28
Iscritto il: 07/12/12 14:32

Sponsor
 

Re: Ciclo If con più condizioni

Postdi nerolubo85 » 29/05/13 14:26

2 delle possibili soluzioni:

Codice: Seleziona tutto
If Not(.Cells(n, 10).Value = "23") Or Not(.Cells(n, 10).Value = "24") Or Not(.Cells(n, 10).Value = "27") Or Not(.Cells(n, 10).Value = "28") Then


Codice: Seleziona tutto
If .Cells(n, 10).Value <> "23" Or .Cells(n, 10).Value <> "24" Or .Cells(n, 10).Value <> "27" Or .Cells(n, 10).Value <> "28" Then
nerolubo85
Utente Senior
 
Post: 124
Iscritto il: 04/12/05 11:33


Torna a Forum off-topic


Topic correlati a "Ciclo If con più condizioni":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti