Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy from workbook to workbook
xl2000
I am trying to update a lot of workbooks. I want to copy the formats and formulas from a new workbook to all sheets named R* in the target workbook. Below is my code so far. Any help would be greatly appreciated. Ta, Martin Public Sub CoPasTheLot() Dim ws As Worksheet Dim Source As Workbooks Dim Target As Workbooks Set Source = Workbooks("28Aug03") Set Target = Workbooks("08Feb02") For Each ws In Target If Left(ws.Name, 1) = "R" Then For Each ws In Target Source.Worksheets("R1").Cells.Copy Target.Worksheets(1).Cells.PasteSpecial xlFormats Target.Worksheets(1).Cells.PasteSpecial xlFormulas End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to copy an image (or picture) from one workbook to a new sheetin another workbook | Excel Worksheet Functions | |||
Excel-how to link source workbook to copy of destination workbook | Excel Worksheet Functions | |||
Copy cells based on conditions in one workbook to another workbook | Excel Discussion (Misc queries) | |||
Copy cells based on conditions in one workbook to another workbook | Excel Worksheet Functions | |||
copy worksheet from closed workbook to active workbook using vba | Excel Worksheet Functions |