+ Reply to Thread
Results 1 to 4 of 4

code to fill in missing border lines

  1. #1
    Jack Sons
    Guest

    code to fill in missing border lines

    Hi all,

    In some rows (I can't predict which ones) between rownumber 2 an 120 the
    cells in the ranges A : N have a thick lower border (Borders(xlEdgeBottom)
    and Weight = xlThick).

    In some cases there can occur a gap (in columns F and M only).

    What is the most efficient code to "repair" these gaps?

    TIA

    Jack Sons
    The Netherlands



  2. #2
    Dave O
    Guest

    Re: code to fill in missing border lines

    Do you really need code for this? Seems like it would be easier to
    highlight that range and apply thick borders.


  3. #3
    Jack Sons
    Guest

    Re: code to fill in missing border lines

    Dave,

    Sure, but othe people will open it (it is made by code anew every time it is
    opened) and it is not nice to present a spreadsheet with the gaps I
    mentioned.

    Jack.

    "Dave O" <[email protected]> schreef in bericht
    news:[email protected]...
    > Do you really need code for this? Seems like it would be easier to
    > highlight that range and apply thick borders.
    >




  4. #4
    Dave O
    Guest

    Re: code to fill in missing border lines

    Here's an idea: you might record the macro that will apply borders, and
    then add that specific code at the bottom of the macro that runs every
    time the file opens. The additional lines of code would look something
    like this:

    Range("A2:N120").Select
    With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThick
    End With
    Range("A1").Select


+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1