Excel 基于两个单元格的值复制图纸

我正在处理这段代码，希望根据我在“开始”选项卡的单元格B3和B4中填充的单元格值复制给定的工作表。这些单元格的选项包括：

主标签单元B3:MM或PC

主页选项卡单元格B4：绿色或黄色

例如，如果用户选择MM和绿色，我希望运行以下代码：

Sub Button_8()
worksheets("Template_MM").Select
worksheets("Template_MM").Copy After:=Sheets(Sheets.Count) 
ActiveSheet.Name = Sheets("Home").Range("B6")
Range("C3") = Sheets("Home").Range("B5")
End Sub

Sub Button_8()
worksheets("Template_MM_Green").Select
worksheets("Template_MM_Green").Copy After:=Sheets(Sheets.Count) 
ActiveSheet.Name = Sheets("Home").Range("B6")
Range("C3") = Sheets("Home").Range("B5")
End Sub

如果用户选择MM和黄色，我希望运行以下代码：

Sub Button_8()
worksheets("Template_MM").Select
worksheets("Template_MM").Copy After:=Sheets(Sheets.Count) 
ActiveSheet.Name = Sheets("Home").Range("B6")
Range("C3") = Sheets("Home").Range("B5")
End Sub

Sub Button_8()
worksheets("Template_MM_Green").Select
worksheets("Template_MM_Green").Copy After:=Sheets(Sheets.Count) 
ActiveSheet.Name = Sheets("Home").Range("B6")
Range("C3") = Sheets("Home").Range("B5")
End Sub

我尝试了以下操作，但收到错误消息：

Sub Button_8()
worksheets("Template_MM_Yellow").Select
worksheets("Template_MM_Yellow").Copy After:=Sheets(Sheets.Count) 
ActiveSheet.Name = Sheets("Home").Range("B6")
Range("C3") = Sheets("Home").Range("B5")
End Sub

---

为什么不尝试按如下方式构建工作表：

---

Sheets Template\uSheets Home.RangeB3和\uSheetsHome.RangeB4

是否尝试了If…End If？我尝试了上面的If…End If语句，并收到错误消息。

Sub Button_8()
If worksheets("Home").Range("B3") Like "*MM*" And worksheets("Home").Range("B4") Like "*Yellow*" Then
THEN
worksheets("Template_Yellow_MM").Select
worksheets("Template_Yellow_MM").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Home").Range("B6")
Range("C3") = Sheets("Home").Range("B5")
End If
End Sub