Bill,

Are you still out there?
Do you still want help?



--
steveB

Remove "AYN" from email to respond
"STEVE BELL" wrote in message
news:LwxGe.911$Bx5.443@trnddc09...
Bill,

Sounds fair to me:


Sorry for the delay - went to the fair...

--
steveB

Remove "AYN" from email to respond
"Bill" wrote in message
...
Steve

I thought I might ask you for a little more assistance. You last help was
superb and the code was so clean and worked flawlessly. This is very
difficult and may require much time so I understand if you want to pass.
I
am working on it. Here is a what needs to occur if you decide to help
with
this difficult WorksheetFunction.VLookup function. I can send you my
worksheet if you want to look at it.

I have the target date in range("$A$4). Row B3 starts off with 1 (first
day
of month) and continues for three months (B3 = 1, C3 = 2, D3 =3, E3 = $
and
so on).
I need the following to occur. When the date in A4 changes I need code
that
will scan the range from B3 to the column's end. Example endCol =
Cells(3,
Columns.Count).End (xlToLeft) .Column 'tells me the number of days

Then for each row add the date in A4 plus the number in row 3 of column
minus one. Example Datef = $A$4 + G$3 - 1 'gives me the actual date for
this row. Then I need it to lookup that date in the range(j1:k20) on
another
sheet("data").

Range("Row = 10, ??-Depends on column") =
WorksheetFunction.VLookup(Datef,
rng, 2, False)

I need the result for column k enter into an array and placed in that
column
starting in row 10.

Example if the results from column k is retire then row 10 = "r", row 11
=
"e", row 12 = "t", row 13 = "I", row 15 = "r", row 16 = "e".

As an overall example

If..

A4 = 1 Jun 05 then the value in K3 would be ten
K3 = 10 Jun 05 ' determined using $A$4 + K$3 - 1

Then on Sheet("Data")

The vlookup matches value from K3 to J7, H7 value equals "G3 Retire".

The resulting value is as follows

K10= G
K11= 3
K12=
K13= R
K14= e
K15= t
K16= i
K17= r
K18 = e

Thanks either way for all your help.
Bill