title: Excel VBA: update cell based on previous cells change
body: <p>I'm working on an Excel worksheet and using VBA to complete and update information on the cells.</p>
  
  <p>There are seven columns in the Excel table. Three of them are drop-down lists with Data Validation, which I used the following VBA code to fill them.</p>
  
  <pre><code>Private Sub TempCombo_KeyDown(ByVal _KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer)
  
      'Ocultar caixa de combinação e mover a próxima célula com Enter e Tab
  
      Select Case KeyCode
          Case 9
              ActiveCell.Offset(0, 1).Activate
          Case 13
              ActiveCell.Offset(1, 0).Activate
          Case Else
              'Nada
      End Select
  
  End Sub
  </code></pre>
  
  <p>These columns also work with autocomplete, using the code below:</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
      Dim str As String
      Dim cboTemp As OLEObject
      Dim ws As Worksheet
      Dim wsList As Worksheet
  
      Set ws = ActiveSheet
      Set wsList = Sheets(Me.Name)
  
      Application.EnableEvents = False
      Application.ScreenUpdating = False
  
      If Application.CutCopyMode Then
          'Permite copiar e colar na planilha
          GoTo errHandler
      End If
  
      Set cboTemp = ws.OLEObjects("TempCombo")
  
      On Error Resume Next
  
      With cboTemp
          .Top = 10
          .Left = 10
          .Width = 0
          .ListFillRange = ""
          .LinkedCell = ""
          .Visible = False
          .Value = ""
    End With
  
    On Error GoTo errHandler
  
        If Target.Validation.Type = 3 Then
            Application.EnableEvents = False
            str = Target.Validation.Formula1
            str = Right(str, Len(str) - 1)
            With cboTemp
                .Visible = True
                .Left = Target.Left
                .Top = Target.Top
                .Width = Target.Width + 15
                .Height = Target.Height + 5
                .ListFillRange = str
                .LinkedCell = Target.Address
           End With
           cboTemp.Activate
           'Abrir a lista suspensa automaticamente
           Me.TempCombo.DropDown
      End If
  
      errHandler:
          Application.ScreenUpdating = True
          Application.EnableEvents = True
      Exit Sub
  
  End Sub
  </code></pre>
  
  <p>Anytime I update any cell on a row, I want that the content of the seventh column of this row is updated with the current date.</p>
  
  <p>I tried using the following code, but it only works with common cells, the ones that I manually type its content. I want the seventh column to be updated when I change the drop-down list selection also.</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  
      If Target.Row = 1 Then Exit Sub
          Application.EnableEvents = False
          Cells(Target.Row, "U").Value = Date
  
  End Sub
  </code></pre>
  
  <p>Is there any way to update the content of the column as I said before? Even when I change the option selected in the drop-down list?</p>