Questione : Perché questo codice deve ripartire?

Ho attaccato una parte del codice che funziona, particolarmente poichè faccio un passo esso con la relativa sequenza.  Tuttavia, quando premo per fare funzionare il tasto, continuerà a funzionare per alcune più linee, quindi si arresta.  Una volta che la inizio manualmente, il codice continuerà a funzionare per alcune più linee da sè.  È confusionario quanto a perché si arresterà appena.  Sì, il With Sheets potrebbe essere unito, ma il relativi ritardato ed io lo hanno lasciato appena come è.  Tuttavia, non penserei che che avrebbe causato il misfire.

Would chiunque avere una risposta?

Cook class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
>Option notpretty " del class= " del id= " codeSnippet784385 del
class= del

Risposta : Perché questo codice deve ripartire?

Oops I ha mancato l'errore evidente - vedere qui sotto:

Se andato (. Cellule (i, 11), 11) = “115528„ allora. File (i).EntireRow.Delete
Se andato (. Cellule (i, 11), 11) = “124957„ allora. File (i).EntireRow.Delete

dovrebbe essere:

Se andato (. Cellule (i, 11), 6) = “115528„ allora. File (i).EntireRow.Delete
Se andato (. Cellule (i, 11), 6) = “124957„ allora. File (i).EntireRow.Delete
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

DelUnNeeded secondario ()
FinalRow fioco lungamente, i quanto lungamente, lPos come lungamente

Con gli strati (“PIDs„)
    FinalRow =. Cellule (. Rows.Count, “H„). Estremità (xlUp). Fila
    Per i = lastrow 4 a punto -1
        Se UCase (. Cellule (i, 8)) = “POSIZIONE LIBERA„ allora. File (i).EntireRow.Delete
        Se andato (. Cellule (i, 11), 6) = “115528„ allora. File (i).EntireRow.Delete
        Se andato (. Cellule (i, 11), 6) = “124957„ allora. File (i).EntireRow.Delete
    Dopo i
Estremità con

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us