bachiri401 قام بنشر سبتمبر 8, 2020 مشاركة قام بنشر سبتمبر 8, 2020 السلامن عليكم ورحمة الله وبركاته اخواني بالمنتدى بارك الله فيكم وجعل عملكم في ميزان حسناتكم اريد منكم كيفية عمل قائمة منسدلة تاخذ في الحسبان فقط القيم الظاهرة بعد التصفية وتتجاهل القيم المخفية. قائمة منسدلة مطاطية.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 8, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 8, 2020 بعد عماية الفلترة اضغط الزر Run Option Explicit Sub DATA_VAL() Dim MY_RG As Range Dim ro%, cel As Range Dim dic As Object Set dic = CreateObject("Scripting.Dictionary") Set MY_RG = Range("E4").CurrentRegion.Columns(1) If MY_RG.Rows.Count = 1 Then Exit Sub Set MY_RG = MY_RG.Offset(1).Resize(MY_RG.Rows.Count - 1) For Each cel In MY_RG.Cells If cel.EntireRow.Hidden = False Then dic(cel.Value) = "" End If Next With Range("I3").Validation .Delete .Add 3, Formula1:=Join(dic.keys, ",") End With Set MY_RG = Nothing: Set dic = Nothing End Sub الملف مرفق bashiri.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
bachiri401 قام بنشر سبتمبر 8, 2020 الكاتب مشاركة قام بنشر سبتمبر 8, 2020 بارك الله فيك أخي على هذا العمل الرائع فقط الا يمكن عمل مثل ذلك بالدوال فقط رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان