For Workbook & Worksheet Activate & Select all data & Copy Select Data & paste Where you want वर्कबुक और वर्कशीट सक्रिय के लिए और सभी डेटा का चयन करें & कॉपी करें डाटा और जहाँ आप चाहते हैं उसे चिपकाएँ
For Workbook & Worksheet Activate & Select all data & Copy Select Data & paste Where you want वर्कबुक और वर्कशीट सक्रिय के लिए और सभी डेटा का चयन करें & कॉपी करें डाटा और जहाँ आप चाहते हैं उसे चिपकाएँ Sub Mastersheet_Update() Dim wb As Workbook Set wb = Workbooks("WorkbookName.xlsm") wb.Activate Worksheets("WorkSheetName").Activate Worksheets("WorkShetName").Range("a1").CurrentRegion.Select Worksheets("WorkShetName").Range("a1").CurrentRegion.Copy Worksheets("WorkShetName").Activate Worksheets("WorkShetName").Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats or With Worksheets(" WorkShetName ").Range("A1") .PasteSpecial xlPasteValues .PasteSpecial xlPasteFormats Selection.Columns.AutoFit End With End Sub