Excel // VBA / / Macro // Code needed to set a date in a cell in the contents of another cell changes

Evremonde

New Member
Joined
Sep 29, 2016
Messages
23
Hello All:

I have a spreadsheet and I need some VBA assistance. I think this is easy but we shall see. Cells E2 through E1000 may contain either OP or GS. On initial data entry, the contents of the range will be set to either OP or GS (data entry will start at E2 and proceed to E3, E4, Etc as need). After initial data entry, the contents of the range may be changed from OP to GS - or - from GS to OP. If this occurs, I need to set the date of change in another column on the same row (not sure which column yet). Any VBA code to perform this function would be appreciated.
 

Momentman

Well-known Member
Joined
Jan 11, 2012
Messages
3,963
Try something like this
1. Right click on the worksheet tab(the worksheet with the data
2. Select "View Code"
3. Paste the following code in there

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E2:E1000")) Is Nothing Then
        Range("Z" & Target.Row).Value = Time
    End If
End Sub
It updates the date in column Z
 

Forum statistics

Threads
1,081,989
Messages
5,362,581
Members
400,683
Latest member
LogChief

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top