VBA code formatting based on criterion

[jakobt]

In column C is a list of account numbers. After account 4999999, I want to insert a thick black underline from column B to K.
Is it possible to write VBA code for this.

 

[Fluff]

Will there only be one occurrence of that account number, or can it appear multiple times?

 

[Joe4]

Is VBA really required?
I ask because this is pretty simple to do without VBA using Conditional Formatting.
You can actually get the VBA code for that Conditional Formatting by turning on the Macro Recorder, and recording yourself applying the Conditional Formatting manually.

 

[jakobt]

Yes, this is part of a bigger VBA tune up of a spreadsheet. Would really like this code to work.

 

[Joe4]

Yes, this is part of a bigger VBA tune up of a spreadsheet. Would really like this code to work.

Did you try what I suggested? It should give you the VBA code that you require.

You can actually get the VBA code for that Conditional Formatting by turning on the Macro Recorder, and recording yourself applying the Conditional Formatting manually.

 

[jakobt]

It is not for sure the account 4999999 will exist in the list. The border should be betwen account 4xxxxxx and 5xxxxxx.

 

[Joe4]

As long as it is always increasing, you could just check if the current row is less than or equal to 4999999 and the next row is more than that.
So, you would select columns B-K and enter this Conditional Formatting formula:
=AND($C1 < =4999999,$C2>4999999)
and choose your underline format.
(remove the spaces from either side of the less than sign, that is just needed so the forum doesn't render it as HTML code and mess up the post).

Turn on the Macro Recorder and before your steps, and you will have your VBA code.

 

[Fluff]

How about

Sub AddBorder()
   Dim Rng As Range
   With Range("C1:C" & Rows.Count - 1)
      .AutoFilter 1, ">=" & 5000000
      Set Rng = .Offset(1).SpecialCells(xlVisible)(1)
      Rng.Offset(-1, -1).Resize(, 10).Borders(xlEdgeBottom).Weight = xlMedium
      .AutoFilter
   End With
End Sub

This assumes that the account numbers will be in ascending order

 

[jakobt]

Genious!!

 

[Fluff]

Not sure who you are referring to, but glad we could help & thanks for the feedback