Cells.Replace need to keep track of result
Hello all,
Quick question. I need to keep track of whether or not the Cells.Replace is
successful in finding and replacing. I've created a Boolean variable
(isfound) and set it to the Cells.Replace and an integer (found_count) for
the counter but it (isfound) keeps returning 'True' even though the
'What:=lookup_val' I know didn't find anything.
Secondly I need to take the found_count and display this value using a
dialogue box. Is this possible if so can anyone provide an example.
code snip (xl2k):
Dim found_count As Integer
Dim isfound As Boolean
isfound = repl_wks.Cells.Replace(What:=lookup_val, Replacement:=repl_val,
LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False)
If isfound = True Then
found_count = found_count + 1
End If
Thanks,
Sriram
|