Excel Macro Help

[mikael.vescio]

Good morning all. I was hoping someone here could help me write a macro fora large catalog of data.

Here's what I hope to achieve. As mentioned, I have a large list magazine/journal titles in an excel spreadsheet. Each title name has the same Background color with the corresponding data below each with No fill. Is there a way to target and add a thick border to only the colored cells?

 

[isabelle]

hi Mikael,

Sub Macro1()
Dim i As Long, y As Long
For i = 1 To 20 'adapt lines
With Cells(i, 1) 'adapt the column
If .Interior.Color = 255 Then 'adapting the color
' or If .Interior.Color = RGB(255, 0, 0) Then
For y = 1 To 4
With .Borders
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Next
End If
End With
Next
End Sub


isabelle

Le 2014-03-07 09:23, (e-mail address removed) a écrit :