Insert xlBottom border to group data

  • Thread starter Thread starter Forgone
  • Start date Start date
F

Forgone

I'm trying to create a macro that will insert a border on the bottom
row if the data in a specific column stops being duplicated and need a
hand doing it.

In one of the columns, I have data that can be duplicated and all I
need to do is to modify the existing border (dotted line grey) to a
solid black line.

So far, I've started with......

Sub InsertBorderToGroupItems()
FirstItem = ActiveCell.Value
SecondItem = ActiveCell.Offset(1,0).Value
Offsetcount = 1

Do while Activecell <> ""
If FirstItem <> SecondItem Then ' this is where the 2 shall differ
With ActiveCell.Offset(Offsetcount, 0)
..........

The column that its going to be checking is column "F"

However, I need the border to be inserted from Column A to Column S
(for now)
I was thinking of......

With ActiveCell.Offset(Offsetcount,0)
ActiveRow.Select
.... insert border

Any assistance would be sincerely appreciated.
 
If I follow what you are after, try something like this

Sub InsertBottomBdr()
Dim nRow As Long, nFromCol As Long, nToCol As Long
Dim nCol As Long
Dim rng As Range

nRow = ActiveCell.Row
nFromCol = 1
nToCol = Range("S1").Column

Set rng = Range(Cells(nRow, nFromCol), Cells(nRow, nToCol))

With rng.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

End Sub

If always A to S simply
Set rng = Range(Cells(nRow, 1), Cells(nRow, 19))

Regards,
Peter T
 
Back
Top