H
Howard
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
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