Macro Help Pleaseee...

[bulldaddy1]

Good morning!

Can anyone please help me with a Macro that will format a border (one single dark line on the bottom of each cell) everytime there is a change in the cell value.

Thank you very much for your help!

 

[SteveO59L]

Two parts to this I think

Part 1, on activating your sheet, copies the data in col A to col H.

Private Sub Worksheet_Activate()
Columns("A:A").Copy
Columns("H:H").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Part 2 assumes that you have a sum() formula totalling the contents of col A.

And it will compare the cells in range a1:a10 to the cells in col H, and underline any that are different.



Private Sub Worksheet_Calculate()
Dim c As Range, rng
Set rng = Range("a1:a10")
For Each c In rng
If c.Value <> c.Offset(0, 7) Then
c.Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next c
End Sub