Results 1 to 3 of 3

Thread: How to find out if rows are consecutive in a given range

  1. #1
    Board Regular
    Join Date
    Aug 2016
    Posts
    153
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default How to find out if rows are consecutive in a given range

    I need to determine if the cells that a user selects are consecutive, in terms of the rows. I have been trying to write a function to determine this (and return either TRUE or FALSE), but I am having a very hard time figuring out how to do it.

    I know how to get what cells the user has selected. I use Selection.Address. Let’s say that Selection.Address equals the following:

    “$B$1,$C$5,$F$3,$C$2:$E$2,$D$4,$B$6:$B$8,$C$9:$E$9,$F$10:$F$14,$E$15,$C$15,$B$16,$C$17,$E$18”

    Now I need to figure out if all the rows that are selected are consecutive. (In this instance, they are. There is at least one cell highlighted in Rows 1 – 18.) I cannot figure out how to write the code to determine it. One idea I had was to treat each range between the commas independently, getting the row(s) they include, and then combine the results in an array, and then somehow check the array to see if the numbers are consecutive. But I can't figure out how to do this. I'm also thinking there's probably an easier way that I'm just not seeing.

    Any help would be greatly appreciated.

  2. #2
    Board Regular
    Join Date
    Dec 2008
    Posts
    6,736
    Post Thanks / Like
    Mentioned
    8 Post(s)
    Tagged
    0 Thread(s)

    Default Re: How to find out if rows are consecutive in a given range

    Something like
    Code:
    If Application.Union(Selection.EntireRow, Selection).Areas.Count = 1 Then
        'rows are consecutive
    Else
        'rows are not consecutive
    End If

  3. #3
    Board Regular
    Join Date
    Aug 2016
    Posts
    153
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default Re: How to find out if rows are consecutive in a given range

    That worked great! Thank you so much!!!

Some videos you may like

User Tag List

Tags for this Thread

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
  •