Vba code to give borders to cell

[shinumon]

I would like to have a vba code so as to add borders from active cell to left till first column and upwards till first row.

 

[oldbrewer]

row() gives row number and column() gives column number so just move left , providing column number is greater than 1 and then when column number = 1 move up using same logic. are you reasonably familiar with macro code ?

 

[shinumon]

I am afraid I am new to this. I didn't get it sir

 

[Fluff]

Hi
Is this what you're after

Sub AddBorder()
' shinumon

    With Range("A1", ActiveCell)
        .BorderAround LineStyle:=xlContinuous, Weight:=xlThin
        With .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
    End With

End Sub

 

[MARK858]

Possibly just...

Range("A1", ActiveCell).Borders.LineStyle:=xlContinuous

 

[Fluff]

Hello Mark
I'm getting a Compile Error - Expected expression & highlights the := but if I remove the : it works

 

[MARK858]

That's the trouble with posting code when you are only on a phone

 

[Fluff]

@shinumon
Use this modified version of Mark858' code

Range("A1", ActiveCell).Borders.LineStyle = xlContinuous

 

[MARK858]

Just to point out that with the code I posted (with the kind correction by Fluff) that it only works with 1 specific criteria and the rest set to the defaults i.e. you could do

Range("A1", ActiveCell).Borders.LineStyle = xlContinuous

or

Range("A1", ActiveCell).Borders.LineStyle = xlDash

or

Range("A1", ActiveCell).Borders.ColorIndex = 3

or

Range("A1", ActiveCell).Borders.Weight = xlThick

or any other single specified criteria.

but if for instance you wanted a bolded border that was a dash then you would have to use code similar to post number 4.

BTW, the code I posted (and was corrected) only does both outside and inside borders and not diagonals.

 

[shinumon]

Oh yes.,.. it worked like a charm.... Thanks all..