Create borders to enter the number in InputBox

Hi.


how do I use an inputbox as follows.
opening the inputbox, if I type the number 12 will then be created borders "A1" to "H12".

If I enter in the inputbox number 29 will then be created borders "A1" to "H29".

but inside the inputbox to accept only numbers, not text!

Thank you!

Hi Marreco,

If you record a macro of adding borders to a range you will see the basic structure to do so. To prompt the user for a number-only Inputbox use:

ans = Application.InputBox("Enter a number", "Number here", , , , , , 1)

You'll then be able to adjust the code to add borders, e.g.

Sub addBorders()
Dim ans As Long
ans = Application.InputBox("How many rows to put border around?", "Add Borders", , , , , , 1)

With Range("A1:H" & ans)
    .Borders.LineStyle = xlContinuous
    .Borders.ColorIndex = 0
    .Borders.TintAndShade = 0
    .Borders.Weight = xlThin
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub

Hi. Paul

how do I create edges on all sides of the cell?

I try but it is giving error

Sub addBorders()
Dim ans As Long
ans = Application.InputBox("How many rows to put border around?", "Add Borders", , , , , , 1)

With Range("A1:H" & ans)
    .BorderAround LineStyle:=lLineStyle, Weight:=lWeight
    With .Borders(xlInsideVertical)
      .LineStyle = lLineStyle
      .Weight = lWeight
    End With
    With .Borders(xlInsideHorizontal)
      .LineStyle = lLineStyle
      .Weight = lWeight
    End With
  End With

End Sub

Remove these two lines from my code and you will have borders around every cell in the range, not just around the range itself:

.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone

it's Great!!!

very good!

thank you very much