Hello,
I currently have 7 worksheets with identical data in ranges (A2:ACW9). The data in (B4:ACW9) from each sheet needs to be copied to a summary sheet. The macro below copies the data but fails to copy the conditional color formatting from the source sheets onto the destination sheet, ("Overview"). I'm looking to produce two solutions:
1. The first is to have the data and conditional color formatting from B4:ACW9 on "Team *" worksheets copied to the destination ("Overview") worksheet with the conditional color formatting referenced from the "Team *" source sheets.
2. Is it possible to consolidate the data and conditional color formatting in the following way?
-Source sheets: ("Team A").Range("B4:ACW9") and ("Team B").Range("B4:ACW9") data and conditional color formatting copied to Destination sheets: ("Summary" ). Range("B4:ACW9")
-Source sheets: ("Team C").Range("B4:ACW9"), ("Team D").Range("B4:ACW9"), ("Team E").Range("B4:ACW9") and ("Team F").Range("B4:ACW9") data and conditional color formatting copied to Destination sheets: ("Summary"). Range("B11:ACW16")
-Source sheets: ("Team G").Range("B4:ACW9") data and conditional color formatting copied to Destination sheets: ("Summary"). Range("B18:ACW23")
Any help in adjusting this macro is appreciated.
'In this example I am Copying the Data from Sheet1 (Source) to Sheet2 (Destination)
Sub sbCopyRangeToAnotherSheet()
'Method 1
Sheets("Team A").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B4:ACW9")
Sheets("Team B").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B11:ACW16")
Sheets("Team C").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B18:ACW23")
Sheets("Team D").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B25:ACW30")
Sheets("Team E").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B32:ACW37")
Sheets("Team F").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B39:ACW44")
Sheets("Team G").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B46:ACW51")
'Method 2
'Copy the data
Sheets("Team A").Range("B4:ACW9").Copy
Sheets("Team B").Range("B4:ACW9").Copy
Sheets("Team C").Range("B4:ACW9").Copy
Sheets("Team D").Range("B4:ACW9").Copy
Sheets("Team E").Range("B4:ACW9").Copy
Sheets("Team F").Range("B4:ACW9").Copy
Sheets("Team G").Range("B4:ACW9").Copy
'Activate the destination worksheet
Sheets("OVERVIEW").Activate
'Select the target range
Range("B4:ACW9").Select
Range("B11:ACW16").Select
Range("B18:ACW23").Select
Range("B25:ACW30").Select
Range("B32:ACW37").Select
Range("B39:ACW44").Select
Range("B46:ACW51").Select
'Paste in the target destination
ActiveSheet.Paste
Application.CutCopyMode = True
End Sub
I currently have 7 worksheets with identical data in ranges (A2:ACW9). The data in (B4:ACW9) from each sheet needs to be copied to a summary sheet. The macro below copies the data but fails to copy the conditional color formatting from the source sheets onto the destination sheet, ("Overview"). I'm looking to produce two solutions:
1. The first is to have the data and conditional color formatting from B4:ACW9 on "Team *" worksheets copied to the destination ("Overview") worksheet with the conditional color formatting referenced from the "Team *" source sheets.
2. Is it possible to consolidate the data and conditional color formatting in the following way?
-Source sheets: ("Team A").Range("B4:ACW9") and ("Team B").Range("B4:ACW9") data and conditional color formatting copied to Destination sheets: ("Summary" ). Range("B4:ACW9")
-Source sheets: ("Team C").Range("B4:ACW9"), ("Team D").Range("B4:ACW9"), ("Team E").Range("B4:ACW9") and ("Team F").Range("B4:ACW9") data and conditional color formatting copied to Destination sheets: ("Summary"). Range("B11:ACW16")
-Source sheets: ("Team G").Range("B4:ACW9") data and conditional color formatting copied to Destination sheets: ("Summary"). Range("B18:ACW23")
Any help in adjusting this macro is appreciated.
'In this example I am Copying the Data from Sheet1 (Source) to Sheet2 (Destination)
Sub sbCopyRangeToAnotherSheet()
'Method 1
Sheets("Team A").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B4:ACW9")
Sheets("Team B").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B11:ACW16")
Sheets("Team C").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B18:ACW23")
Sheets("Team D").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B25:ACW30")
Sheets("Team E").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B32:ACW37")
Sheets("Team F").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B39:ACW44")
Sheets("Team G").Range("B4:ACW9").Copy Destination:=Sheets("overview").Range("B46:ACW51")
'Method 2
'Copy the data
Sheets("Team A").Range("B4:ACW9").Copy
Sheets("Team B").Range("B4:ACW9").Copy
Sheets("Team C").Range("B4:ACW9").Copy
Sheets("Team D").Range("B4:ACW9").Copy
Sheets("Team E").Range("B4:ACW9").Copy
Sheets("Team F").Range("B4:ACW9").Copy
Sheets("Team G").Range("B4:ACW9").Copy
'Activate the destination worksheet
Sheets("OVERVIEW").Activate
'Select the target range
Range("B4:ACW9").Select
Range("B11:ACW16").Select
Range("B18:ACW23").Select
Range("B25:ACW30").Select
Range("B32:ACW37").Select
Range("B39:ACW44").Select
Range("B46:ACW51").Select
'Paste in the target destination
ActiveSheet.Paste
Application.CutCopyMode = True
End Sub