Macro to adjust border at last cell entry

[bkyarbro]

Hi,

I have a tracking report I built that is sorted with a macro. I can enter a new record in and the macro will autonumber and sort the worksheet based on my parameters. The thing I'm struggling with is a simple formatting issue.

There is a border at the bottom of the report that should adjust to include every new cell entry. Primarily, I'm gauging this off column C where if a new project comes into our queue, I want to autonumber, sort, and adjust the border. Well, I've done 2 out 3. I can't figure out the syntax for the border.

Here is an example:

The border has to be reformatted every time I add a new entry. So, the border would end after number 87 (from the last time manually formatted). How would I add the logic to make the border include the last entry in column C (88)? So, the border should now encompass number 88 as well.

81 Quarterly Securities Transaction Report Enhancement
82 Litigation / History Database
83 TU012 Corporate Trust AddVantage form enhancements
84 NRRE Operational Committee formation
85 Charitable Trust (E&F) LOB Transition
86 Trust Incentive Automation - Phase III
87 Custody Database Update
88 test

 

[MickG]

Try this:-
After you enter data in "C" the previous line above, is removed and a new line is created below.

Private [COLOR=navy]Sub[/COLOR] Worksheet_SelectionChange(ByVal Target [COLOR=navy]As[/COLOR] Range)
[COLOR=navy]Dim[/COLOR] Lst [COLOR=navy]As[/COLOR] [COLOR=navy]Integer[/COLOR]
[COLOR=navy]If[/COLOR] Target.Column = 3 [COLOR=navy]Then[/COLOR]
Lst = Range("c" & rows.Count).End(xlUp).row
rows(Lst - 1).EntireRow.Borders(xlEdgeBottom).LineStyle = xlNone
[COLOR=navy]With[/COLOR] rows(Lst).EntireRow.Borders(xlEdgeBottom)
        .LineStyle = xlSingle
        .Weight = xlThick
        .ColorIndex = xlAutomatic
[COLOR=navy]End[/COLOR] With
[COLOR=navy]End[/COLOR] [COLOR=navy]If[/COLOR]
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

 

[bkyarbro]

Thanks, I'll give it a shot!