CLEAN DATA COLUMN B

BUTTON TO CLEAN DATA
IN COLUMN B

CLEAN data and format Please!!
4567.xlsm
ADRIANA PACCOUNTING ASSISTANTAsked:
Who is Participating?
 
Ryan ChongCommented:
try like:

Sub test()
    Dim StartRow As Integer, LastRow As Integer
    StartRow = 4
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    With Range("B" & StartRow & ":B" & LastRow)
        .ClearContents
        .Interior.Pattern = xlNone
        .Interior.TintAndShade = 0
        .Interior.PatternTintAndShade = 0
        .Font.ColorIndex = xlAutomatic
        .Font.TintAndShade = 0
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
End Sub

Open in new window

1
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Ryan Chong

Working as needed ! Thanks !
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.