About Us

Scott

i got it, thanks.

"Jim Thomlinson" wrote in message
...
First thing off the top of my pointy little head is that you are not using
set for celloffset... That being said try this instead...

Dim cell As Range, sDateRange As Date

Set cell = FindCell("myword", Sheets(1).Cells).Offset(0, 2)
sDateRange = Right(cell.value, 2) & "/" & (Left(cell.Value, Len(cell) -
2))

Or something like that...

HTH
"scott" wrote:

I have a cell A3 that contains the date like "200412" that my code finds
with the OFFSET command. In "CODE 1" below, sDateRange returns
"12/1/2004"
as it should. However, "CODE 2" gives me an error if I try to set the
cellOffset variable to the OFFSET cell. I'm just trying to shorten my
code.
Is it the data type that's causing a problem?

CODE 1 (Works):
Dim cell As Range, sDateRange As Date

Set cell = FindCell("myword", Sheets(1).Cells)
sDateRange = Right(cell.Offset(0, 2).Value, 2) & "/" &
(Left(cell.Offset(0,
2).Value, Len(cell.Offset(0, 2).Value) - 2))

CODE 2 (Doesn't Work):

Dim cell As Range, cellOffset As Range, sDateRange As Date

Set cell = FindCell("myword", Sheets(1).Cells)
cellOffset = cell.Offset(0, 2).Value
sDateRange = Right(cellOffset, 2) & "/" & (Left(cell.Offset(0, 2).Value,
Len(cellOffset) - 2))

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Setting variable = to sheet name	Jeff Armstrong	Excel Programming	2	July 26th 04 08:57 PM
VBA Setting .Value to a date does not respect local system setting	Frank_Hamersley	Excel Programming	13	July 18th 04 02:51 PM
setting a range variable equal to the value of a string variable	Pilgrim	Excel Programming	2	July 1st 04 11:32 PM
Setting range value to a variable	Todd	Excel Programming	4	June 2nd 04 04:51 PM
Trouble setting variable as filename with date	Elby	Excel Programming	2	February 21st 04 03:05 PM

Menu

About Us