Fråga : Why detta kodifierar behovsomstart?

Jag har fäst en lappa av kodifierar som fungerar, som speciellt jag kliver den till och med dess, ordna.  Emellertid när I-pressen som körningen knäppas, den ska fortsätter för att fungera för några fodrar mer, då stoppet.  När jag startar manuellt den, den ska kodifiera fortsätter för att fungera för några fodrar mer på dess eget.  Den är confusing om varför den ska precis stoppet.  Ja Withen Sheets kunde kombineras, men dess sent och I lämnade precis den, som är.  Emellertid jag skulle inte funderare som skulle orsakar misfire.
Would som, någon har ett svar?

Cook > för 
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:
" codeBody " " >Option för class= " för
" klar "

Svar : Why detta kodifierar behovsomstart?

Oops I missa det tydliga felet - se nedanfört:

Om lämnat (. Celler (I, 11), 11) = ”115528” därefter. Ror (I) .EntireRow.Delete
Om lämnat (. Celler (I, 11), 11) = ”124957” därefter. Ror (I) .EntireRow.Delete

bör ha varit:

Om lämnat (. Celler (I, 11), 6) = ”115528” därefter. Ror (I) .EntireRow.Delete
Om lämnat (. Celler (I, 11), 6) = ”124957” därefter. Ror (I) .EntireRow.Delete
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

UnderDelUnNeeded ()
Dunkla FinalRow så Long, I som Long, lPos som Long

Med täcker (”PIDs”)
    FinalRow =. Celler (. Rows.Count, ”H”). Avsluta (xlUp). Ro
    För I = lastrow till 4 kliver -1
        Om UCase (. Celler (I, 8)) = ”VAKANT PLACERA” därefter. Ror (I) .EntireRow.Delete
        Om lämnat (. Celler (I, 11), 6) = ”115528” därefter. Ror (I) .EntireRow.Delete
        Om lämnat (. Celler (I, 11), 6) = ”124957” därefter. Ror (I) .EntireRow.Delete
    Därefter i
Avsluta med

Avsluta suben
Andra lösningar  
 
programming4us programming4us