aboezz623 قام بنشر ديسمبر 18, 2018 مشاركة قام بنشر ديسمبر 18, 2018 الملف المرفق يوضح المطلوب 123.xlsx بحثت كثيراً عن هذا الأمر ولا يوجد حل برجاء المساعدة من خبراء الأكسيل رابط هذا التعليق شارك More sharing options...
محمد غطفان قام بنشر ديسمبر 18, 2018 مشاركة قام بنشر ديسمبر 18, 2018 (معدل) تفضل جرب الملف المرفق 123.xlsm تم تعديل ديسمبر 18, 2018 بواسطه محمد غطفان رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 18, 2018 مشاركة قام بنشر ديسمبر 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 1 رابط هذا التعليق شارك More sharing options...
aboezz623 قام بنشر ديسمبر 18, 2018 الكاتب مشاركة قام بنشر ديسمبر 18, 2018 شكراً جداً @سليم حاصبيا ع الإهتمام بالموضوع للأسف الكود لا يعمل وياريت تكون دالة حتى يسهل عليا فهمهــا رابط هذا التعليق شارك More sharing options...
aboezz623 قام بنشر ديسمبر 18, 2018 الكاتب مشاركة قام بنشر ديسمبر 18, 2018 شكراً جداًُ @محمد غطفانع الإهتمام بالموضوع للأسف الدالة لا تعمل مع العلم انى استخدم اكسل 2010 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 18, 2018 مشاركة قام بنشر ديسمبر 18, 2018 يعمل الكود معى بكل كفاءة يمكن المشكلة من عندك اخى الكريك بارك الله فيك استاذ سليم كود رائع احسنت 1 رابط هذا التعليق شارك More sharing options...
aboezz623 قام بنشر ديسمبر 18, 2018 الكاتب مشاركة قام بنشر ديسمبر 18, 2018 وكيف أستاذنا الكبير @ali mohamed ali أعلم اين المشكلة مع العلم أنى والله أحبك فى الله رابط هذا التعليق شارك More sharing options...
aboezz623 قام بنشر ديسمبر 18, 2018 الكاتب مشاركة قام بنشر ديسمبر 18, 2018 شكــراً جداً جداً أستاذ @سليم حاصبيا الملف المرفق لم يعمل معى وعند أخذ الكود وإضافته على الملف الأصلى تم تشغيلة بنجاح شكراً جداً 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 18, 2018 مشاركة قام بنشر ديسمبر 18, 2018 جرب الكتابة في الخلية D4 ثم حدد الخلية الصفراء و انظر الى النتيجة اذا كان ما كتبته في الخلية فيD4 موجودأ في العمود A يتم تعيئة القائمة المنسدلة(الخلية الصفراء) واذا لم يكن موجوداً تحصل على رسالة حطأ ثم فراغ في الخلية الصفراء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.