+ Reply to Thread
Results 1 to 3 of 3

Selecting area from a5 untill biggest cell

Hybrid View

  1. #1
    Registered User
    Join Date
    10-17-2007
    Posts
    62

    Selecting area from a5 untill biggest cell

    Hi all,

    I want my macro to select area starting from a5 and stopping to a cell covering biggest column and row value.

    I have found the code below to look for the biggest cell, but I don't know how to select the area beginning from a5 ending to this biggest cell.

    Private Sub FindLastCell()
    
    Dim LastColumn As Integer
    Dim LastRow As Long
    Dim LastCell As Range
    
        If WorksheetFunction.CountA(Cells) > 0 Then
    
            'Search for any entry, by searching backwards by Rows.
    
            LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
            'Search for any entry, by searching backwards by Columns.
    
                    LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
                    'MsgBox Cells( LastRow, LastColumn).Address
                    Range("LastRow & LastColumn").Select
                    
        End If
    End Sub
    Hope someone can help me out with this simple question.

    Best regards,

    Juhanen

  2. #2
    Forum Expert royUK's Avatar
    Join Date
    11-18-2003
    Location
    Derbyshire,UK
    MS-Off Ver
    Xp; 2007; 2010
    Posts
    26,200
    By biggest cell, do you mean the last cell in the data? The simplest way would be:

    Dim rng As Range
    Set rng = Range(Cells(5, 1)).CurrentRegion
    Hope that helps.

    RoyUK
    --------
    For Excel Tips & Solutions, free examples and tutorials why not check out my web site

    Free DataBaseForm example

  3. #3
    Registered User
    Join Date
    10-17-2007
    Posts
    62
    Hi,

    By biggest cell I mean the cell which column AND row is equally big as the last used row and column in the sheet.

    And thanks for the code, but it doesn't seem to work properly. However I figured out how to use LastRow and LastColumn values from my code.

    So the code which does this when I include it to my first post (see also the code in my first post) is:

    Range("a5", Cells(LastRow, LastColumn)).Select

    Thanks, everything is clear now

    Juhanen

+ 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