数据验证码：指定目标范围

Question

I have an excel worksheet with a table where column headers are time intervals and row headers are people's names. Each cell in the middle has a dropdown list. I inputted the code below so that the user can select more than one option from the dropdown within each cell.

The code works fine however the entire sheet is being affected by it rather than just the target range. For example, when I try to edit a cell in the column header just by hitting backspace on the cell and inputting new text...the cell formats like this: "6:30am, 7:30am" or "old value, new value"

Option Explicit

 Private Sub Worksheet_Change(ByVal Target As Range)
 ' To Select Multiple Items from a Drop Down List in Excel

  Dim Oldvalue As String
  Dim Newvalue As String

On Error GoTo Exitsub
If Target.Range("E10:V600") Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
    Application.EnableEvents = False
    Newvalue = Target.Value
    Application.Undo
    Oldvalue = Target.Value
    If Oldvalue = "" Then
        Target.Value = Newvalue
    Else
        Target.Value = Oldvalue & ", " & Newvalue
End If
End If
Application.EnableEvents = True

Exitsub:
Application.EnableEvents = True

End Sub

I can avoid this by right clicking on the cell, hitting clear contents, exiting the cell, then clicking the cell again to edit it. But I want to prevent this issue. Any idea where my code went wrong? The target range is the correct range of cells I need the code to work on. Thanks in advance for your help

Answer 1

This line: If Target.Range("E10:V600") Is Nothing Then is not correct syntax. Or maybe the syntax compiles, but it will not produce what you want.

Change it to this: If Not Instersect(Target, Me.Range("E10:V600")) Is Nothing Then

So full code becomes ption Explicit

 Private Sub Worksheet_Change(ByVal Target As Range)
     ' To Select Multiple Items from a Drop Down List in Excel

    Dim Oldvalue As String
    Dim Newvalue As String

    If Not Instersect(Target, Me.Range("E10:V600")) Is Nothing Then

        If Len(Target.Value) Then 

            Application.EnableEvents = False
            Newvalue = Target.Value

            Application.Undo

            Oldvalue = Target.Value

            If Oldvalue = "" Then
                Target.Value = Newvalue
            Else
                Target.Value = Oldvalue & ", " & Newvalue
            End If

            Application.EnableEvents = True   

        End If

    End If

End Sub