Pytanie : Przodować rewizja macro prętowy kod szukać rezultat w worksheet, zaczynać

Cześć, I używać przodować worksheet ściąganie od nasz strona internetowa bilet dla wydarzenie.  The bilet mieć prętowy kod drukować na.  I używać prętowy kod czytelnik the bilet dla the bilet id, szukać the worksheet the bilet id móc znajdować i także i ono już używać.  Obecnie to z the Znalezisko cecha i wtedy the bilet id jeżeli ono znajdować.  I polubić łatwy metoda this.

So, I potrzebować pomoc z macro the worksheet dla bilet id, potwierdzać the id istnieć i ono ono używać już.   Jeżeli ono używać, wracać dosłyszalny beep i pokaz "poprzednio", jeśli nie już używać, pokaz "OK", zaznaczać the następny kolumna na the ten sam rząd z Tak (dla the pierwszy część the macro), powrót rewizja podpowiedź dla prętowy kod wejście ono prętowy znowu.  I być otwarty dołączać który osiągać the ten sam podstawowy concept.

I dołączać część próbka bilet file.
SampleTixFile.xls (58 KB) (Kartoteka Typ Szczegół)
Sample bilet kartoteka downlod

Odpowiedź : Przodować rewizja macro prętowy kod szukać rezultat w worksheet, zaczynać

Dawać kłębowisko kłębowisko.
(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:
27:

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
Inne rozwiązania  
 
programming4us programming4us