delete empty rows
Find bottlenecks in your Excel workbooks
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 4 of 4

Thread: delete empty rows

  1. #1
    Board Regular
    Join Date
    Feb 2002
    Location
    Los Angeles, CA
    Posts
    752
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    I have a macro that deletes empty rows and it works fine, however. I don't think it will delete a cell that has a boarder. Is there any way to delete a empty row even though it has a boarder. I am not a big wiz on macros.

    Please help, Thanks

  2. #2
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Post your code. I have no clue why your macro would ignore a cell with a border.
    Tom

  3. #3
    Board Regular
    Join Date
    Apr 2002
    Location
    Nashua NH
    Posts
    164
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-05 16:21, Parra wrote:
    I have a macro that deletes empty rows and it works fine, however. I don't think it will delete a cell that has a boarder. Is there any way to delete a empty row even though it has a boarder. I am not a big wiz on macros.

    Please help, Thanks

    I cannot help you with your code problem. However, I am interested in how you delete those blank rows. We are presently hiding rows in order to make a form work. Deleting them would make it ideal. Any help in this matter greatly appreciated.


  4. #4
    Board Regular
    Join Date
    Feb 2002
    Location
    Los Angeles, CA
    Posts
    752
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

      
    Below is the code. Someone from this website gave it to me and it works great. I am just having problems integrating it with another macro.

    Sub DeleteEmptyRows()
    LastRow = ActiveSheet.UsedRange.Row - 1 + _
    ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = LastRow To 1 Step -1
    If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
    End Sub


User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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

 

 
DMCA.com