osamram

لقد بدأت أشعر أن ما اطلبه مستحيلاً . أين الحل ؟

يبدو أنك أنشغلت عنا يا استاذ محمد لعل المانع خيراً إن شاء الله عموما لازلت انتظر ردك الكريم على موضوعى هذا ؟

أخى ابو اسامة العينبوسي أرسل لك الملف الذى به المشكلة مرة أخرى وبه توضيح ما أريد فى الشيت الثانى منه وأرجو أن يصل ما اريد وأن يتسع صدرك لى أنت وكل خبرائنا وكل من يستطيع حل هذه المشكلة .CONTROL1.rar

أين انتم يا خبرائنا لقد مللت النداء ولا أعتقد أن الامر صعب على من يفهم فى الأكواد أو الفيجوال بيسك كل ما أطلبه هو أن يكون الفرز فى عمود B يشمل الخلايا التى قيمتها أكبر من الصفر فقط والكود موجود جاهز فى المرفقات ولكنى لم أستطع عمله أملى كبير فى أخوانى بهذا المنتدى العظيم .

أين أنت يا عزيزى محمد عسكر ؟

اين أنت يا استاذ نزار ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

أين أنت يا عزيزى محمد عسكر ؟

يا خبرائنا الغوث ؟؟؟؟؟؟؟؟؟؟؟؟؟

شكراً على اهتمامك بالرد يا استاذ محمد عسكر وارجو سرعة الحل إن أمكن

إذا كان الاستاذ نزار مشغول عنا هل من مجيب لهذه المشكلة ؟

???????????????????????????????????

أنا لا زلت منتظر ردك يا استاذ محمد عسكر ارجو أن ترى الملف المرفق

اين أنت يا استاذ نزار ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

كان الأخ محمد عسكر قد تفضل وقدم طريقة لإدراج الطلاب فى اللجان وهى طريقة جبارة ولكنى عجزت عن فهمها لهذا ارسل له هذا الملف الجاهز وفيه صفحة ( List03 ) تحتاج إلى هذه الطريقة بنفس هذا المتغير طبعا لجلب الطلاب من الصفحتان السابقتان لها فى كشوف المناداة مع الحفاظ على تنسيق وشكل الصفحات الموجودة بالملف المرفق . كما اطمع فى أصعب طلب من الاستاذ محمد عسكر والاستاذ أبو أسامة وكل عباقرة المنتدى فى حل المشكلة الثانية بنفس هذا الملف المرفق وهى جلب درجات الطلاب وبياناتهم هلى اساس الفصل وادراجها تلقائياً فى الشيت الأخير بالملف أيضا مع الحفاظ على التنسيقات الموجودة به . اتمنى من الله ان تساعدنى عباقرة المنتدى سريعا فى هذا العمل المتواضع . وللجميع جزيل الشكر والتقدير منى . ____.rar

استاذنا ومشرفنا الغالى الاستاذ نزار :كنت قد اثقلت عليك من فتره فى موضوع فرز مع الحماية وتفضلت حضرتك بحلها بطريقة سحرية ولكنى لم استوعبها فى ذلك الوقت ونظراً لإنشغالى فى كنترول المدرسة والامتحانات لم ادرسها بوضوح إلا الأن والحمد لله استوعبتها بنجاح وللك جزيل الشكر والعرفان على هذا العمل الغالى . وواجهتنى الان مشكله صغيره أعرف أنك ( إن شاء الله ) سوف تحلها لى وهى أن الكود السابق فى الملف يجعل الفرز على أساس العمود B وهذا جيد ولكنى حينما اربط عدة صفحات ببعضها ( وقد ارفقت لك مثالى السابق وحديثى هنا اقصد به الشيت الثانى فى هذا الملف ) أجد أن الفرز يدخل رقم الصفر الدال على ربط الصفحات ببعضها ضمن الفرز وهذا يخل بشكل الفرز . باختصار حتى لا أطيل عليك أريد طريقة لاضافة جملة ( الفرز فى عمود B يشمل الخلايا التى قيمتها أكبر من الصفر فقط ) هذا طبعا على شكل تكملة للكود الموجود حالياً بالملف المرفق الذى تفضلت انت بتصميمه . ولك وافر الشكر والعرفان واتمنى ان يكون الرد سريعاً وعموما هذا هو الكود الذى تفضلت وارسلته : Sub Rectangle1_Click() ' ' Rectangle1_Click Macro ' Macro recorded 4/17/2007 by neid ' ' MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet Dim myTable As Range Dim myColToSort As Long Dim curWks As Worksheet Dim mySortOrder As Long Dim LastRow As Long Dim iCol As Integer Dim strCol As String iCol = 20 '10 columns strCol = "B" ' column to check for last row Set curWks = ActiveSheet With curWks myColToSort = .Shapes(Application.Caller).TopLeftCell.Column LastRow = .Cells(.Rows.Count, strCol).End(xlUp).Row Set myTable = .Range("A9:B" & LastRow).Resize(, iCol) If .Cells(myTable.Row + 1, myColToSort).Value _ < .Cells(LastRow, myColToSort).Value Then mySortOrder = xlDescending Else mySortOrder = xlAscending End If myTable.Sort key1:=.Cells(myTable.Row, myColToSort), _ order1:=mySortOrder, _ header:=xlYes End With End Sub CONTROL1.rar