ben zojuist nog eens aan het kijken geweest omdat ik van de week zelf tegen iets vergelijkbaars aan liep:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub searchsheet()
'Opens box and ask what do they want to search
searchthis = InputBox("Type in a location keyword.", "Property Search")
'Tells where to search and cleans previous runs
Columns("A:A").Select
Selection.Interior.ColorIndex = xlNone
'and then search in them whatever the user entered:
Selection.Find(What:=searchthis, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext).Activate
Application.ReplaceFormat.Interior.ColorIndex = 3
Selection.Replace What:=searchthis, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Cells.FindNext(After:=ActiveCell).Activate
'if found go to first found
'if not found show message box saying it cannot be found
End Sub |
als je deze macro uitvoert krijg je een searchbox waarin je de zoeksleutel (in jou geval het ip) in kunt voeren. Ik ga er vanuit dat het IP in kolom A staat overigens, eventueel aan te passen in " Columns("A:A").Select". Als je op search klikt selecteert hij eerst de kolom en gooit alle reeds bestaande achtergrondkleuren weg (om er voor te zorgen dat alleen de ip's van de huidige zoekactie verkleuren). Vervolgens geeft hij alle cellen waarin hij de waarde tegenkomt de kleur rood (Application.ReplaceFormat.Interior.ColorIndex = 3)
je krijgt alleen wel een foutmelding op het moment dat er geen resultaten zijn, maar dat vond ik niet echt de moeite waard op om te lossen
[
Voor 8% gewijzigd door
Rupie op 02-04-2010 10:02
]