change a cell formula
sf1 =
"=IF(B$4="""","""",INDEX(WorkSheet!Sked_Cycle_Rang e,HLOOKUP(LEFT($A7,1),Work
Sheet!Which_Row,2,FALSE),WorkSheet!row_range,2,FAL SE),(MOD(B$4-WorkSheet!See
d_Date,WorkSheet!SEQ)+1)))"
sf2 =
"=IF(B$4="""","""",INDEX(WorkSheet!Sked_Cycle_Rang e,HLOOKUP(HLOOKUP(LEFT($A7
,1),
WorkSheet!Which_Row,2,FALSE)+MOD(4*(TRUNC((B$4-WorkSheet!Seed_Date)/WorkShee
t!SEQ)),7),WorkSheet!row_range,2,FALSE),(MOD(B$4-WorkSheet!Seed_Date,WorkShe
et!SEQ)+1)))"
or
With woksheets("worksheet")
sf1 = Trim(Range("A1").Value)
sf2 = Trim(Range("A2").Value)
with worksheets("Year")
if flag = 1 then
.Range("B9").FormulaArray = sf1
else
.Range('B9").FormulaArray = sf2
End If
End With
--
Regards,
Tom Ogilvy
JimP wrote in message
om...
To All,
I need a cell on a sheet named "YEAR" to alternate between 2 possible
array formulas (stored as TEXT on a sheet named "WorkSheet").
Could someone advise how to setup these 2 formulas properly as strings
AND then how to copy the 2 formula's to cell A1 on the sheet "YEAR"
???
=IF(B$4="","",INDEX(WorkSheet!Sked_Cycle_Range,HLO OKUP(LEFT($A7,1),WorkSheet
!Which_Row,2,FALSE),WorkSheet!row_range,2,FALSE),( MOD(B$4-WorkSheet!Seed_Dat
e,WorkSheet!SEQ)+1)))
and the 2nd:
=IF(B$4="","",INDEX(WorkSheet!Sked_Cycle_Range,HLO OKUP(HLOOKUP(LEFT($A7,1),
WorkSheet!Which_Row,2,FALSE)+MOD(4*(TRUNC((B$4-WorkSheet!Seed_Date)/WorkShee
t!SEQ)),7),WorkSheet!row_range,2,FALSE),(MOD(B$4-WorkSheet!Seed_Date,WorkShe
et!SEQ)+1)))
Any help wold be appreciated ...
Jim Pellechi
|