How to highlight today's input

[feelkg211]

In work, we have a table where in the first row is a list of the products and the first column are days of the week. Here, we list the amount of items per product needed to be delivered in the week. We do this daily. Is there a way to only highlight the cells that we edited/put numbers in for today?

Thank you very much!

 

[feelkg211]

Here is a photo for sample

 

[feelkg211]

Imgur: The most awesome images on the Internet

 

[JoeMo]

See if this does what you want. This is sheet code for the worksheet that holds the table. It assumes the layout shown in your image. At the start of each day, double-click cell A1 on that sheet to clear the color fill from the previous day's use.
To install the code:
1. Right-click the worksheet tab you want to apply it to and choose 'View Code'. This will open the VBE window.
2. Copy the code below from your browser window and paste it into the white space in the VBE window.
3. Close the VBE window and Save the workbook. If you are using Excel 2007 or a later version do a SaveAs and save it as a macro-enabled workbook (.xlsm file extension).
4. Make sure you have enabled macros whenever you open the file or the code will not run.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Range("B3:K9").Interior.Color = xlNone
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("B3:K9")) Is Nothing Then
    For Each c In Intersect(Target, Range("B3:K9"))
        Target.Interior.ColorIndex = vbYellow
    Next c
End If
End Sub

 

[Logit]

JoeMo:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("B3:K9")) Is Nothing Then
    For Each c In Intersect(Target, Range("B3:K9"))
[B][COLOR=#ff0000]        Target.Interior.Color = vbYellow[/COLOR][/B]
    Next c
End If
End Sub

 

[JoeMo]

JoeMo:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("B3:K9")) Is Nothing Then
    For Each c In Intersect(Target, Range("B3:K9"))
[B][COLOR=#ff0000]        Target.Interior.Color = vbYellow[/COLOR][/B]
    Next c
End If
End Sub

Oops, good catch Logit. Note to the OP - make the change shown in red in Post #5.

 

[feelkg211]

I underestimated the difficulty of the code.

Here's an actual photo of our file. (I had to hide certain names) could you please walk me through it step by step? As you can see our excel is in Japanese

<strike></strike>http://imgur.com/a/Md5eg<strike></strike>

 

[JoeMo]

I underestimated the difficulty of the code.

Here's an actual photo of our file. (I had to hide certain names) could you please walk me through it step by step? As you can see our excel is in Japanese

Imgur: The most awesome images on the Internet

Walk you through what? Can you explain what you mean by "underestimated the difficulty of the code"?

 

[feelkg211]

Walk you through what? Can you explain what you mean by "underestimated the difficulty of the code"?

The first example I gave seems to be too simple in comparison to my actual file. Will the code still be applicable despite this difference? Could you walk me through step by step, like where the buttons are located, which one to click, because my excel in the office is in Japanese and I am still learning the language.

Thank you so much!!

 

[JoeMo]

The first example I gave seems to be too simple in comparison to my actual file. Will the code still be applicable despite this difference? Could you walk me through step by step, like where the buttons are located, which one to click, because my excel in the office is in Japanese and I am still learning the language.

Thank you so much!!

Best to tell us what you really need rather than waste time on "examples" that don't reflect real life. The code I gave you will run automatically when a change is made to any cell in the target range - there are no buttons. So, tell what range you want to monitor for changes? The code I posted, based on your image, is monitoring B3:K9.