طلب -عمل اكثر من ComboBox فى نفس الملف لقائمة منسدلة

[احمد عبدة]

مرفق ملف لاحد الاخوة الافاضل 

بعمل قائمة منسدلة بcombobox وبحثية فى نفس الوقت

طلب من الاستاذة الافاضل بشرح الكود مع امكانية اضافة اكثر من اداة combo

ولكم تحياتى

 

اقتباس

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    .LinkedCell = ""
    .Clear
    .Visible = False
End With
If Intersect(Target, Range("D3:D27")) Is Nothing Then
    Exit Sub
End If
If Target.Cells.Count <> 1 Then
    Exit Sub
End If
Set Sh2 = æÑÞÉ2
iLastRow2 = Sh2.Cells(Rows.Count, "a").End(xlUp).Row + 1
With ComboBox1
    .Top = Target.Top
    .Left = Target.Left
    .Width = Target.Width
    .Height = Target.Height
    .LinkedCell = Target.Address
    .List = Sh2.Range("A2:A" & iLastRow2).Value
    .Visible = True
    .Activate
End With
SendKeys "%{DOWN}"
End Sub

 

combobox.rar

[احمد عبدة]

متابع