bcomhari
10-01-2015, 04:30 AM
Dear All,
I would request to kindly look into this issue and revert at your earliest convenience.
INPUTS(Sheet name)
Problem#1
Please refer Column " BN" in Inputs sheet whereas formulas are updated as Text values , below is the code that i have used :
Sheets("Inputs").Select
Range("A1").Select
Selection.End(xlToRight).Select
Range("BN1").Select
ActiveCell.FormulaR1C1 = "Total"
Range("BN2").Select
Range("BN2").Formula = "=Sum(AN2+AK2+AL2+AB2+AD2+z2)"
Range("BN2").Select
Selection.Copy
Range("BM1").Select
Selection.End(xlDown).Offset(-1, 1).Select
Range(Selection, Selection.End(xlUp)).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
I would request to kindly look into this issue and revert at your earliest convenience.
INPUTS(Sheet name)
Problem#1
Please refer Column " BN" in Inputs sheet whereas formulas are updated as Text values , below is the code that i have used :
Sheets("Inputs").Select
Range("A1").Select
Selection.End(xlToRight).Select
Range("BN1").Select
ActiveCell.FormulaR1C1 = "Total"
Range("BN2").Select
Range("BN2").Formula = "=Sum(AN2+AK2+AL2+AB2+AD2+z2)"
Range("BN2").Select
Selection.Copy
Range("BM1").Select
Selection.End(xlDown).Offset(-1, 1).Select
Range(Selection, Selection.End(xlUp)).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False