Pytanie : Dlaczego ten kod potrzebować rebooting?

I dołączać kawałek kod który pracować, szczególnie gdy I kroczyć ono przez swój sekwencja.  , Gdy I naciskać the bieg guzik, ono kontynuować dla zatrzymywać więcej linia, then zatrzymywać.  Jak Tylko I ręcznie zaczynać ono, the kod kontynuować dla ręcznie więcej linia samodzielnie.  Ono wprawiać w zakłopotanie jeśli chodzi dlaczego ono właśnie zatrzymywać.  Tak, the With Sheets móc łączyć, ale swój opóźniony i I właśnie opuszczać ono być.  , I myśleć który powodować the misfire.

Would i mieć odpowiedź?

Cook 
(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 Wyraźny

Okręt podwodny DelUnNeeded ()
Ciemnawy rng Jako Pasmo, lPos Pasmo
Ciemnawy celle Jako Pasmo, wks Jako Worksheet
Ciemnawy i Długo, FinalRow Pasmo
Ciemnawy c Długo


Z Prześcieradło ("PIDs")
    Ustalony rng = Pasmo (. Komórka (4, "H"). Komórka (. Rows.Count, "H"). Końcówka (xlUp))
Końcówka Z

i = 4
Na Błąd Życiorys Następnie
Z Prześcieradło ("PIDs")
     Dla Rng celle W rng
           Jeżeli Komórka (i, 8) = "PUSTY POZYCJA" Wtedy Wiosłować (i). Deleatur
            Ustalony lPos = Komórka (i, 11)
           Jeżeli Opuszczać (lPos, 11) = "115528" Wtedy Wiosłować (i). Deleatur
           Jeżeli Opuszczać (lPos, 11) = "124957" Wtedy Wiosłować (i). Deleatur
        i = i + (1)
    Następnie
 Końcówka Z

Końcówka Okręt podwodny

Odpowiedź : Dlaczego ten kod potrzebować rebooting?

Oops I brakować the oczywisty błąd - widzieć oczywisty:

Jeżeli Opuszczać (. Komórka (i, 11), 11) = "115528" Wtedy. Wiosłować (i) .EntireRow.Delete
Jeżeli Opuszczać (. Komórka (i, 11), 11) = "124957" Wtedy. Wiosłować (i) .EntireRow.Delete

musieć:

Jeżeli Opuszczać (. Komórka (i, 11), 6) = "115528" Wtedy. Wiosłować (i) .EntireRow.Delete
Jeżeli Opuszczać (. Komórka (i, 11), 6) = "124957" Wtedy. Wiosłować (i) .EntireRow.Delete
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Okręt podwodny DelUnNeeded ()
Ciemnawy FinalRow Równie Długo, i Długo, lPos Długo

Z Prześcieradło ("PIDs")
    FinalRow =. Komórka (. Rows.Count, "H"). Końcówka (xlUp). Rząd
    Dla i = lastrow 4 Krok -1
        Jeżeli UCase (. Komórka (i, 8)) = "PUSTY POZYCJA" Wtedy. Wiosłować (i) .EntireRow.Delete
        Jeżeli Opuszczać (. Komórka (i, 11), 6) = "115528" Wtedy. Wiosłować (i) .EntireRow.Delete
        Jeżeli Opuszczać (. Komórka (i, 11), 6) = "124957" Wtedy. Wiosłować (i) .EntireRow.Delete
    Następnie i
Końcówka Z

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us