cell is merged and contains "something"

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Carrie_Loos - 17 Jan 2008 23:20 GMT

I am having trouble with this piece of code. I can't seem to make these two
variable work together. If I remove the "And Like "*me*" portion of the If
statement then the code will change the color correctly in the merged cells
but I can't seem to get the 'And' piece to work. Can anyone help?

Sub Customer_Colors()

For Each c In Range("B8:IT500")

If c.MergeCells = True And c.MergeCells Like "*something*" Then
c.Interior.ColorIndex = 4

Next

End Sub

Thanks
Carrie

Reply to this Message

Per Jessen - 17 Jan 2008 23:37 GMT

> I am having trouble with this piece of code. I can't seem to make these two
> variable work together. If I remove the "And Like "*me*" portion of the If
[quoted text clipped - 17 lines]
> --
> Message posted via OfficeKB.comhttp://www.officekb.com/Uwe/Forums.aspx/excel-programming/200801/1

Hi Carrie

Try this

Sub Customer_Colors()
For Each c In Range("B7:IT50")
If c.MergeCells = True And c.Value Like "*something*" Then
c.Interior.ColorIndex = 4
Next
End Sub

Regards,

Per

Reply to this Message

Carrie_Loos - 18 Jan 2008 19:51 GMT

I am still having the same issue - any other ideas?

>> I am having trouble with this piece of code. I can't seem to make these two
>> variable work together. If I remove the "And Like "*me*" portion of the If
[quoted text clipped - 16 lines]
>
>Per

Reply to this Message

Carrie_Loos - 18 Jan 2008 20:42 GMT

My mistake, works well. Thanks

>> I am having trouble with this piece of code. I can't seem to make these two
>> variable work together. If I remove the "And Like "*me*" portion of the If
[quoted text clipped - 16 lines]
>
>Per

Reply to this Message