VBA Time Stamp but only if equalling specific data validation

[Greenies08]

Hi, I am not knowledgable in VBA at all. I have found the following that works a treat to time stamp in column J when column K is not equal to nothing. BUT, I want a separate timestamp that will time stamp only when the selection in Column K is specific i.e. "3. Send to Accounts"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("H:H")) Is Nothing Then
For Each I In Intersect(Target, Columns("H:H"))
If Not IsEmpty(I) Then
I.Offset(0, 2).Value = Now
Else
I.Offset(0, 2).ClearContents
End If
Next I
End If
End Sub

Appreciate anyone's brain power and will give all credibility to you

 

[Fluff]

Where do you want the other time stamp?

 

[Greenies08]

Column K, sorry I see a made a mistake in saying the data validation was in Column K, it's actually in Column H as per the VBA.

So, column H has a drop down menu.
When ever it is changed, Column J will auto date/time stampthat it was the last amendment.
I was Column K to date/time stamp when Column H has onlybeen changed to an option i.e. “3. Send to Accounts”

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Columns("H:H")) Is Nothing Then
      For Each i In Intersect(Target, Columns("H:H"))
         If Not IsEmpty(i) Then
            i.Offset(0, 2).Value = Now
         ElseIf i.Value = "3. Send to Accounts" Then
            i.Offset(, 3).Value = Now
         Else
            i.Offset(0, 2).ClearContents
         End If
      Next i
   End If
End Sub

 

[Greenies08]

That doesn’t work, would the ElseIf i.Value not be h instead as that’s where the “Send to Accounts” is?

 

[Fluff]

What si the exact value you want to check for & where is it?

 

[Greenies08]

Sorry, you are being so kind and I’m probably not makingsense.

I have 4 columns:
H – has data validation in
I – is not to be used
J – I want to date/time stamp the latest change selected inColumn H
K – I want to date/time stamp only the latest time “3. Sent toAccounts” is selected in H

 

[Fluff]

In that case the code should work, as long as H is exactly "3. Send to Accounts", check that you don't have any leading/trailing spaces & that the internal spaces are single spaces.

 

[Greenies08]

Def not producing date/time stamp into column K, Column J working perfect

 

[Fluff]

Have you seen post#8?