Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting and copy or copy and formatting ??
The two macros copy multiple ranges to a single placement or
single range to multiple placements on sheets within the workbook. I want the option to format the destinations as one may opt for. In the first macro I chose $, Bold and Italics, just as an example. Do I format on the "copy from" sheet and do something like paste special format/values?? Or can I add a line or few of code to do the formatting on the "copied to sheets" sheets? What recommendations do you suggest? Thanks. Howard Option Explicit Sub CopySheetRangeSToSheets() '// Copy multiple ranges to a single placement ' on the other sheets Dim Rng As Range Dim ShNumBr As Long Dim i As Long Set Rng = Range("A1:A9, C1:C9, E1:E9") ShNumBr = Worksheets.Count Rng.Copy For i = 2 To ShNumBr With Worksheets(i).Range("A1") .PasteSpecial xlPasteValues '// And then on the copiy to sheets those ranges formatted '// Range("A1:A9 as $, C1:C9 as Bold, E1:E9 as Italics") End With Next 'i 'Application.CutCopyMode = False 'CopySheetRangeToSheetsRanges End Sub Sub CopySheetRangeToSheetsRanges() '// Copy single range to a multiple placements ' on the other sheets Dim Rng As Range Dim ShNumBr As Long Dim i As Long Set Rng = Range("B3:C7") ShNumBr = Worksheets.Count Rng.Copy For i = 2 To ShNumBr With Worksheets(i).Range("K10,M18,D29") .PasteSpecial xlPasteValues End With Next 'i Application.CutCopyMode = False End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using copy and destination formatting | Excel Discussion (Misc queries) | |||
Copy formatting, Help | Excel Discussion (Misc queries) | |||
Copy row formatting down | Excel Programming | |||
Copy Formatting from one row to another using VBA | Excel Programming | |||
copy formatting | Excel Programming |