T
Tech_Wolf
I need to be able to select multiple entries from a drop down tab that
references a named list elsewhere in the workbook. I am able to get the drop
down tab to funtion, however it refuses to project those selections into a
different cell, or select multiple entries from the list. I have tried
various sample codes, as suggested in other posts, however when I copy that
code over to my spreadsheet, it does not work. I can provide the specific
files if need
be. Any suggestions?
Heres the code I'm currently using
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exitHandler
Dim rngDV As Range
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
If Target.Column = 3 Then
If Target.Value = "" Then GoTo exitHandler
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Target.Value
Else
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value _
& ", " & Target.Value
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
references a named list elsewhere in the workbook. I am able to get the drop
down tab to funtion, however it refuses to project those selections into a
different cell, or select multiple entries from the list. I have tried
various sample codes, as suggested in other posts, however when I copy that
code over to my spreadsheet, it does not work. I can provide the specific
files if need
be. Any suggestions?
Heres the code I'm currently using
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exitHandler
Dim rngDV As Range
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
If Target.Column = 3 Then
If Target.Value = "" Then GoTo exitHandler
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Target.Value
Else
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value _
& ", " & Target.Value
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub