Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
three line program...
Hi all...
why would this fail? Sheets("Sheet1").Select Range("A1").Select Result = Cells.Find("12345") '<-error Runtime Error 91: Object variable or With block variable not set. Many thanks! Mike |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
three line program...
Find returns a range object. So you have to "Set" your variable = to that
range. Sub test() Dim Result As Range Set Result = Sheet1.Cells.Find("1234") If Not Result Is Nothing Then MsgBox Result.Value & vbTab & Result.Address End Sub HTH "rci" wrote: Hi all... why would this fail? Sheets("Sheet1").Select Range("A1").Select Result = Cells.Find("12345") '<-error Runtime Error 91: Object variable or With block variable not set. Many thanks! Mike |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
three line program...
One reason is that you're assigning the default property (.Value) of the
range returned by the Cells.Find() method to Result. If Cells.Find() doesn't find a cell with the target "12345", then there's no object to get the property from. Hence the Object Variable not set error... A second possibility is that if you run this from a button in XL97, you need to make sure the button's Take Focus on Click property is set to false. Better: Dim rFound As Range Dim Result As Variant Set rFound = Sheets("Sheet1").Cells.Find("12345") If Not rFound Is Nothing Then Result = rFound.Value Else MsgBox "Not Found" End If Note that you don't have to select anything. In article , rci wrote: Hi all... why would this fail? Sheets("Sheet1").Select Range("A1").Select Result = Cells.Find("12345") '<-error Runtime Error 91: Object variable or With block variable not set. Many thanks! Mike |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
three line program...
Find returns a Range object, so you need to use the Set
statement. You might try declaring it first also. its usually better to do early binding. Dim Result as Range Sheets("Sheet1").Select Range("A1").Select Set Result = Cells.Find("12345") -----Original Message----- Hi all... why would this fail? Sheets("Sheet1").Select Range("A1").Select Result = Cells.Find("12345") '<-error Runtime Error 91: Object variable or With block variable not set. Many thanks! Mike . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
In Excel program shows a broken line and don't know how to get ri. | Excel Discussion (Misc queries) | |||
Program line when charting variances? | Charts and Charting in Excel | |||
Is there a program in office to create a line graph? | Excel Discussion (Misc queries) | |||
starting an external program with a command line | Excel Programming | |||
starting an external program with a command line | Excel Programming |