البحث في الموقع

السلام عليكم ورحمة الله وبركاته تحيه طيبه للجميع انا جديده في التعامل مع الفيجوال بيسك سأشرح لكم مااريد وجزى الله من ساعدني خير الجزاء في الدنيا والاخره لدي ملف اكسيل متغير كل اسبوع يحتوي على الاعمده التاليه بنفس الترتيب Category Type User Name Unique ID First-Last Name Course Name Class Name Class Code Class Start Date Class End Date Vendor Name Class Location Class Actual Location Request Submitted Request Status Request Form Name Levels Required Levels Completed Escalated Managed by Class Type Email في كل مره افتح الملف يجب علي ان افلتر الملف واخذ معلومات منه احاول ان اعمل فورم بسيط بحيث بضغطه زر استطيع ان افتلر الجدول المحدد بدون ماافعله كل مره أولا أريد زر حذف جميع الصفوف التي تتوفر فيها هذي الشرطين لابد لي من حذف الصفوف اللي تحتوي على 0 من عامود Levels Completed وايظا حذف الصفوف التي تحتوي على 1 = Levels Completed و 3 = Levels Required ( لابد من توفر الشرطين في هذي النقطه ) الفورم اريد فيه1- ليست بوكس لعامود Vendor Name بحيث اختار الفندور من اللست ويظهر لي فقط مااخترته ( أريد خيار اني استطيع اختيار اكثر من فندور وليش فقط واحد ) 2- ليست بوكس لعامود Category Type بحيث ايظا استطيع اظهار الاعمده فقط اللي تحتوي على النوع الذي اريده( يوجد فقط خيارين في هذا العامود إما management أو technical ) 3- عامود Class Type وأيظا يحتوي على خيارين (internal or external ) ثم زر لما اضغطه يطبق لي جميع الخيارات المختاره ويظهر لي فقط مااخترته في أمس الحاجه للمساعده الله يفرج كربكم جميعا .. هذا الكود وجدته لحذف القيمه 0 من العامود Levels Completed Sub DeleteRowsWithX() maxRow = ActiveSheet.UsedRange.Rows.Count For i = 1 To maxRow Do While (StrComp(ActiveSheet.Cells(i, 17).Value, 0, vbTextCompare) = 0) Rows(i).Select Selection.Delete Shift:=xlUp Loop Next End Sub