عمل قائمة منسدلة معتمدة على قائمة اخرى

[ayman.esam90]

السلام عليكم 

مرفق طية ملف يحتوى علي بيانات العملاء 

والشيت الاخر يحتوى على العمليات تم عمل قائمة مسندلة باسم العملاء

ولكن المطلوب عمل قائمة منسدلة بارقام الجوالات الموجودة بجانب كل اسم

شكرا مرفق الشيت مع توضيح المطلوب بالشيت

 

شكرا على حسن تعاونكم 

ملف العملاء.xlsx

[مصطفى محمود مصطفى]

وعليكم السلام 

تفضل

ملف العملاء.xlsx

[Ali Mohamed Ali]

وعليكم السلام -بعد اذن الأستاذ مصطفى ولإثراء الموضوع

 

1ملف العملاء.xlsx

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

زيادة في اثراء الموضوع

هذا الكود

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Address = "$A$2" And _
 Target.Count = 1 Then
 My_validation
 End If
 Application.EnableEvents = True
End Sub
Rem================================
Sub My_validation()
Dim Bayanat As Worksheet: Set Bayanat = Sheets("البيانات")
Dim Amaliate As Worksheet: Set Amaliate = Sheets("العمليات")
Dim arr(), Ro%, t%, Col%, st$
Ro = Bayanat.Range("a:a").Find(Amaliate.Cells(2, 1)).Row
Col = Bayanat.Cells(Ro, Columns.Count).End(1).Column
  For t = 2 To Col
  ReDim Preserve arr(1 To t - 1)
   arr(t - 1) = Bayanat.Cells(Ro, t)
  Next
  st = Join(arr, ",")
  With Amaliate.Cells(2, 2).Validation
   .Delete
   .Add xlValidateList, Formula1:=st
  End With
  Amaliate.Cells(2, 2) = arr(1)
  Erase arr
End Sub

المبف مرفق

 

variable_data_val.xlsm

[وجيه شرف الدين]

بارك الله فيكم استاذتى الكرام

[ayman.esam90]

بارك الله فيكم جميعا 

شكرا لحضراتكم.