2017-08-01 21 views
-1

我需要將模型代碼從工作簿1複製到工作簿2。當我在工作簿1中鍵入模型代碼時,它應該自動被複制到工作簿2中。請協助我如何完成這項工作。需要的公式用於複製excels的數據

+0

使用'Worksheet_Change'事件。在網上搜索「excel vba on cell change」和「excel vba copy range to another sheet」或類似內容。否則,顯示你的代碼,這樣有人可以幫助你。 – CMArg

+0

下面是我已經使用代碼:Sub複製() 工作簿( 「PROD」)激活 範圍。( 「A:B」)選擇 Selection.Copy 工作簿( 「newexcel」)激活 範圍(」 A1「)。PasteSpecial End Sub –

回答

0

如果您的目標工作簿已經打開,則以下內容應該可以工作。您應該定義將數據複製到的工作表(此處爲「Sheet1」)。

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim Destination As Range 

    Set Destination = Workbooks("newexcel.xls").Worksheets("Sheet1").Range(Target.Address) 
    Destination.Value = Target 

End Sub 
+0

@nickytha Kumari做了代碼幫助? – CMArg