Okręt podwodny x ()
Ciemnawy rFind Pasmo, sFind, s Sznurek
line1:
sFind = Application.InputBox ("Wchodzić Do prętowy kod", 2)
Jeżeli sFind = Fałszywy Wtedy Wychodzić Okręt podwodny
Z Sheet1.Range ("E2", Sheet1.Range ("E2"). Końcówka (xlDown))
Ustalony rFind =. Znalezisko (Co: =sFind, LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
Jeżeli rFind Być RFind Wtedy
s = MsgBox ("ID exist- próba znowu? ", vbYesNo)
Jeżeli s = vbNo Wtedy Wychodzić Okręt podwodny
Inny
Jeżeli UCase (rFind.Offset (, 1)) = "TAK" Wtedy
MsgBox "Używać poprzednio"
Beep
Inny
rFind.Offset (, 1) = "TAK"
MsgBox "MSGBOX"
Kończyć Jeżeli
Kończyć Jeżeli
Kończyć Z
Rozpoczynający line1
Końcówka Okręt podwodny
|