Fill Colors using VBA

[andrewb90]

Hello All,


I am hoping there is a pretty simple solution to this. I am using this code to color different cell ranges:

Sub RequestAvail()    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
        .PatternTintAndShade = 0
    End With
End Sub

Now, I am hoping that I could also fill in the identical cells that are highlighted on another sheet.
To clarify:
The user will select C2:D2 on the "Master Availability" sheet. This code will fill in those cells in this color.
On the sheet "Scheduler" I would like C2:D2 to be filled in the same color.
Whatever cells are selected on the Master Availability will correspond to the cells on the Scheduler sheet.

Any help on this would be greatly appreciated!

Andrew

 

[Jonmo1]

Try

Sub RequestAvail()
With Selection
    With .Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
        .PatternTintAndShade = 0
    End With
    With Sheets("Scheduler").Range(.Address).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
        .PatternTintAndShade = 0
    End With
End With
End Sub

 

[Sektor]

There's no such event which would respond to cell's color change. It can be done, for instance, by pressing some button.

 

[andrewb90]

Range(.address) works brilliantly!
Gotta love Excel, just when you think it's gonna be tough, there's something that makes it simple!

Thank you!

 

[Jonmo1]

You're welcome.