Automatically Add ALL Borders to Cells with values only

[jluangrath88]

Hi All,

I currently have a worksheet called “Summary.” It has values in columns A to J. I want to add borders to every single cell that has data in it (in that worksheet only). No data, no border. Etc.

I’m already running several macros in the entire workbook so conditional formatting will not work for me. Can somebody help me or provide me with the proper VBA code?

please help

 

[oldbrewer]

just loop through every cell and test if it is blank - if it is continue looping if not apply the borders

why would conditional forma
tting not work ?

 

[jluangrath88]

I have two specific macros running in the workbook that will clear all data from this worksheet amongst others. It’s done daily. So when that macro runs, it clears out the conditional formatting as well.

 

[Fluff]

Hi & welcome to the board
If your cells contain values rather than formulae, try

Sub AddBorders()
   With Range("A:J").SpecialCells(xlConstants)
      .Borders.Weight = xlThin
   End With
End Sub

 

[MARK858]

Why the With statement for 1 criteria???

 

[Fluff]

Partly out of habit, normally when using Specialcells I'm doing a number of things to the cells.
Also if the OP wants to change the colour, linestyle etc, I can simply add an extra line of code or 2.

 

[MARK858]

Fair enough, personally I prefer to apply it directly to the range but the minute milliseconds difference is inconsequencial

 

[oldbrewer]

""clear all data from this worksheet amongst others. It’s done daily. So when that macro runs, it clears out the conditional formatting as well.""

if you delete only the cell contents, formula or value, the borders will remain

if the borders are there via conditional formatting, they WILL disappear, but reappear when the cell is repopulated...

 

[jluangrath88]

""clear all data from this worksheet amongst others. It’s done daily. So when that macro runs, it clears out the conditional formatting as well.""

if you delete only the cell contents, formula or value, the borders will remain

if the borders are there via conditional formatting, they WILL disappear, but reappear when the cell is repopulated...

I’m aware of that. However, the company I work for is using this sheet to run specific codes and needs the sheet to clear out each time. Plus, the amount of rows and columns are changing constantly, so I just needed a VBA code to get started and tweak to what I need.

But thank you for your input

 

[jluangrath88]

Hi & welcome to the board
If your cells contain values rather than formulae, try

Sub AddBorders()
   With Range("A:J").SpecialCells(xlConstants)
      .Borders.Weight = xlThin
   End With
End Sub

thank you. Exactly what I needed. Just tweaked and added a bit for border style, color, etc.