Ahmed Elbhiry قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 مطلوب فرز الورقة المرسلة (ناجح وراسب ومحول مهنى ) مطلوب فرز قائمة لهذه الورقة.zip رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 السلام عليكم نتيجة الفرز اين تريدها ان تكون في نفس الشيت ام في شيت اخر رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر يناير 5, 2012 الكاتب مشاركة قام بنشر يناير 5, 2012 اسف لتاخرى بالرد النت كان قاطع عندى والانشغال بالانتخابات (مطلوب الفرز فى نفس الصفحة او صفحة مجاورة ) وشكرا لحضرتك على الرد واسف للتأخير رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 5, 2012 مشاركة قام بنشر يناير 5, 2012 ماهو عمود الفرز ============================ حيث /ان الرفم (1) يساوى ناجح "إقتباس" ============================ في اي عمود هذا الرقم رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر يناير 5, 2012 الكاتب مشاركة قام بنشر يناير 5, 2012 انا شارح بالملف المرسل كل اللى انا عايزه عموما العمود (ap) رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 5, 2012 مشاركة قام بنشر يناير 5, 2012 (معدل) السلام عليكم الاخ الفاضل احمد السموحه منك السهر باين عليه مؤثر فينا تفضل هذا الكود Sub ALIDROOS_JC() Dim ish As Worksheet Dim SRH_ALI As Range Application.ScreenUpdating = False Range(Cells(6, 1), Cells(Rows.Count, 42)).ClearContents ALI = [A2].Value If ALI = "" Then MsgBox "سطر فارغ": [A2].Select: Exit Sub With ورقة18.Range("AP8:AP25000") Set SRH_ALI = .Find(ALI, LookIn:=xlValues) If Not SRH_ALI Is Nothing Then firstAddress = SRH_ALI.Address Do SRH_ALI.Offset(0, -41).Resize(1, 42).Copy ورقة1.Range("A6:A" & ورقة1.Range("A65536").End(xlUp).Row + 1).PasteSpecial xlPasteValues Set SRH_ALI = .FindNext(SRH_ALI) Loop While Not SRH_ALI Is Nothing And SRH_ALI.Address <> firstAddress MsgBox " تم جلب التقرير بنجاح", vbInformation, "الحمد لله" Application.ScreenUpdating = True Else MsgBox "القيمة المدخلة خطاء أعد الإدخال وتأكد من حالة الأحرف" Exit Sub End If End With End Sub وهذه المرفقات للعلم بالامكان عمل الفرز بالتصفية المتقدمة مطلوب فرز ALIDROOS.rar تم تعديل يناير 5, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر يناير 6, 2012 الكاتب مشاركة قام بنشر يناير 6, 2012 مشكور اخى ابو نصار وجدت حل لما اوريد حزاك الله خير امطلوب فرز ALIDROOS.zip رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 6, 2012 مشاركة قام بنشر يناير 6, 2012 مرفقك هو حل التصفية المتقدمة جزك الله خير رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 بارك الله لك أخي العيدروس وبناء على طلب أستاذ أحمد تم تعديل الكود ليتم استدعاؤه من صفحة أخرى ولتكن مثلا sheet3 mas_مطلوب فرز ALIDROOS.rar 1 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 السلام عليكم طرق فزر متنوعة ورائعة جدا جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر يناير 12, 2012 الكاتب مشاركة قام بنشر يناير 12, 2012 (معدل) بارك الله لك أخي العيدروس وبناء على طلب أستاذ أحمد تم تعديل الكود ليتم استدعاؤه من صفحة أخرى ولتكن مثلا sheet3 شكرا جزيلا استاذ محمد برجاء التكرم بأضافة كوذ يعيد الصفحة الى قبل الفرز تم تعديل يناير 12, 2012 بواسطه Ahmed Elbhiry رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 بارك الله لك أخي العيدروس وبناء على طلب أستاذ أحمد تم تعديل الكود ليتم استدعاؤه من صفحة أخرى ولتكن مثلا sheet3 شكرا جزيلا استاذ محمد برجاء التكرم بأضافة كوذ يعيد الصفحة الى قبل الفرز أخي الكريم استعمل هذا الكود Sub nofilter() ActiveSheet.ShowAllData End Sub 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 جزاك الله خير استاذ محمد صالح وبرضة هذا الكود تسجيل ماكرو Sub Macro1() Selection.AutoFilter End Sub رابط هذا التعليق شارك More sharing options...
القومي قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 الاستاذ / ابو نصار والاستاذ / محمد صالح اكثر من ممتاز رابط هذا التعليق شارك More sharing options...
القومي قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 الاساتذة الافاضل / هل من الممكن اضافة تحديد كود طباعة للنطاق المحدد للفرز رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر يناير 13, 2012 الكاتب مشاركة قام بنشر يناير 13, 2012 (معدل) كل الشكر والتقدير لكل السادة الزملاء داعيا الله ان يزيدكم علما مطلوب تصحيح كود الناجح مع تحديث البيانات تصحيح كود ناجح.zip تم تعديل يناير 13, 2012 بواسطه Ahmed Elbhiry رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 كل الشكر والتقدير لكل السادة الزملاء داعيا الله ان يزيدكم علما مطلوب تصحيح كود الناجح مع تحديث البيانات قم بازالة الارتباط التشعبي من زر امر الناجح دور ثاني رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر يناير 13, 2012 الكاتب مشاركة قام بنشر يناير 13, 2012 كل الشكر والتقدير لكل السادة الزملاء داعيا الله ان يزيدكم علما مطلوب تصحيح كود الناجح مع تحديث البيانات قم بازالة الارتباط التشعبي من زر امر الناجح دور ثاني شكرا ابو هديل هههههههههههه يموت المعلم ولا يتعلم رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 تم اختصار الكود Public x As Integer Sub Sort() Dim WS As Worksheet, MyRng As Range Set WS = Sheets("ناجح وراسب ومحول دور ثانى"): Set MyRng = WS.Range("A7:AA1207") WS.Select Range("AA2").Value = x MyRng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ WS.Range("aa1:aa2"), Unique:=False Range("aa2").Select End Sub Sub ناجح_دورثانى() x = 1 Call Sort End Sub Sub راسب_دورثانى() x = 2 Call Sort End Sub Sub محول_دورثانى() x = 3 Call Sort End Sub قم بمسح الكود الاول بالكامل (كل الاجراءات) واستبدله بهذا رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر يناير 14, 2012 الكاتب مشاركة قام بنشر يناير 14, 2012 تم اختصار الكود Public x As Integer Sub Sort() Dim WS As Worksheet, MyRng As Range Set WS = Sheets("ناجح وراسب ومحول دور ثانى"): Set MyRng = WS.Range("A7:AA1207") WS.Select Range("AA2").Value = x MyRng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ WS.Range("aa1:aa2"), Unique:=False Range("aa2").Select End Sub Sub ناجح_دورثانى() x = 1 Call Sort End Sub Sub راسب_دورثانى() x = 2 Call Sort End Sub Sub محول_دورثانى() x = 3 Call Sort End Sub قم بمسح الكود الاول بالكامل (كل الاجراءات) واستبدله بهذا بسم الله ماشاء الله ربنا يزيدك من علمه رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر يناير 15, 2012 الكاتب مشاركة قام بنشر يناير 15, 2012 تم اختصار الكود Public x As Integer Sub Sort() Dim WS As Worksheet, MyRng As Range Set WS = Sheets("ناجح وراسب ومحول دور ثانى"): Set MyRng = WS.Range("A7:AA1207") WS.Select Range("AA2").Value = x MyRng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ WS.Range("aa1:aa2"), Unique:=False Range("aa2").Select End Sub Sub ناجح_دورثانى() x = 1 Call Sort End Sub Sub راسب_دورثانى() x = 2 Call Sort End Sub Sub محول_دورثانى() x = 3 Call Sort End Sub قم بمسح الكود الاول بالكامل (كل الاجراءات) واستبدله بهذا بسم الله ماشاء الله ربنا يزيدك من علمه مطلوب التحكم فى فواصل الصفحات للطباعة العدد الذى اوريده اضافة جزء للكود يقوم بذلك رابط هذا التعليق شارك 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.