Worksheet change value in one sheet, enter date stamp in another sheet when ID matches

**rose8693** · 03-15-2021, 10:26 AM

Just like the title says.

I have 2 sheets, Stats and Chores. Stats contains the RefID (column A), the date the chore is due to be completed (Column B), when the Chore is completed (column C), what the chore is (column D), how frequently the chore occurs (Column E) which counts in days, and when the chore is next due (Column F). Column C is where I want the Date stamp to show.

In the chores sheet, it has the ID # (column A), the chore (Column B) which will show based on the dates established in Column E and F, and the status of the Chore (Column C).

So, what I'm trying to do is get it so if I enter x in status (column C) of the chores sheet, the macro will check if the ID in the chores sheet matches the refID in Stats and then enter the date stamp of that chore in (Column C) of the Stats sheet.

So far with all the code, I've tried, when I do to get it to work, more or less. It will enter the date stamp for the range I have established for the intersect of the chores sheet in the stats sheet, or it will enter the date stamp in the cell of the stats sheet that the change was made on the chores sheet. If you test the code in the workbook I uploaded you'll see what I mean.

I've tried a For loop to cycle through the chores and match the IDs, but that's what normally when it enters the date stamp for the range.

My head says this should be simple, but my code has pretty much been flipping me the bird every which way I try this.

Help me excelForum your my only hope.

The workbook should be uploaded with this post, if not let me know, or if you have any additional questions.

**Mumps1** · 03-15-2021, 11:26 AM

Try:

Please Login or Register  to view this content.

**Marc L** · 03-15-2021, 11:38 AM

According to your attachment a VBA event to paste to the Sheet2 (Chores) worksheet module :

PHP Code:


Private Sub Worksheet_Change(ByVal Target As Range) 
            Dim Rf As Range 
    If Target(1).Column = 3 And Target(1).Text = "x" Then 
            Set Rf = Sheet1.UsedRange.Columns(1).Find(Target(1, -1).Value2, , xlValues, xlWhole) 
             If Rf Is Nothing Then Beep Else Rf(1, 3).Value = Date: Set Rf = Nothing 
    End If 
End Sub

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

**rose8693** · 03-15-2021, 12:45 PM

This worked perfectly. You're awesome. Thank you so much. I knew it couldn't be as complicated as I was making it. You're a God among coders.

**Mumps1** · 03-15-2021, 12:49 PM

You are very welcome.

(If you are referring to my suggestion.)

**Marc L** · 03-15-2021, 12:52 PM

Ok Rose, so thanks to click on the bottom left star icon « ★ Add Reputation » !

Worksheet change value in one sheet, enter date stamp in another sheet when ID matches

LinkBack

Thread Tools

Rate This Thread

Display

Worksheet change value in one sheet, enter date stamp in another sheet when ID matches

Re: Worksheet change value in one sheet, enter date stamp in another sheet when ID matches

Hi, try this !

Re: Hi, try this !

Re: Worksheet change value in one sheet, enter date stamp in another sheet when ID matches

Thread Information

Users Browsing this Thread

Similar Threads

Date Stamp for value change due to formula. - Worksheet Calculate ?

[SOLVED] If Text Description matches info on w/sheet then enter corresponding $

[SOLVED] Date stamp in Sheet 2 when cell value changes in Sheet 1

Stamp date Sheet upon Change of value in another sheet

Date Stamp On Worksheet Change

Enter Three Worksheet Change Codes on one Sheet

I need a date stamp that doesn't change when you enter text

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions