Results 1 to 4 of 4

Multiple Worksheet Changes in 1 sheet

Threaded View

  1. #1
    Registered User
    Join Date
    10-13-2011
    Location
    phoenix
    MS-Off Ver
    Excel 2011
    Posts
    5

    Multiple Worksheet Changes in 1 sheet

    Hey All,

    I need help getting these two worksheet changes into one sheet, which means I have to combine them and I can't, for the life of me, figure out how to do this. Any help would be greatly appreciated. It's the same code except for different columns.

    Thanks,
    Brian


    Private Sub Worksheet_Change(ByVal Target As Range)
        With Target
            If .Cells.Count > 1 Then Exit Sub
            If Intersect(.Cells, Me.Range("C:C")) Is Nothing Then Exit Sub
            .Offset(0, -2).Value = Now      '''''' or  Now
            
        End With
    End Sub
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        With Target
            If .Cells.Count > 1 Then Exit Sub
            If Intersect(.Cells, Me.Range("f:f")) Is Nothing Then Exit Sub
            .Offset(0, -4).Value = Now      '''''' or  Now
            
        End With
    End Sub
    Last edited by foxbd; 03-29-2013 at 05:36 PM. Reason: Solved

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