If cell value = one of 3 possible words, then perform this task based on its row

[ks100]

In plain English I need to do the following:

1. Scan each cell in the A column.

2. For each cell that has the text ALPHA or BRAVO or CHARLIE, perform the following function:

dim catname as string
catname = B & the row number that (alpha, bravo or charlie) was found in.

dim currentrow as string
currentrow = (the row that alpha, bravo or charlie) was found in)

Then, search the following range for a date at least 7 days from today: H(currentrow):AW(currentrow)

For each cell found in this range with a date at least 7 days from today:

dim currentcolumn as string
currentcolumn = (the column of the date its currently stopped on)

dim taskname as string
taskname = the value of the cell in (currentcolumn) & row 4

call makeappointment

Then continue searching the H to AW range for that date criteria and performing the same task.

When it gets to the end of the range, finding no other dates that are 7 days or more in the future, continue to step 3

3. Continue scanning the A column for ALPHA, BRAVO, or CHARLIE repeating the above script each time if it finds one of those names.

[JOHN H. DAVIS]

Untested try on a copy first.

Please Login or Register  to view this content.