Posted to microsoft.public.excel.programming

Reinhold Klein Reinhold Klein is offline

external usenet poster

Posts: 1

Runtime error 91

Jim Rech wrote:

Sub Test()
Dim FoundCell As Range
On Error Resume Next
Set FoundCell = Range("B:B").Find(Range("D1").Value)
If Not FoundCell Is Nothing Then
FoundCell.Offset(0, 1).Copy Range("F1")
End If
End Sub

Thanks

it's easy but it's works

Reiner

Reply With Quote

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

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
xpath error? Runtime Error 13 type mismatch	Steve M[_2_]	Excel Discussion (Misc queries)	0	January 17th 08 01:16 AM
xpath error? Runtime Error 13 type mismatch	SteveM	Excel Discussion (Misc queries)	1	December 4th 07 09:16 AM
Runtime error '1004' General ODBC error	star_lucas	New Users to Excel	0	August 29th 05 04:09 PM
Excel 2003 Macro Error - Runtime error 1004	Cow	Excel Discussion (Misc queries)	2	June 7th 05 01:40 PM
Syntax Error Runtime Error '424' Object Required	sjenks183	Excel Programming	1	January 23rd 04 09:25 AM

All times are GMT +1. The time now is 04:18 AM.

About Us

"It's about Microsoft Excel"

Menu

About Us