Draw cell borders

Wenggo · November 26th, 2010, 08:43 PM

Hi,

How should I code in Macro Excel 2007, for cells contains with data which selected below with top, bottom, left and right borders.

Sub resolved()
'Range("A2:J1000").Sort Key1:=Columns("D"), Order1:=xlAscending, Key2:=Columns("H"), Order2:=xlAscending
Range("A:A,D:E,G:I").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Columns.AutoFit
End With

Range("B:C,F:F,J:J").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.Columns.AutoFit
End With

End Sub

mtranchi · November 26th, 2010, 09:11 PM

Just use the macro recorder and that should give you the code to get started

mtranchi · November 26th, 2010, 09:14 PM

here's the code i got using the macro recorder:

Code:

    Range("C1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With

Hope that helps.

Wenggo · November 26th, 2010, 11:14 PM

Thanks for reply mtranchi,

Yours draw borders for all cells selected in sheet by range.

Anyway I just want to draw top, bottom, left and right borders for cells selected contains with data only in my sheet and not for all cells selected in sheet by range.

Wenggo · November 26th, 2010, 11:18 PM

Sorry for add up, for each cells selected contains with data .