عمل قائمة فرعية من قائمة رئيسية بالنسبة للعربيات

[aboezz623]

الملف المرفق يوضح المطلوب

123.xlsx

بحثت كثيراً عن هذا الأمر ولا يوجد حل برجاء المساعدة من خبراء الأكسيل

[محمد غطفان]

تفضل

جرب الملف المرفق

123.xlsm

تم تعديل ديسمبر 18, 2018 بواسطه محمد غطفان

[سليم حاصبيا]

بعد ان احي محمد هذا الملف

الكود

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$D$4" Then
Data_Val
End If
Application.EnableEvents = True
End Sub

'===============================
Sub Data_Val()
Dim i%: i = 2
Dim check As Boolean
Dim arr
Dim MY_ST: MY_ST = [d4]
 check = IsError(Application.Match(MY_ST, Range("a2:a500"), 0))
   If Not check Then
Dim rg As Object
Set rg = CreateObject("system.collections.arraylist")
With rg
 Do Until Range("a" & i) = vbNullString
  If Range("a" & i) = MY_ST Then
  If Not .contains(Range("B" & i).Value) Then .Add Range("B" & i).Value
  End If
 i = i + 1
 Loop
 .Sort
 arr = .toarray
 arr = Join(arr, ",")
 End With
 Range("E4") = vbNullString
 With Range("E4").Validation
 .Delete
 .Add xlValidateList, Formula1:=arr
 End With
  Else
  MsgBox "This data" & Chr(10) & MY_ST & Chr(10) & "Does'not Exits in then table", 64
  With Range("E4")
  .Value = vbNullString
  .Validation.Delete
  End With
  End If
End Sub

الملف مرفق

 

Carburant.xlsm

[aboezz623]

شكراً جداً @سليم حاصبيا ع الإهتمام بالموضوع

للأسف الكود لا يعمل

وياريت تكون دالة حتى يسهل عليا فهمهــا

[aboezz623]

شكراً جداًُ @محمد غطفانع الإهتمام بالموضوع

للأسف الدالة لا تعمل مع العلم انى استخدم اكسل 2010

 

[Ali Mohamed Ali]

يعمل الكود معى بكل كفاءة يمكن المشكلة من عندك اخى الكريك

بارك الله فيك استاذ سليم كود رائع احسنت

[aboezz623]

وكيف أستاذنا الكبير @ali mohamed ali  أعلم اين المشكلة

مع العلم أنى والله أحبك فى الله

[aboezz623]

شكــراً جداً جداً أستاذ @سليم حاصبيا الملف المرفق لم يعمل معى وعند أخذ الكود وإضافته على الملف الأصلى تم تشغيلة بنجاح شكراً جداً

 

[سليم حاصبيا]

جرب الكتابة في الخلية  D4  ثم حدد الخلية الصفراء و انظر الى النتيجة

اذا كان ما كتبته في الخلية فيD4  موجودأ في العمود A يتم تعيئة القائمة المنسدلة(الخلية الصفراء) واذا لم يكن موجوداً

تحصل على رسالة حطأ ثم فراغ في الخلية الصفراء