ahmed25 قام بنشر أكتوبر 6, 2016 قام بنشر أكتوبر 6, 2016 كيف يمكن عمل فلتر للصفوف من خلال اسم شركة من القائمة المنسدلة بدلالة خلية والغاء الفلتر ايضا وذلك حسب الملف المرفق. ولكم جزيل الشكر والتقدير ،،، فلتر جدول بالكود.rar
أبو حنــــين قام بنشر أكتوبر 6, 2016 قام بنشر أكتوبر 6, 2016 مرحبا هل بهذه الطريقة فلتر جدول بالكود.rar
ناصر حسان قام بنشر أكتوبر 7, 2016 قام بنشر أكتوبر 7, 2016 استاد ابو حنين لك التحية بارك اللة بيك ويجعلة فى ميزان حسناتك
ahmed25 قام بنشر أكتوبر 8, 2016 الكاتب قام بنشر أكتوبر 8, 2016 (معدل) أبو حنــــين جزاك الله خير وبالتوفيق دائما. نعم هذا ما كنت اريده ولك مني جزيل الشكر والتقدير ولكن ارجو منك شرح للكود حتى ازيد المدى في عدد الصفوف تم تعديل أكتوبر 8, 2016 بواسطه ahmed25 تعديل التعليق
ahmed25 قام بنشر أكتوبر 11, 2016 الكاتب قام بنشر أكتوبر 11, 2016 في 06/10/2016 at 17:05, أبو حنــــين said: مرحبا هل بهذه الطريقة فلتر جدول بالكود.rar السلام عليكم السلام عليكم ممكن التعديل على الملف لاخفاء الصفوف الفارغة في نفس المدى في العمود A وذلك عند اختيار جميع الشركات من القائمة المنسدلة وشكرا جزيلا ،،،
أبو حنــــين قام بنشر أكتوبر 11, 2016 قام بنشر أكتوبر 11, 2016 (معدل) السلام عليكم اولا قم بتحويل المعادلة الموجودة في الخلية A1 بهذا الشكل =IFERROR(VLOOKUP(Sel;M4:N8;2;0);"") ثانيا غير الكود السابق بهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1") = 0 Then GoTo 100 If Range("A1") = "" Then GoTo 200 If Target.Address = Range("A2").Address Then _ Range("A3:K21").AutoFilter Field:=1, Criteria1:="=" & Range("A1") Exit Sub 100 Range("A3:K21").AutoFilter Field:=1, Criteria1:="<>" & "" Exit Sub 200 Range("A3:K21").AutoFilter End Sub ============== عندما تريد رؤية كل البيانات بما فيها الصفوف الفارغة إمسح الخلية التي تختارمنها الشركات ( A2 ) التي اسمها Sel تم تعديل أكتوبر 11, 2016 بواسطه أبو حنــــين 2
ahmed25 قام بنشر أكتوبر 11, 2016 الكاتب قام بنشر أكتوبر 11, 2016 (معدل) جزاك الله خير أبو حنــــين وربنا يزيدك ويوفقك على عمل الخير كنت عايز افهم ما معنى GoTo 100 GoTo 200 تم تعديل أكتوبر 11, 2016 بواسطه ahmed25 ايضاح السؤال
الردود الموصى بها