SearchAllSheets secundario ()
WS dévil como hoja de trabajo
Rg dévil como gama
FindText dévil como secuencia
FindText = Application.InputBox (“incorporar por favor la dirección o la gama nombrada que usted quiere encontrar”)
Para cada WS en ActiveWorkbook.Worksheets
Fijar el rg = nada
Fijar el rg = Find_Range (FindText, WS. Células, xlFormulas, xlPart, falsos)
Si no el rg entonces no es nada
WS. Activar
rg. Selecto
Terminar si
Después
Submarino del extremo
'Find_Range escrito por Aaron Blood
Función Find_Range (Find_Item como variante, _
Search_Range como gama, _
LookIn opcional como XlFindLookIn = xlValues, _
LookAt opcional como XlLookAt = xlPart, _
MatchCase opcional como boleano = falso) como gama
C dévil como gama, FirstAddress como secuencia
Con Search_Range
Fijar c =. Encontrar (_
Qué: =Find_Item, _
LookIn: =LookIn, _
LookAt: =LookAt, _
SearchOrder: =xlByRows, _
SearchDirection: =xlNext, _
MatchCase: =MatchCase, _
SearchFormat: cancelación del =False) 'este término para XL2000 y anterior
Si no c entonces no es nada
Fijar Find_Range = c
FirstAddress = c.Address
Hacer
Fijar Find_Range = la unión (Find_Range, c)
Fijar c = .FindNext (c)
Colocar mientras que no c no es nada y c.Address <> FirstAddress
Terminar si
Terminar con
Terminar la función
|