Stopping errors when a find statement doesn't find!
 

Hi there,
I have the following code that assumes the value it is looking for is
always present:


Code:
--------------------

Range(Columns("A:A").Find("Unplanned Prospects").Offset(0, 0), _
Columns("A:A").Find("Unplanned Prospects Total").Offset(0, 14)).Select
Selection.borders(xlDiagonalDown).LineStyle = xlNone
Selection.borders(xlDiagonalUp).LineStyle = xlNone
Code:
--------------------


i've just run this and it couldn't find "Unplanned Prospects" so it returned an error.
how can I get around this?

thanks in advance,
Matt


--
matpj
------------------------------------------------------------------------
matpj's Profile: http://www.excelforum.com/member.php...o&userid=21076
View this thread: http://www.excelforum.com/showthread...hreadid=504857

Stopping errors when a find statement doesn't find!
 

Hi Matt

See if this makes sense:

Sub test()
Dim Found As Range
On Error Resume Next
Set Found = Columns("A:A").Find("Unplanned Prospects")
If Found Is Nothing Then
MsgBox "No such thing"
Else
MsgBox Found.Address
End If
End Sub


HTH. Best wishes Harald

"matpj" skrev i melding
...

Hi there,
I have the following code that assumes the value it is looking for is
always present:


Code:
--------------------

Range(Columns("A:A").Find("Unplanned Prospects").Offset(0, 0), _
Columns("A:A").Find("Unplanned Prospects Total").Offset(0, 14)).Select
Selection.borders(xlDiagonalDown).LineStyle = xlNone
Selection.borders(xlDiagonalUp).LineStyle = xlNone
Code:
--------------------


i've just run this and it couldn't find "Unplanned Prospects" so it
returned an error.
how can I get around this?

thanks in advance,
Matt


--
matpj
------------------------------------------------------------------------
matpj's Profile:
http://www.excelforum.com/member.php...o&userid=21076
View this thread: http://www.excelforum.com/showthread...hreadid=504857

Stopping errors when a find statement doesn't find!
 

Dim rng as Range
set rng = Columns("A:A").Find("Unplanned Prospects")
if not rng is nothing then
With rng.Resize(1,15)
.borders(xlDiagonalDown).LineStyle = xlNone
.borders(xlDiagonalUp).LineStyle = xlNone
end With
Else
msgbox "Not found"
End If

--
Regards,
Tom Ogilvy


"matpj" wrote in
message ...

Hi there,
I have the following code that assumes the value it is looking for is
always present:


Code:
--------------------

Range(Columns("A:A").Find("Unplanned Prospects").Offset(0, 0), _
Columns("A:A").Find("Unplanned Prospects Total").Offset(0, 14)).Select
Selection.borders(xlDiagonalDown).LineStyle = xlNone
Selection.borders(xlDiagonalUp).LineStyle = xlNone
Code:
--------------------


i've just run this and it couldn't find "Unplanned Prospects" so it
returned an error.
how can I get around this?

thanks in advance,
Matt


--
matpj
------------------------------------------------------------------------
matpj's Profile:
http://www.excelforum.com/member.php...o&userid=21076
View this thread: http://www.excelforum.com/showthread...hreadid=504857

Stopping errors when a find statement doesn't find!
 

thanks guys, thats great.

I have it working now!! :)


--
matpj
------------------------------------------------------------------------
matpj's Profile: http://www.excelforum.com/member.php...o&userid=21076
View this thread: http://www.excelforum.com/showthread...hreadid=504857