Thread: [Solved] I use an array to traverse the monthly worksheet summaries in the workbook, why the display types do
View Single Post
 
Old 10-07-2020, 10:42 PM
Purfleet Purfleet is offline Windows 10 Office 2019
Expert
  
Join Date: Jun 2020
Location: Essex
Posts: 345
Purfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to behold
Default
i know why you merge cells, but they will only cause problems - it is far better to 'center accross selection'

Code:
Sub SumCols()

Dim LR As Integer 'change to Long if your rows can go over 32000

LR = Cells(Rows.Count, 1).End(xlUp).Row ' Last row calculated on the first column

Range("d" & LR + 1) = "=Sum(d2:d" & LR & ")"
Range("f" & LR + 1) = "=Sum(f2:f" & LR & ")"
Range("g" & LR + 1) = "=Sum(g2:g" & LR & ")"


End Sub

1 - This will sum the 3 columns (you sure you want to sum the price?)
2 - The last row is based on column 1, so will always sum to the last row unless you put something like Total in row 13 then the previous total would be included in the next sum
3 - Can you clarify this part?
Attached Files
File Type: xlsm sum_Purfleet.xlsm (62.0 KB, 5 views)
Reply With Quote