Why does this not work
Can anyone modify this to work please I think it does not because of the
"" problem? Did try and do this at first using worksheet function but have up now just trying to paste the formula into the worksheet!!! rng = "B" & ofst + 4 rng2 = "B" & (ofst + 5) & ":HZ" & (ofst + 5) Range(rng).Formula = "=SumIf(B4:HZ4, " * QUAD * ",rng2)" Many Thanks Neil *** Sent via Developersdex http://www.developersdex.com *** |
Why does this not work
I don't know exactly what you want to accomplish, so maybe I solved the
wrong problem, but do you want something like this to happen? Sub test() Dim ofst As Integer, rng2 As String Dim QUAD As String ofst = 0 QUAD = 1 rng2 = "B" & (ofst + 5) & ":HZ" & (ofst + 5) Cells(ofst + 4, 2).Value = "=SumIf(B4:HZ4, " + QUAD + "," + rng2 + ")" End Sub If so, good luck with it. Grtz Jzz |
Why does this not work
Perhaps
rng = "B" & ofst + 4 rng2 = "B" & (ofst + 5) & ":HZ" & (ofst + 5) Range(rng).Formula = "=SumIf(B4:HZ4, "" * QUAD * ""," & rng2 & ")" -- HTH RP (remove nothere from the email address if mailing direct) "Neil Atkinson" wrote in message ... Can anyone modify this to work please I think it does not because of the "" problem? Did try and do this at first using worksheet function but have up now just trying to paste the formula into the worksheet!!! rng = "B" & ofst + 4 rng2 = "B" & (ofst + 5) & ":HZ" & (ofst + 5) Range(rng).Formula = "=SumIf(B4:HZ4, " * QUAD * ",rng2)" Many Thanks Neil *** Sent via Developersdex http://www.developersdex.com *** |
All times are GMT +1. The time now is 10:25 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com