Sub x ()
Schemerige rFind als Waaier, sFind, s als Koord
line1:
sFind = Application.InputBox („ga streepjescode“, 2) in
Als sFind = Vals dan Sub wegga
Met Sheet1.Range („E2“, Sheet1.Range („E2“). Eind (xlDown))
Reeks rFind =. Vind (wat: =sFind, LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
Als rFind dan niets is
s = MsgBox („identiteitskaart bestaat niet opnieuw de poging? “, vbYesNo)
Als s = vbNo dan Sub weggaat
Anders
Als UCase (rFind.Offset (, 1)) = „JA“ toen
„Eerder“ Gebruikte MsgBox
Pieper
Anders
rFind.Offset (, 1) = „JA“
„O.K.“ MsgBox
Eind als
Eind als
Eind met
GoTo line1
Sub van het eind
|