Excel : EP111 | ทำ dropdown list แบบตัดตัวซ้ำออก!! ด้วย Code ง่ายๆ คัดลอกไปใช้ได้เลย..ง่ายๆๆมากกกๆๆ

#dropdownlistแบบตัดตัวซ้ำ #duplicatedropdownlist #ปุ่มdropdownexcel

-----วิธีการใช้เข้าใจแล้ว code นี้ คัดลอกไปใช้เลยครับ------

Private Sub Workbook_Open()
Sheet1.Range("productgroup").Copy
Sheet1.Range("$E2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("showlist").RemoveDuplicates Columns:=1, Header:=xlYes 'xlNo
End Sub
-----------------------------

Private Sub ComboBox1_DropButtonClick()
Sheet1.ComboBox1.List = Application.Range("showlist").Value
End Sub

---------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheet1.Range("productgroup").Copy
Range("E2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("showlist").RemoveDuplicates Columns:=1, Header:=xlYes
Target.Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End If

End Sub