如何复制工作簿中一个工作表/选项卡中使用的代码以在同一工作簿中的另一个工作表/选项卡中创建报告

Question

Let's say, there is a report that has already been created in a sheet in a work book using macros. I want to create another report within the same workbook in another sheet(tab) with the exact same code in VBA which was used to create the report that has already been created. How do i copy and make those codes work in a different sheet to create a similar report?

Answer 1

Any code in the Worksheet itself should use Me to refer to itself - this way, it will work when copied/duplicated

Any other code should take the Worksheet to act on as a Argument, or as Module Level Object:

Option Explicit

Sub CreateReport(TargetSheet As Worksheet)
    TargetSheet.Cells(1,1).Value = "Hello"
End Sub

or

Option Explicit
Public TargetSheet AS Worksheet

Sub CreateReport()
    If TargetSheet Is Nothing Then Exit Sub 'In case the object has not been set
    TargetSheet.Cells(1,1).Value = "Hello"
End Sub

Then you can duplicate a "master" template sheet, and run the macros to target it