Sub x ()
Dunkel rFind som spänner, sFind, s som stränger
line1:
sFind = Application.InputBox (”skriv in bommar för kodifierar”, 2),
Om sFind = falskt går ut därefter suben
Med Sheet1.Range (”E2”, Sheet1.Range (”E2”). Avsluta (xlDown))
Fastställd rFind =. Fynd (vad: =sFind LookAt: =xlWhole MatchCase: =False SearchFormat: =False)
Om rFind är ingenting därefter
s = MsgBox (”LEGITIMATIONEN inte finns försök igen? ” vbYesNo)
Om s = vbNoen går ut därefter suben
Annars
Om UCase (rFind.Offset (, 1)) = ”JA” därefter
MsgBox ”som föregående används”,
Att sända ut en tonsignal
Annars
rFind.Offset (, 1) = ”JA”,
”REKO” MsgBox,
Avsluta om
Avsluta om
Avsluta med
GoTo line1
Avsluta suben
|