Copy Color Macro of a conditioned cell

[uglow89]

I am using the following marco to copy colors in Column F in Column G

Sub copycolors()
Dim cell As Range, s As String
s = "G"
For Each cell In Range("F4:F30")
Range("G" & cell.Row).Interior.Color = cell.Interior.Color
Next cell
End Sub


The Problem is column F is a drop down menu, conditioned to be a certain color if text matches another.

The above formula isn't picking up the color unless its filled manually, help would be greatly appreciated.

[ImranBhatti]

Did you try the code into the worksheet_change event?

[uglow89]

Did you try the code into the worksheet_change event?

No, how do you do that? Sorry I'm a bit slow at all this!

[JeteMc]

The Problem is column F is a drop down menu, conditioned to be a certain color if text matches another.

This portion gives me the idea that a formula could be used as a conditional formatting rule that would make use of the match. It would be a lot easier to help, whether by formula or VBA, if you could upload a sample of your file. To upload a sample workbook click on the GO ADVANCED button below the Quick Reply window and then scroll down to Manage Attachments to open the upload window.
Let us know if you have any questions.

[jolivanes]

You can not get the color from conditional formatting.
You will need to use the same logic used in conditional formatting to color in other cells.