Hopefully a real easy vba question
The line with activecell.formula is not correct. What I'm trying to do is to
add up the time for person 1-16 on the total page if the date isn't a holiday. Sub TotalThemUp() Dim i As Long Dim j As Long Range("startpoint").Select Range("B11:AF22").ClearContents For i = 1 To 12 For j = 1 To 31 If ActiveCell.Offset(i, j) < "H" Then ActiveCell.Formula&"R"&i&"C"&j = "=sum(Person1:Person16!)"&"R"&i&"C"&j End If Next j Next i End Sub |
Hopefully a real easy vba question
I believe you are wanting multiple formulas as an output in the range of
B11:AF22? Corrected syntax: Sub TotalThemUp() Dim i As Long Dim j As Long Range("startpoint").Select Range("B11:AF22").ClearContents For i = 0 To 11 For j = 0 To 30 If ActiveCell.Offset(i, j) < "H" Then ActiveCell.Offset(i, j).FormulaR1C1 = _ "=sum(Person1:Person16!R" & i & "C" & j & ")" End If Next j Next i End Sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "Brad" wrote: The line with activecell.formula is not correct. What I'm trying to do is to add up the time for person 1-16 on the total page if the date isn't a holiday. Sub TotalThemUp() Dim i As Long Dim j As Long Range("startpoint").Select Range("B11:AF22").ClearContents For i = 1 To 12 For j = 1 To 31 If ActiveCell.Offset(i, j) < "H" Then ActiveCell.Formula&"R"&i&"C"&j = "=sum(Person1:Person16!)"&"R"&i&"C"&j End If Next j Next i End Sub |
Hopefully a real easy vba question
Thanks - so close
Thanks for providing an example on the format to use. Made the necessary adjustment and got what I needed.... Thanks again!! "Luke M" wrote: I believe you are wanting multiple formulas as an output in the range of B11:AF22? Corrected syntax: Sub TotalThemUp() Dim i As Long Dim j As Long Range("startpoint").Select Range("B11:AF22").ClearContents For i = 0 To 11 For j = 0 To 30 If ActiveCell.Offset(i, j) < "H" Then ActiveCell.Offset(i, j).FormulaR1C1 = _ "=sum(Person1:Person16!R" & i & "C" & j & ")" End If Next j Next i End Sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "Brad" wrote: The line with activecell.formula is not correct. What I'm trying to do is to add up the time for person 1-16 on the total page if the date isn't a holiday. Sub TotalThemUp() Dim i As Long Dim j As Long Range("startpoint").Select Range("B11:AF22").ClearContents For i = 1 To 12 For j = 1 To 31 If ActiveCell.Offset(i, j) < "H" Then ActiveCell.Formula&"R"&i&"C"&j = "=sum(Person1:Person16!)"&"R"&i&"C"&j End If Next j Next i End Sub |
All times are GMT +1. The time now is 09:17 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com