Sub x ()
Escurecer o rFind como a escala, sFind, s como a corda
line1:
sFind = Application.InputBox (“dar entrada ao código”, 2 da barra)
Se o sFind = falso retira então o submarino
Com Sheet1.Range (“E2”, Sheet1.Range (“E2”). Extremidade (xlDown))
Ajustar o rFind =. Encontrar (que: =sFind, LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
Se o rFind não é nada então
s = MsgBox (“identificação não existe a tentativa outra vez? ”, vbYesNo)
Se s = o vbNo retiram então o submarino
Mais
Se UCase (rFind.Offset (, 1)) = “SIM” então
MsgBox “usado previamente”
Sinal acústico
Mais
rFind.Offset (, 1) = “SIM”
MsgBox “APROVADO”
Terminar se
Terminar se
Terminar com
Line1 empreendedores
Submarino da extremidade
|