Insert xlBottom border to group data
 

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.

Insert xlBottom border to group data
 

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

"Forgone" wrote in message
...
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.

Insert xlBottom border to group data
 

I note that the your code starts at the active cell, but later you say
you're checking column F, so for it to work properly you *have* to
select a cell in column F. In the code below, the commented-out line
beginning 'Set cll =' is a way to select a cell in any column and the
code will still use column F and check from that row
downwards.Sub blah()
Set cll = ActiveCell
'Set cll = Cells(ActiveCell.Row, "F") 'optional line to replace one
above
Do While cll < ""
If cll.Value < cll.Offset(1).Value Then
With Range(Cells(cll.Row, "A"), Cells(cll.Row,
"S")).Borders(xlEdgeBottom)
LineStyle = xlContinuous
Weight = xlThin
ColorIndex = xlAutomatic
End With
End If
Set cll = cll.Offset(1)
Loop
End Sub


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=134347