۩◊۩ أبو حنين ۩◊۩

السلام عليكم اخى الكريم ياسر وجه نظر لم الاحظ مدى قيمتها الا من كلامك .... ((أنا أنفذ الكود لما أحب ...ودا هيجنبك الكثير من المشكلات))...معك كل الحق جزاك الله خيرا ونرجع مرجعنا للكود ..اخى الحبيب اتوقع منك سعت صدرك .... تقبل وجميع الاعضاء الكرام عزرى لقد اخطاءت اثناء شرح طلبى لكون البيت به ثانويه عامه وانت اعلم بمدى التوتر ولهذااكرر اعتزارى عن وقتك ومجهودك معى المطلوب الصحيح عمل تصفيه فى شيت Medi. Kha وكذلك شيت Medi. Eps عند كتابه الرقم فى الخليه( D3 وليس D2 )واقصد به رقم العمل يتم تصفيه جميع البيانات الا بيانات هذا الرقم ورقم العامل موجود فى العمود C

الساده الكرام هل يمكن عمل تصفيه فى شيت Medi. Kha عند كتابه الرقم فى D2 يتم تصفيه جميع البيانات الا بيانات هذا الرقم

السلام عليكم اخى الحبيب سليم جزاك الله كل الخير فعلا تم الامر بصورة ممتاذه واستسمحك عزرا فى شرح المعادله =AND($B3:$D3<>"";ISODD($D3))

السلام عليكم الساده الكرام هل يمكن عمل تنسيق شرطى لتلوين صف على اساس محتوى خليه فى ذلك الصف تحتوى على رقم فردى او حتى رقم زوجى بحثت ولم اجد هل يمكن تحقيق الامر

السلام عليكم الاخوة الكرام تم تصحيح الكود وذلك بعد مراجعه مشاركة خاصة بالاخ الحبيب ياسر خليل وهو خطاءمن المستخدم عدم ادخال بيانات فى الخليه G ويبقى الطلب الاخير هل يمكن عمل تصفيه فى شيت Medi. Kha عند كتابه الرقم فى D2 يتم تصفيه جميع البيانات الا بيانات هذا الرقم

