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)

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

--
---
HTH

Bob


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



"Dean P." <Dean P.@discussions.microsoft.com> wrote in message
news:BE3A968E-78B6-4904-AFEF-(E-Mail Removed)...
>
>
> 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)
>