About Us

Kevin Porter

Thank you!!!!!

"Dave Peterson" wrote:

Drop the .column at the end of this line:

Set FoundCell = .Find(What:="Porter, Kevin", After:=.Cells(.Columns.Count), _
SearchOrder:=xlByRows).Column

Set FoundCell = .Find(What:="Porter, Kevin", After:=.Cells(.Columns.Count), _
SearchOrder:=xlByRows)

Kevin Porter wrote:

Thanks Dave.

I changed this to more closely do what I want.

If FoundCell Is Nothing Then
Exit Sub
Else
ColToFind = FoundCell.Column
End If

However, when I run the code I get this error:

Run-time error '91':
Object variable or With block not set

When I hit debug it highlights

Set FoundCell = .Find(What:="Porter, Kevin", After:=.Cells(.Columns.Count), _
SearchOrder:=xlByRows).Column

ANy ideas why?

"Dave Peterson" wrote:

Dim FoundCell as Range
dim ColToFind as long

With Workbooks("Workbookname.xls").Sheets("Total").Rows (1)
set foundcell = .Find(What:="What I am looking for", _
After:=.Cells(.Columns.Count), SearchOrder:=xlByRows)
end with

if foundcell is nothing then
Coltofind = 99999 'what do you want?
else
coltofind = foundcell.column
end if

Kevin Porter wrote:

Here is the code:

With Workbooks("Workbookname.xls").Sheets("Total").Rows (1)

ColToFind = .Find(What:="What I am looking for",
After:=.Cells(.Columns.Count), _
SearchOrder:=xlByRows).Column

End With

The problem is sometimes ColToFind is not going to be there. I need a way
to tell it that if ColToFind comes back null then do not continue the module.

--

Dave Peterson

--

Dave Peterson

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How can I test for nulls within a range without specifying each ce	Houston	Excel Discussion (Misc queries)	2	March 25th 10 05:50 PM
replace zeros with nulls	dharshanie	Excel Discussion (Misc queries)	4	March 31st 06 04:10 PM
replace zeros with nulls	dharshanie	Excel Discussion (Misc queries)	0	March 31st 06 02:03 PM
deaking with nulls, I think...	Jim May	Excel Programming	2	October 9th 05 06:43 PM
Excel has a "Find Next" command but no "Find Previous" command.	Michael Fitzpatrick	Excel Discussion (Misc queries)	2	January 10th 05 11:45 PM

Menu

About Us