السلام عليكم. الاخوة الكرام والاساتذه العظام ارجو المساعده فى تصحيح كود حدث الورقه فى شيت Medi. Kha المفترض بعد الترحيل الى هذا الشيت يتم ترك سطر فارغ اسفل اخر بيانات تم ترحيها من شيت ( 1 ) الا انه يتم اخفاء السطور بعد الصف رقم 21 مع العلم ان عند اظهار الاسطر المخفيه تظهر جميع البيانا المرحله ..... ويعود اخفاء الاسطر مره اخرى بعد الترحيل حتى الصف رقم 21 طلب أخر هل يمكن عمل تصفيه فى شيت Medi. Kha عند كتابه الرقم فى D2 يتم تصفيه جميع البيانات الا هذا الرقم (Private Sub Worksheet_Change(ByVal Target As Range Dim MyRng As Range Dim Col As Range If Not Intersect(Target, Range("G1:G3")) Is Nothing Then Call SortData End If If Intersect(Target, Range("G4:G10000")) Is Nothing Then Exit Sub Application.EnableEvents = False Application.Calculation = xlManual Application.ScreenUpdating = False With Target Range("G4:G10000").EntireRow.Hidden = False For Each Col In Range("G4:G10000") If CStr(Col) = "" Or Col.Value = 0 Then If MyRng Is Nothing Then Set MyRng = Col Else Set MyRng = Union(MyRng, Col) End If Next If Not MyRng.Offset(1, 0) Is Nothing Then MyRng.Offset(1, 0).EntireRow.Hidden = True End With Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub Book6.rar

الاخ الكريم ياسر جزاك الله كل الخير كده فعلا خطوه نحو الامام بشرحك وملاحظاتك 1-المشكلة لديك سببها أنك قمت بتمسية الماكرو باسم كلمة محفوظة في اللغة ..ألا وهي كلمة Sort 2- http://www.officena.net/ib/index.php?showtopic=56941#entry374440 جزاك الله خيرا

السلام عليكم الاح الحبيب ياسر جزاك الله كل الخير فعلا شرح مبسط وجميل جدا واتبعت كل الخطوات حرف حرف لاكن واضح ان فى حروف وقعت منى Option Explicit (Private Sub Worksheet_Change(ByVal Target As Range If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A3:C3")) Is Nothing Then Call sort End If End Sub الا انى اجد خطاء ويتم تظليل السطر بالون الاصفر اين الخطاء

السلام عليكم الاخوة الكرام لقد قمت بعمل كود ترتيب من خلال تسجيل الكود وهو يعمل بصوره جيده اريد ان يعمل الكود بمجرد احداث اى تغير فى الخليه A3 اريد ان يعمل الكود بصوره تلقائية عند احداث اى تغير فى الخليه A3 جزاكم الله خيرا ()Sub sort Range("C5:G35").Select ActiveWindow.SmallScroll Down:=-51 ActiveWorkbook.Worksheets("1").SORT.SortFields.Clear ActiveWorkbook.Worksheets("1").SORT.SortFields.Add Key:=Range("F6:F35"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("1").SORT.SortFields.Add Key:=Range("C6:C35"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("1").SORT .SetRange Range("C5:G35") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A3 ").Select End Sub

اخى الحبيب ياسر جزاك الله كل الخير كده الامور ذى الفل بمجهودك ووقتك وجميع اعضاء المنتدى الكرام جزاك الله كل الخير

اخى الحبيب ياسر كيف ذلك ما معنى بربط الكود بخلية محددة إذا كانت فارغة يتم الخروج من تنفيذ الكود وكيف

السلام عليكم اخى الكريم مختار اخى الكريم ياسر جزاكم الله كل الخير .. وجمع اعضاء المنتدى سلمت يداك بكل خير اخى الحبيب .... بوجد تحفظ اخير عند تفعيل الكود ولم يكن يحتوى الشيت شيت(1) على بيانات سوى سوى الخليه A3 يتم ترحيل راس الجدول كيف يمكن التغلب على ذلك

السلام عليكم اخى الحبيب ياسر جزاك الله كل الخير .. وجعلة الله فى ميزان حسناتك وتقبل عزرى فى عدم الايضاح من اول مره سلمت يداك بكل خير

السلام عليكم اخى الحبيب ياسر ارجو ان يتضح المطلوب معى اخى الحبيب الساده الزملاء الخلايا التى يراد ترحيها من شيت 1 هى الخلايا التى بها بيانات اعتيارا من الخليه b6 الى g35 وترحل فى نفس الخلايا حسب اسم الشيت الموجود الخليه a3 ويتم اضافتها الى البيانات المرحله سابقا اى يتم ترحيها اسفل الخلايا التى تم ترحيها من قبل اما البيانات المراد مسحها بعد الترحيل هى اولا الخليه A3 هذا بلاضافى الى B6 الى B35 وكذلك من F6 الى G35

لقد حاولت مستخدما هاالكود الا انه لم يصلح معى ..هلى من مساعدة Sub transfer() Dim cl As Range Application.ScreenUpdating = False T = Range("A3").Text On Error Resume Next For Each cl In Rng x = cl.Column Range("B6:G35").Copy Sheets(T).Cells(5, x).PasteSpecial xlPasteValues Application.CutCopyMode = False Exit For End If Next Application.ScreenUpdating = True End Sub

السلام عليكم االاخوة الكرام تقبل الله منا ومنكم ومن جمبيع المسلمين صالح الاعمال الاخزة الكرام ارجو المساعده فى عمل كود ترحيل على اساس اسم الشبت 1- ترحيل من شيت 1 الى شيت ( حسب اسم الشيت بدلااله الخلية A3 ) ..اى لو محتوى الخليه A3 Medi. Kha يبتم الترحيل الى شيت Medi. Kha ولو محتوى الخليه A3 Medi. Epe يتم الترحيل الى شيبت Medi. Epe وهكذا ان يتم الترحيل من شيت 1 الى الشيت المراد الخليه لb6 الى الخلية b6 الخليه لc6 الى الخلية c6 وهكذا منتهيا بالخليه g6 2- عند اتمام الترحيل يتم كتابة تم الترحيل امام كل خليه تم ترحيها فى العمود h تم الترحيل ولا يتم الترحيل اكثر من مره 3- ويتم السوال ا ذا ما ارت مسح البيانات فى شيت 1 ..... ا ذا كان الاجابه نعم يتم مسح a3 بلاضافة الى c3 : c35 و f6 : j35 Book1.rar

الاخ الجليل ياسر خليل سلمت يداك دائما لديك حلول ....لكل ما هو مطروح من الاعضاء والاهم .دوما ما نجد الاستفاده والتعليم مما تطرحه جزاك الله كل الخير

السلام عليكم اخى الحبيب بن علية حاجى جزاك الله كل الخير دائما . دائما . حلولك قمه الابداع جزاك الله كل الخير وارجو ارجو ان تشرح لى الفكرة وارتباط المعادلات ببعضا البعض وذلك من باب التعليم جزاك الله كل الخير

السلام عليكم اخى الحبيب بن علية حاجى جزاك الله كل الخير على وقتك ومجهوك اخى الحبيب فى العمود ah معادلة .. لماذا ارتباطها بالعمود af حيث af ليس له اى قيمة .....ما هو الا ترتيب قد نستغنى عنه ارجو التوضيح جزاك الله خيرا

الاخ الجليل ياسر والمعلم القدير.... سلمت يداك اخى الحبيب كود فوق الممتاز.. ويبقى طلب ...... محو السحل بعد الترحيل سلمت يداك بكل خير

السلام عليكم الاخ الحبيب بن علية حاجى اول وقبل اى شئ اسال الله ان تكون بكل عافيه وفى خير حال انت والاهل وجميع المسلمين واسال الله ان ترجع من سفر بكل خير سلمت يداك اخى الحبيب ها هو المطلوب ... جارى التجربه . وذلك بعد جعل اسا ترتيب الكروت الرقم وليس الادارة وهل يمكن تخطى المعادلات ويكون من خلال الكود فقط وتم تخطى طباعه الكروت التى ليس بها حركة من خلال تعديل طفيف فى المعادلة من ""<> الى 1=< فى العمود w وذلك لكون total يكون ناتج معادلة جارى التجربة . .. جزاك الله خيرا

للرفع

ارجو المساعد فى تحيق الشرط الاول وهو كود طباعه وهو امكانيه اختيار الادارات فى الطباعه . او اختيار اكثر من اداره او اختيار الكل

هل من حل ارجو المساعده

للرفع للرفع اكرمكم الله