Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add formula to cells in a column through VB
I have created a form to enter data into a worksheet. Colum 'F' & Column 'H'
are formatted in custom h:mm. In column 'I', I want to put this formula " =SUM((F2+H2)*1440)/60" (I think.) for every record added through the form. Column 'I' is not on the form because columns F & H feed to it. The formula above adds the two times together and converts it to decimal, which is what I need. Thanks, Joel |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add formula to cells in a column through VB
Dim rng As Range
Set rng = Range(Range("F2"), Range("F2").End(xlDown)) Set rng = Intersect(rng.EntireRow, Range("T:T")) rng.FormulaR1C1 = "=SUM((RC6+RC8)*1440)/60" "Jase4now" wrote in message ... I have created a form to enter data into a worksheet. Colum 'F' & Column 'H' are formatted in custom h:mm. In column 'I', I want to put this formula " =SUM((F2+H2)*1440)/60" (I think.) for every record added through the form. Column 'I' is not on the form because columns F & H feed to it. The formula above adds the two times together and converts it to decimal, which is what I need. Thanks, Joel |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add formula to cells in a column through VB
This looks great, but I can't figure out where to put it.
"-" wrote: Dim rng As Range Set rng = Range(Range("F2"), Range("F2").End(xlDown)) Set rng = Intersect(rng.EntireRow, Range("T:T")) rng.FormulaR1C1 = "=SUM((RC6+RC8)*1440)/60" "Jase4now" wrote in message ... I have created a form to enter data into a worksheet. Colum 'F' & Column 'H' are formatted in custom h:mm. In column 'I', I want to put this formula " =SUM((F2+H2)*1440)/60" (I think.) for every record added through the form. Column 'I' is not on the form because columns F & H feed to it. The formula above adds the two times together and converts it to decimal, which is what I need. Thanks, Joel |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add formula to cells in a column through VB
It assumes you have already entered your data, so add it to the point after
that. To modify it for a row-by-row formula creation, modify the "rng" object, something like: Set rng = CellBeingUpdated Set rng = Intersect(rng.EntireRow, Range("T:T")) "Jase4now" wrote in message ... This looks great, but I can't figure out where to put it. "-" wrote: Dim rng As Range Set rng = Range(Range("F2"), Range("F2").End(xlDown)) Set rng = Intersect(rng.EntireRow, Range("T:T")) rng.FormulaR1C1 = "=SUM((RC6+RC8)*1440)/60" "Jase4now" wrote in message ... I have created a form to enter data into a worksheet. Colum 'F' & Column 'H' are formatted in custom h:mm. In column 'I', I want to put this formula " =SUM((F2+H2)*1440)/60" (I think.) for every record added through the form. Column 'I' is not on the form because columns F & H feed to it. The formula above adds the two times together and converts it to decimal, which is what I need. Thanks, Joel |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add formula to cells in a column through VB
Can I email you directly so I can send you screen prints or the file so you
can see first hand what I am trying to do? I don't understand all the choices of change, changeselection, activate... Joel "-" wrote: It assumes you have already entered your data, so add it to the point after that. To modify it for a row-by-row formula creation, modify the "rng" object, something like: Set rng = CellBeingUpdated Set rng = Intersect(rng.EntireRow, Range("T:T")) "Jase4now" wrote in message ... This looks great, but I can't figure out where to put it. "-" wrote: Dim rng As Range Set rng = Range(Range("F2"), Range("F2").End(xlDown)) Set rng = Intersect(rng.EntireRow, Range("T:T")) rng.FormulaR1C1 = "=SUM((RC6+RC8)*1440)/60" "Jase4now" wrote in message ... I have created a form to enter data into a worksheet. Colum 'F' & Column 'H' are formatted in custom h:mm. In column 'I', I want to put this formula " =SUM((F2+H2)*1440)/60" (I think.) for every record added through the form. Column 'I' is not on the form because columns F & H feed to it. The formula above adds the two times together and converts it to decimal, which is what I need. Thanks, Joel |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add formula to cells in a column through VB
How are F and H being updated?
"Jase4now" wrote in message ... Can I email you directly so I can send you screen prints or the file so you can see first hand what I am trying to do? I don't understand all the choices of change, changeselection, activate... Joel "-" wrote: It assumes you have already entered your data, so add it to the point after that. To modify it for a row-by-row formula creation, modify the "rng" object, something like: Set rng = CellBeingUpdated Set rng = Intersect(rng.EntireRow, Range("T:T")) "Jase4now" wrote in message ... This looks great, but I can't figure out where to put it. "-" wrote: Dim rng As Range Set rng = Range(Range("F2"), Range("F2").End(xlDown)) Set rng = Intersect(rng.EntireRow, Range("T:T")) rng.FormulaR1C1 = "=SUM((RC6+RC8)*1440)/60" "Jase4now" wrote in message ... I have created a form to enter data into a worksheet. Colum 'F' & Column 'H' are formatted in custom h:mm. In column 'I', I want to put this formula " =SUM((F2+H2)*1440)/60" (I think.) for every record added through the form. Column 'I' is not on the form because columns F & H feed to it. The formula above adds the two times together and converts it to decimal, which is what I need. Thanks, Joel |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add formula to cells in a column through VB
F & H are included in records added through a userform.
"-" wrote: How are F and H being updated? "Jase4now" wrote in message ... Can I email you directly so I can send you screen prints or the file so you can see first hand what I am trying to do? I don't understand all the choices of change, changeselection, activate... Joel "-" wrote: It assumes you have already entered your data, so add it to the point after that. To modify it for a row-by-row formula creation, modify the "rng" object, something like: Set rng = CellBeingUpdated Set rng = Intersect(rng.EntireRow, Range("T:T")) "Jase4now" wrote in message ... This looks great, but I can't figure out where to put it. "-" wrote: Dim rng As Range Set rng = Range(Range("F2"), Range("F2").End(xlDown)) Set rng = Intersect(rng.EntireRow, Range("T:T")) rng.FormulaR1C1 = "=SUM((RC6+RC8)*1440)/60" "Jase4now" wrote in message ... I have created a form to enter data into a worksheet. Colum 'F' & Column 'H' are formatted in custom h:mm. In column 'I', I want to put this formula " =SUM((F2+H2)*1440)/60" (I think.) for every record added through the form. Column 'I' is not on the form because columns F & H feed to it. The formula above adds the two times together and converts it to decimal, which is what I need. Thanks, Joel |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add formula to cells in a column through VB
Why can't you insert the new code into your F&J updating code?
However you set a reference to F, use that in place of the first row: Set rng = CellBeingUpdated '<- your cell in F. The remaining code will work. "Jase4now" wrote in message ... F & H are included in records added through a userform. "-" wrote: How are F and H being updated? "Jase4now" wrote in message ... Can I email you directly so I can send you screen prints or the file so you can see first hand what I am trying to do? I don't understand all the choices of change, changeselection, activate... Joel "-" wrote: It assumes you have already entered your data, so add it to the point after that. To modify it for a row-by-row formula creation, modify the "rng" object, something like: Set rng = CellBeingUpdated Set rng = Intersect(rng.EntireRow, Range("T:T")) "Jase4now" wrote in message ... This looks great, but I can't figure out where to put it. "-" wrote: Dim rng As Range Set rng = Range(Range("F2"), Range("F2").End(xlDown)) Set rng = Intersect(rng.EntireRow, Range("T:T")) rng.FormulaR1C1 = "=SUM((RC6+RC8)*1440)/60" "Jase4now" wrote in message ... I have created a form to enter data into a worksheet. Colum 'F' & Column 'H' are formatted in custom h:mm. In column 'I', I want to put this formula " =SUM((F2+H2)*1440)/60" (I think.) for every record added through the form. Column 'I' is not on the form because columns F & H feed to it. The formula above adds the two times together and converts it to decimal, which is what I need. Thanks, Joel |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Lock a formula to a column of cells | Excel Worksheet Functions | |||
Sum column of cells that already contain a formula | Excel Discussion (Misc queries) | |||
Copy formula to a column of cells | Excel Programming | |||
How to apply a formula to all cells in a column | Excel Worksheet Functions | |||
Need formula that will sum cells in a column bases on criteria in other cells. | Excel Worksheet Functions |