اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم 

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

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

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

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

 

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

ملف العملاء.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

  • Like 6
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information