Sub SearchAllSheets ()
Schemerige ws als Aantekenvel
Schemerige rg als Waaier
Schemerige FindText als Koord
FindText = Application.InputBox („te gaan gelieve het adres of de genoemde waaier in u wilt vinden“)
Voor Elke ws in ActiveWorkbook.Worksheets
Reeks rg = niets
Reeks rg = Find_Range (FindText, ws. Valse cellen, xlFormulas, xlPart,)
Als niet rg dan niets is
ws. Activeer
rg. Selecteer
Beëindig als
Daarna
Sub van het eind
'Find_Range door het Bloed dat van Aaron wordt geschreven
Functie Find_Range (Find_Item als Variant, _
Search_Range als Waaier, _
Facultatieve LookIn als XlFindLookIn = xlValues, _
Facultatieve LookAt als XlLookAt = xlPart, _
Facultatieve MatchCase zoals Van Boole = Vals) als Waaier
Schemerig c als Waaier, FirstAddress als Koord
Met Search_Range
Vastgesteld c =. Vind (_
Wat: =Find_Item, _
LookIn: =LookIn, _
LookAt: =LookAt, _
SearchOrder: =xlByRows, _
SearchDirection: =xlNext, _
MatchCase: =MatchCase, _
SearchFormat: =False) 'Schrapping deze termijn voor XL2000 en vroeger
Als niet c dan niets is
Vastgestelde Find_Range = c
FirstAddress = c.Address
Plaats Find_Range = Unie (Find_Range, c)
Plaats c = .FindNext (c)
Lijn terwijl niet c niets en c.Address FirstAddress <> is
Eind als
Eind met
De Functie van het eind
|