Combining Codes For Work Project

Occasional Visitor

I'm kind of new at using VBA codes. I have a worksheet that so far zooms in to see the drop down list. Now I'm trying to have the VBA have a way to be able to multi select from the drop down list.

Here is the code that I am using.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20160530
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 50
If Target.Validation.Type = xlValidateList Then xZoom = 80
ActiveWindow.Zoom = xZoom
End Sub
Private Sub Worksheets_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
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
Application.EnableEvents = False
newVal = Target.Value
oldVal = Target.Value
Target.Value = newVal
If Target.Column = 3 Or True Then
If oldVal = "" Then
'do nothing
If newVal = "" Then
'do nothing
Target.Value = oldVal _
& ", " & newVal

End If
End If
End If
End If

Application.EnableEvents = True

End Sub

How can I combine this to have it do what I want. I have done a lot of research and tried different things and I am stuck.


0 Replies