Making a border a specific color

[easybpw]

I was wondering if there is a way to make a cell border a specific color? I know you can have a full border but the color defaults to black/grey. This would be extremely helpful to me.

Thanks for the help!

Bill

 

[Glaswegian]

Hi Bill

Assuming you mean in code then this puts borders round range A1 to A8 and makes the border red.

Sub Borders()
With ActiveSheet.Range("A1:A8").Borders
    .LineStyle = xlContinuous
    .ColorIndex = 3
End With
End Sub

Does this help or have I misunderstood?

Regards

 

[easybpw]

Actually no. I'm sure I wasn't clear but...the unique cells aren't constant and don't go in order. In a column of 20 rows only 3 could be unique. I'm thinking this is probably impossible.

Bill

 

[Glaswegian]

Bill

Is there some specific criteria for the cells you want? What cells in particular are you looking at? Do they contain some kind of data or are they blank

 

[easybpw]

The cells are blank. Once I find a way to uniquely mark certain cells a macro is run from another sheet and then will put data in the cells. But the cells need to remain empty, I just need to find a way to mark them as unique.

Thanks for the help. I know I am not clear enough but it is hard to translate.

Bill

 

[passinthru]

Start at the beginning and tell us a story. "I start with a blank worksheet. In cells C4, C8, and D42 I need to have the border changed to purple with pink stripes. Later, I will import data into this sheet using VBA to get data from another workbook."

Or whatever. Think through what you want to accomplish step by step. Then tell that story. Nevemind if it's possible, or how to do it - the gurus on this board will help you with that. YOUR job is to lay out the problem clearly.

 

[easybpw]

ERROR SHOWING WORKSHEET

 

[Glaswegian]

You can’t use the HTML maker at the moment.

If it’s just blank cells then try this – you’ll need to adjust the range to suit.

Sub Borders2()
Dim myRng As Range
Dim newRng As Range

Set myRng = Range("A1:H4")
Set newRng = myRng.SpecialCells(xlCellTypeBlanks)

newRng.Interior.ColorIndex = 6
End Sub

Does this help?

Regards