Results 1 to 3 of 3

Having an issue with .Activate...

Threaded View

  1. #1
    Forum Contributor
    Join Date
    04-11-2012
    Location
    Canada
    MS-Off Ver
    Excel 2007 & 2010
    Posts
    100

    Having an issue with .Activate...

    my goal is to find a name in a range and offset one spot to the right to get my value... Receiving error 9

    Private Sub findingvalue_Click()
            'Unit Number
            Dim a1 As Range
            Dim test As String
            Dim findvalue As String
            findvalue = Sheets("Request Form").Range("D23").Value
            Set a1 = Sheets("Ranges").Range("D1:D10000").Find(findvalue)
                If a1 Is Nothing Then
                    Else
                    a1.Activate 'THIS IS WHERE THE ERROR IS
                    test = ActiveCell.Offset(0, 1).Value
                    MsgBox (test)
                End If
    End Sub
    anybody know what iam doing wrong?
    Last edited by questionguy; 10-23-2012 at 03:31 PM.

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