Conditional Formatting to VBA code

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dean P. - 18 Dec 2007 16:20 GMT

I have a conditional formatting applied to my worksheet (Seattle)
within the spreadsheet. I would like to drop the Excel conditional
formatting and create a Excel VBA button that would apply the same
validations as the condtional formatting.

Listed below are two validations that only correspond to row 6 in the
worksheet (Seattle).

The button with the VBA code should include all rows for the worksheet.

Please help me with the code to complete this task.

Thanks,

Column C is Created with the following format
(=IF(OR(A6<>"",B6<>""),CONCATENATE(A6,"-",B6),""))

(Conditional 1)
=AND(COUNTIF(Duplicate_R,C6)+COUNTIF(Duplicate_E,C6)>1,C6<>"")
(Color Blue)

Reply to this Message

Bob Phillips - 18 Dec 2007 17:03 GMT

For i = 2 To Cells(Rows.Count,"C").End(xlUp).Row
If Application.Countif(Range("Duplicate R", Cells(i,"C").Value + _
Application.Countif(Range("Duplicate E", Cells(i,"C").Value > 1 And
_
Cells(i, "C").Value <> "" then
Cells(i, "C").Interior.Colorindex = 5
End If
Next i

Signature

---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> I have a conditional formatting applied to my worksheet (Seattle)
> within the spreadsheet. I would like to drop the Excel conditional
[quoted text clipped - 16 lines]
> =AND(COUNTIF(Duplicate_R,C6)+COUNTIF(Duplicate_E,C6)>1,C6<>"")
> (Color Blue)

Reply to this Message