Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
formula not showing up
I ask a question about this code earlier and that question was answered. Now
I have a new one: Why doesn't the formula autofill? Here is the code: Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").Select Selection.Copy Range("H4:H" & LastCell).Select Selection.AutoFill Destination:=Range("H4:H" & LastCell), Type:=xlFillDefault Thanks, Nicole |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
formula not showing up
all i ever use is:
range("H4") . autofill range("h4:h" & LastCell) -- Gary "Nicole Seibert" wrote in message ... I ask a question about this code earlier and that question was answered. Now I have a new one: Why doesn't the formula autofill? Here is the code: Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").Select Selection.Copy Range("H4:H" & LastCell).Select Selection.AutoFill Destination:=Range("H4:H" & LastCell), Type:=xlFillDefault Thanks, Nicole |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
formula not showing up
sorry, there was an inadvertent space in the original reply
Range("H4").AutoFill Range("h4:h" & LastCell) -- Gary "Nicole Seibert" wrote in message ... I ask a question about this code earlier and that question was answered. Now I have a new one: Why doesn't the formula autofill? Here is the code: Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").Select Selection.Copy Range("H4:H" & LastCell).Select Selection.AutoFill Destination:=Range("H4:H" & LastCell), Type:=xlFillDefault Thanks, Nicole |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
formula not showing up
Sub abc()
Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Selection.AutoFill Destination:=Range("H2:H" & LastCell), Type:=xlFillDefault End Sub worked for me. -- Regards, Tom Ogilvy "Nicole Seibert" wrote: I ask a question about this code earlier and that question was answered. Now I have a new one: Why doesn't the formula autofill? Here is the code: Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").Select Selection.Copy Range("H4:H" & LastCell).Select Selection.AutoFill Destination:=Range("H4:H" & LastCell), Type:=xlFillDefault Thanks, Nicole |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
formula not showing up
I think I am in love with Tom... mentally of course.
"Tom Ogilvy" wrote: Sub abc() Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Selection.AutoFill Destination:=Range("H2:H" & LastCell), Type:=xlFillDefault End Sub worked for me. -- Regards, Tom Ogilvy "Nicole Seibert" wrote: I ask a question about this code earlier and that question was answered. Now I have a new one: Why doesn't the formula autofill? Here is the code: Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").Select Selection.Copy Range("H4:H" & LastCell).Select Selection.AutoFill Destination:=Range("H4:H" & LastCell), Type:=xlFillDefault Thanks, Nicole |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
formula not showing up
this is all you need
Sub test() Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").AutoFill Range("H2:H" & LastCell) End Sub -- Gary "Nicole Seibert" wrote in message ... I think I am in love with Tom... mentally of course. "Tom Ogilvy" wrote: Sub abc() Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Selection.AutoFill Destination:=Range("H2:H" & LastCell), Type:=xlFillDefault End Sub worked for me. -- Regards, Tom Ogilvy "Nicole Seibert" wrote: I ask a question about this code earlier and that question was answered. Now I have a new one: Why doesn't the formula autofill? Here is the code: Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKAAN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").Select Selection.Copy Range("H4:H" & LastCell).Select Selection.AutoFill Destination:=Range("H4:H" & LastCell), Type:=xlFillDefault Thanks, Nicole |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
formula not showing up
Actually all she needs is
Sub test() Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2:H" & LastCell).FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" End Sub -- Regards, Tom Ogilvy "Gary Keramidas" <GKeramidasATmsn.com wrote in message ... this is all you need Sub test() Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").AutoFill Range("H2:H" & LastCell) End Sub -- Gary "Nicole Seibert" wrote in message ... I think I am in love with Tom... mentally of course. "Tom Ogilvy" wrote: Sub abc() Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Selection.AutoFill Destination:=Range("H2:H" & LastCell), Type:=xlFillDefault End Sub worked for me. -- Regards, Tom Ogilvy "Nicole Seibert" wrote: I ask a question about this code earlier and that question was answered. Now I have a new one: Why doesn't the formula autofill? Here is the code: Dim LastCell As Long LastCell = Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row Range("H2").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H3").Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(COUNTIF(RC[1],{""*MILLERSTEVENM*"",""*PISCOPOGINA*"",""*LASKA AN THO*"",""*NELSONBECKY*""})*{1,2,3,4})" Range("H2:H3").Select Selection.Copy Range("H4:H" & LastCell).Select Selection.AutoFill Destination:=Range("H4:H" & LastCell), Type:=xlFillDefault Thanks, Nicole |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
formula showing in cell rather than answer for formula | New Users to Excel | |||
FORMULA SHOWING AS #### | Excel Worksheet Functions | |||
How to fix my spreadsheet from showing formula to showing answer | Excel Discussion (Misc queries) | |||
How to fix my spreadsheet from showing formula to showing answer | Excel Discussion (Misc queries) | |||
Sum Formula Showing Instead of Value :( | Excel Discussion (Misc queries) |