Combining Codes For Work Project

Tubatrombonekid

New Member
Joined
Mar 21, 2019
Messages
1
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
LZoom:
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
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If Target.Column = 3 Or True Then
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
Target.Value = oldVal _
& ", " & newVal


End If
End If
End If
End If


exitHandler:
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.
 

Some videos you may like

Excel Facts

Last used cell?
Press Ctrl+End to move to what Excel thinks is the last used cell.

Watch MrExcel Video

Forum statistics

Threads
1,108,614
Messages
5,523,916
Members
409,542
Latest member
Shezz01

This Week's Hot Topics

Top