VBA - Remove Vertical Border from Empty Row

PaulMacF

New Member
Joined
Mar 6, 2023
Messages
10
Office Version
  1. 365
Platform
  1. Windows
Hi there,

Would appreciate some code to remove the vertical bars (red ticks in picture) from empty rows on my sheet.
Only need it to work down to last occupied row of data.
Need it to remove vertical borders between COL A:AJ

Thanks
 

Attachments

  • rb.PNG
    rb.PNG
    39.8 KB · Views: 8

Excel Facts

Does the VLOOKUP table have to be sorted?
No! when you are using an exact match, the VLOOKUP table can be in any order. Best-selling items at the top is actually the best.
For example:
VBA Code:
Sub Bordrr()
Dim uRR As Range
'
Set uRR = Application.Intersect(ActiveSheet.UsedRange, Range("A:AJ"))
For I = 1 To uRR.Rows.Count
    If Application.WorksheetFunction.CountA(Application.WorksheetFunction.Index(uRR, I, 0)) > 0 Then
        With Application.WorksheetFunction.Index(uRR, I, 0).Borders
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
    Else
        Application.WorksheetFunction.Index(uRR, I, 0).Borders.LineStyle = xlNone
    End If
Next I
End Sub
This removes the border when not necessary and sets them when needed
 
Upvote 0
Solution

Forum statistics

Threads
1,214,599
Messages
6,120,447
Members
448,966
Latest member
DannyC96

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top