Cell Border in VBA Solved

Question

Hello everyone.

I am currently developing a small automated planning tool, so my rows and columns are variable.

I would like all the cells I have edited to have a border.

I imagine that the problem would be to scan through all the cells row by row or column by column to see if there is anything written in them; if so, we would border the cell in question.

Am I correct in principle? If so, how can I achieve this, and if not, how should I proceed?

Best regards,

Grobibi34

Configuration: Windows XP Internet Explorer 6.0

michel_m · Accepted Answer

Hello

your table is in the area B2:H25 for example

Sub encadrer_si() Dim cellule As Range For Each cellule In Range("B2:H25") If cellule <> "" Then cellule.Borders.Weight = xlThin Next End Sub

--
:-x

booddha · Answer

Look to see if this works for you.

I am not the author, so I cannot assist you further.

With .Range(.Range("A" & Nl), .Range("BQ" & Nl))
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

Arto · Answer

If you're still interested, I just wrote a code that matches what you're looking for.

tibatcool · Answer

If it's still possible, I’m looking for this kind of thing. I would just like to change a red cell to white (that’s not difficult, I managed that), but I need to revert the cell to normal mode (with the original borders) in my program.

Thank you.

tibatcool · Answer

Thank you very much! ;)

tibatcool · Answer

Just in case, I'm looking to change the content of a cell from one sheet to another in an Excel workbook if anyone knows...  Thanks

seb · Answer

To select a table where the top left corner is cell B1, I do this;

Range("B1", Range("B1").End(xlToRight).End(xlDown)).Select

This allows, regardless of the size of the table, to have a selection that automatically adjusts to the size of your table.

After that, you can do whatever you want with your table... formatting, conditional formatting...

Cell Border in VBA

7 answers

Unable to download

Uninstall totaladblock

Sony wh-1000xm5 not turning on after getting wet

Google photos transfer

Surface pro 4 tablet fully stuck, what to do ??

Broken black screen with talkback enabled and other issues help

Bounced emailsblocked emails

Canon mg6450 printer driver

Texture issues in enshrouded

What to buy for summer 2026