Gil
12-05-2011, 09:31 PM
Hello
I use the following code sucessfully but on the odd occasion when the item is not found the code stops. Is there an easy add on to make it step on through the code. A message in E3 might be nice but not essential If there is I havn't been able to work it out. Any help would be appreciated.
Many thanks for all your continued support
Gil
Only part is shown
Dim c As Range
Set c = Range("H1:H1000").Find(What:="1/", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
c.Copy Range("E3")
I use the following code sucessfully but on the odd occasion when the item is not found the code stops. Is there an easy add on to make it step on through the code. A message in E3 might be nice but not essential If there is I havn't been able to work it out. Any help would be appreciated.
Many thanks for all your continued support
Gil
Only part is shown
Dim c As Range
Set c = Range("H1:H1000").Find(What:="1/", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
c.Copy Range("E3")