Consulting

Results 1 to 3 of 3

Thread: Return to Cell in Column A after entering value in Column Z

  1. #1

    Return to Cell in Column A after entering value in Column Z

    Hi,

    I've been struggling with coming up with VBA code so that anytime a value is entered in column Z that the cursor returns to column A one row below where the entry was in Z.

    Example : Cell Z5 Value = 1.5

    After entering that value it then returns to cell A6.

    Does anyone have any ideas if this is possible & how to do it?

    Thanks!

  2. #2
    VBAX Sage
    Joined
    Apr 2007
    Location
    United States
    Posts
    8,711
    Location
    Put this in the worksheet code module for the affected sheet


    Option Explicit
    
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        With Target.Cells(1, 1)
            If .Column <> 26 Then Exit Sub
            Application.Goto .Offset(1, -25), False
        End With
    End Sub
    Attached Files Attached Files
    ---------------------------------------------------------------------------------------------------------------------

    Paul


    Remember: Tell us WHAT you want to do, not HOW you think you want to do it

    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

  3. #3
    Quote Originally Posted by Paul_Hossler View Post
    Put this in the worksheet code module for the affected sheet


    Option Explicit
    
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        With Target.Cells(1, 1)
            If .Column <> 26 Then Exit Sub
            Application.Goto .Offset(1, -25), False
        End With
    End Sub
    Excellent. I was using an activecell formula similar but it wasn't working. This is perfect. Thanks for the help!

Posting Permissions

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