新しいブックにシートをコピーして貼り付けるためのVBAマクロ

Question

レポート（今日の日付）という新しいブックに複数のシートをコピーして貼り付ける必要があるレポートを毎日作成します。

私のレポートには、顧客、注文、国、IDの4つのシートがあります。

お客様と国は単純にマスターファイルからコピー＆ペーストできますが、オーダーとIDはマスターファイル内の自分のシートからフィルタリングされたデータです。注文は「完全」に濾過し、Idは、私がここで見つけるこのソリューションに基づいて、マクロを構築しようとしたID 200と500

以外のすべてである：コピー＆ペースト作品 http://www.hivmr.com/db/ack717pc8f88jpdsf7838pcaspkcsdmd

が、私はコピーすることができません複数のシート/名前変更シートを貼り付けてデータをフィルタリングすることができます。

編集：あなたのフィルターシートの設定方法

Sub CopyInNewWB() 
    'has been tested 
    Dim newWS, WS As Worksheet 
    Application.ScreenUpdating = False 
    Set WS = ThisWorkbook.Sheets("Sheet1") 
    Set newWS = Workbooks.Add.Sheets("Sheet1") 
    WS.Cells.Copy 
    newWS.Cells.PasteSpecial xlValues Application.CutCopyMode = False 
    Application.ScreenUpdating = True 
End Sub 

Answer 1

見当もつかないが、この方法は、彼らが現在、新しいワークブックにフィルタリングされ、正確にどのようにあなたのマスターにシートをコピーします：

Sub CopyInNewWB() 
Dim wbO As Workbook, wbN As Workbook 

On Error GoTo ErrHandler 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
Application.DisplayAlerts = False 

Set wbO = ActiveWorkbook 
Set wbN = Workbooks.Add 

wbO.Sheets("Customers").Copy wbN.Sheets(1) 
wbO.Sheets("Orders").Copy wbN.Sheets(2) 
wbO.Sheets("Country").Copy wbN.Sheets(3) 
wbO.Sheets("ID").Copy wbN.Sheets(4) 

wbN.Sheets("Sheet1").Delete 
wbN.Sheets("Customers").Activate 

Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 
Application.DisplayAlerts = True 

ErrHandler: 
Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 
Application.DisplayAlerts = True 

End Sub