Results 1 to 2 of 2

Double click cell to jump to new sheet

Threaded View

  1. #1
    Registered User
    Join Date
    03-04-2011
    Location
    USA
    MS-Off Ver
    Excel 2010
    Posts
    28

    Double click cell to jump to new sheet

    Hey everyone, I know I am really close here..I have the code working except for the second part where I need the double click to work on not just one cell but on a range of cells..So instead of jumping to the Notes page when I double click A13 I want it to work when I click on any cell in the range of A13:A250

    Here is the code..Any help would be greatly appreciated.. thanks

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Dim rInt As Range
    Dim rcell As Range
    
    Set rInt = Intersect(Target, Range("B10:B250"))
    If Not rInt Is Nothing Then
        For Each rcell In rInt
            rcell.Value = "2"
        Next
        
    End If
    
       If Target.Address = "$A$13" Then
            Cancel = True
            Worksheets("Notes").Activate
            ActiveSheet.Range("A1").Select
    End If
    
    Set rInt = Nothing
    Set rcell = Nothing
    Cancel = True
    
    
    End Sub
    Last edited by davesexcel; 03-04-2011 at 08:49 PM.

Thread Information

Users Browsing this Thread

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

Tags for this Thread

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