VBA to AutoSUMを選択範囲

Question

私はPAのReachと呼ばれるテンプレートに生のファイルからのデータを貼り付けることによっていくつかのレポートを自動化する作業に取り組んでいます。私は「Sumrow」の範囲を命名していると私は、内のデータを貼り付けた後、ループのそれぞれに上記の数字をオートSUMするVBAを必要とするここで私が持っているものであり、私はエラーを取得しています：。

Workbooks.Open datapath & datafile1 & OutputFileExt 
    Sheets("Rep").Activate 
    ActiveSheet.UsedRange.AutoFilter   

    For i = 1 To terrs_to_generate 
    Workbooks(builder).Sheets("Control").Activate 

    Range("Reportnum") = i 
    currfile = Range("CurrFile").Value 
    currterr = Range("CurrTerr").Value 
    currRep = Range("currRep").Value 
    terrname = Range("terrname").Value 
    DMName = Range("DMName").Value 
    TMStartDate = Range("TMstartdate").Value 

    'open template 
    Workbooks.Open templatepath & templatefile & OutputFileExt 

    Set currtemplatefile = ActiveWorkbook 

    Sheets("Control").Select 
    Sheets("control").Range("terrname") = terrname 
    Sheets("control").Range("repname") = currRep 
    Sheets("control").Range("reportdate") = reportdate 
    Sheets("control").Range("TMstartdate") = TMStartDate 
    Sheets("control").Range("DMName") = DMName 
    Sheets("control").Range("Territory") = currterr 

    Workbooks(datafile1 & OutputFileExt).Activate 
    Selection.AutoFilter field:=1, Criteria1:=currterr 

    Range("A1").Select 
    Range(Selection.Offset(1, 1).End(xlDown), Selection.End(xlToRight)).Copy 
    currtemplatefile.Activate 
    Sheets("PA Reach").Select 
    Range("pasterange").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 

    currtemplatefile.Activate 
    Range("formatrow").Copy 

    Range("pasterange").Select 
    Range(Selection.End(xlToRight), Selection.End(xlDown).Offset(0, 0)).Select 
    Selection.PasteSpecial Paste:=xlPasteFormats 

    'Delete PasteRange 
    Range("pasterange").Select 
    Selection.EntireRow.Delete 

    'Value Range Sheet so no formulas show 
    ActiveSheet.UsedRange.Select 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues 

    Range("A1").Select 



Sheets("control").Delete 
'need to add in sum total 
Range("sumrow1").End(xlDown).Offset(1, 0) = "=Sum(" & Range("sumrow1").Address(True, True) & ")" 



    'save as and close 
    ActiveWorkbook.SaveAs Filename:=(reportpath & currfile & OutputFileExt) 'not working 

Answer 1

なしありSelectRange("sumrow")にしてからSelectionを使用すると、FormulaをRangeに直接変更することができます。

それはあなたの「sumrow」の下の行の下の行に名前付き範囲Sum式を置く、以下のコードを試してみてください：あなたは、次の多くをそのコードをクリーンアップすることができ

Range("sumrow").End(xlDown).Offset(1, 0) = "=Sum(" & Range("sumrow").Address(True, True) & ")"