Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
look up formula
I have the following code which enters the formula
=IF(F21="","",IF(ISNA(MATCH(F21,Densities!O:O,0)), "",INDEX(Densities!O:P,MATCH(F21,Densities!O:O,0), 2))) into the cells, I need the code to perform the the calculation insted of putting it in to the cells. Range("H21").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault Range("H21:H39").Select Range("H21").Select |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
look up formula
With Range("H21")
FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault .Value = .Value End With -- __________________________________ HTH Bob "Miree" wrote in message ... I have the following code which enters the formula =IF(F21="","",IF(ISNA(MATCH(F21,Densities!O:O,0)), "",INDEX(Densities!O:P,MATCH(F21,Densities!O:O,0), 2))) into the cells, I need the code to perform the the calculation insted of putting it in to the cells. Range("H21").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault Range("H21:H39").Select Range("H21").Select |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
look up formula
Sorry this doesnt work
"Bob Phillips" wrote: With Range("H21") FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault .Value = .Value End With -- __________________________________ HTH Bob "Miree" wrote in message ... I have the following code which enters the formula =IF(F21="","",IF(ISNA(MATCH(F21,Densities!O:O,0)), "",INDEX(Densities!O:P,MATCH(F21,Densities!O:O,0), 2))) into the cells, I need the code to perform the the calculation insted of putting it in to the cells. Range("H21").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault Range("H21:H39").Select Range("H21").Select |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
look up formula
Sorry I missed a bit
With Range("H21") .FormulaR1C1 = "=IF(RC[-2]="""",""""," & _ "IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),""""," & _ "INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" .AutoFill Destination:=.Resize(19), Type:=xlFillDefault .Resize(19).Value = .Resize(19).Value End With -- __________________________________ HTH Bob "Miree" wrote in message ... Sorry this doesnt work "Bob Phillips" wrote: With Range("H21") FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault .Value = .Value End With -- __________________________________ HTH Bob "Miree" wrote in message ... I have the following code which enters the formula =IF(F21="","",IF(ISNA(MATCH(F21,Densities!O:O,0)), "",INDEX(Densities!O:P,MATCH(F21,Densities!O:O,0), 2))) into the cells, I need the code to perform the the calculation insted of putting it in to the cells. Range("H21").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault Range("H21:H39").Select Range("H21").Select |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
look up formula
thanks worked perfectly
"Bob Phillips" wrote: Sorry I missed a bit With Range("H21") .FormulaR1C1 = "=IF(RC[-2]="""",""""," & _ "IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),""""," & _ "INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" .AutoFill Destination:=.Resize(19), Type:=xlFillDefault .Resize(19).Value = .Resize(19).Value End With -- __________________________________ HTH Bob "Miree" wrote in message ... Sorry this doesnt work "Bob Phillips" wrote: With Range("H21") FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault .Value = .Value End With -- __________________________________ HTH Bob "Miree" wrote in message ... I have the following code which enters the formula =IF(F21="","",IF(ISNA(MATCH(F21,Densities!O:O,0)), "",INDEX(Densities!O:P,MATCH(F21,Densities!O:O,0), 2))) into the cells, I need the code to perform the the calculation insted of putting it in to the cells. Range("H21").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-2]="""","""",IF(ISNA(MATCH(RC[-2],Densities!C[7],0)),"""",INDEX(Densities!C[7]:C[8],MATCH(RC[-2],Densities!C[7],0),2)))" Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault Range("H21:H39").Select Range("H21").Select |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Regression Leverage Formula (Jerry W. Lewis or Mike Middleton)already have DFITS formula | Excel Worksheet Functions | |||
copy formula down a column and have cell references change within formula | New Users to Excel | |||
Formula expected end of statement error, typing formula into cell as part of VBA macro | Excel Programming | |||
Excel 2002 formula displayed not value formula option not checked | Excel Worksheet Functions | |||
Commenting custom formula fields/formula on formula editor | Excel Programming |