Help for subtotal
Please help in the following example how I can give end of column
instead of O193 ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,O3:O193)" with thanks and regards Pol |
Help for subtotal
Hi,
Maybe this lastrow = Cells(Rows.Count, "O").End(xlUp).Row ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & lastrow & ")" Mike "pol" wrote: Please help in the following example how I can give end of column instead of O193 ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,O3:O193)" with thanks and regards Pol |
Help for subtotal while filtering
Thanks Mike,
When I am using that formula , the subtotal is showing just last line of the column. I want the the subtotal should be shown at the end of the data. But when I am executing that formula , the result will be overwritten the data on the last line . So I given the following mathod but it is not working when I am filtering With ActiveSheet LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row .Range("O2:O" & LastRow).FormulaR1C1 = .Range("O2").FormulaR1C1 End With Range("O" & LastRow + 1).Select LastRow = Cells(Rows.Count, "O").End(xlUp).Row ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & LastRow & ")" Please Help "Mike H" wrote: Hi, Maybe this lastrow = Cells(Rows.Count, "O").End(xlUp).Row ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & lastrow & ")" Mike "pol" wrote: Please help in the following example how I can give end of column instead of O193 ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,O3:O193)" with thanks and regards Pol |
Help for subtotal while filtering
see your latest post
"pol" wrote: Thanks Mike, When I am using that formula , the subtotal is showing just last line of the column. I want the the subtotal should be shown at the end of the data. But when I am executing that formula , the result will be overwritten the data on the last line . So I given the following mathod but it is not working when I am filtering With ActiveSheet LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row .Range("O2:O" & LastRow).FormulaR1C1 = .Range("O2").FormulaR1C1 End With Range("O" & LastRow + 1).Select LastRow = Cells(Rows.Count, "O").End(xlUp).Row ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & LastRow & ")" Please Help "Mike H" wrote: Hi, Maybe this lastrow = Cells(Rows.Count, "O").End(xlUp).Row ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & lastrow & ")" Mike "pol" wrote: Please help in the following example how I can give end of column instead of O193 ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,O3:O193)" with thanks and regards Pol |
Help for subtotal while filtering
"Mike H" wrote: see your latest post "pol" wrote: Thanks Mike, When I am using that formula , the subtotal is showing just last line of the column. I want the the subtotal should be shown at the end of the data. But when I am executing that formula , the result will be overwritten the data on the last line . So I given the following mathod but it is not working when I am filtering With ActiveSheet LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row .Range("O2:O" & LastRow).FormulaR1C1 = .Range("O2").FormulaR1C1 End With Range("O" & LastRow + 1).Select LastRow = Cells(Rows.Count, "O").End(xlUp).Row ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & LastRow & ")" Please Help "Mike H" wrote: Hi, Maybe this lastrow = Cells(Rows.Count, "O").End(xlUp).Row ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & lastrow & ")" Mike "pol" wrote: Please help in the following example how I can give end of column instead of O193 ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,O3:O193)" with thanks and regards Pol |
All times are GMT +1. The time now is 01:33 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com