الشيباني1

اخواني الاعزاء تحية طيبه مااحتاجه للمرفق كود وزر في ورقة ( الرئيسيه ) لاخفاء واظهار باقي الاوراق مع الامتنان Book1.rar

استاذنا العزيز لا زلت منتظرا لأني لن يخيب بأذن الله ظني

رحمها الله واسكنها فسيح جناته والهم اهلها الصبر والسلوان

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

استاذنا القدير مع شكري وتقديري هل بالامكان عمل زرين للتفعيل والغاؤه

اخواني الاعزاء تحية طيبه الحاجة ماسه لكود او كودين لتفعيل والغاء تفعيل الكود ادناه مع الشكر والامتنان Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Intersect(Target, Range("ad2:ae2,aj5:an50")) Is Nothing Then Cells(Target.Row, 30).Select If Not Intersect(Target, Range("r4:x4,c2:x2")) Is Nothing Then Cells(Target.Row, 1).Select End Sub

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

اخواني الاعزاء مع تقديري واحترامي هل من حل للموضوع مع الشكر

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

استاذنا الكبير اشكركم وادامكم الرحمن لنا منقذا

استاذنا القدير مع شكري وتقديري لا ارغب بزر للمعادلتين ارجو المساعده ( ان امكن ) في دمج المعادلتين بالكود لتعمل سويا مع الامتنان

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

اخواني الاعزاء تحية طيبه فاتني ان اذكر ان المعادله الموضحه في تسلسل (32) من المرفق تكون في الخليه (I10)في ورقة بأسم ( الرئيسيه ) والاخرى في تسلسل (I12) في نفس الورقة مع الشكر

اخواني الاعزاء تحية طيبه جاد استاذنا الكبير عبد الله باقشير بالكود الرائع الذي يتضمنه المرفق ارجو ان كان ذلك ممكنا تضمين هذا الكود المعادلتان اللتان تم تثبيتهما في المرفق ( تسلسل 32 و 33 ) للحاجة الماسة لذلك مع الامتنان تعديل كود3.txt

استاذنا العزيز احييك واشكرك جدا على هذا الكود الرائع ادامك الرحمن لنا منقذا

اخواني الاعزاء تحية طيبه في المرفق معادلات مؤشرة بارقام ومثبته في مرفق آخر. ارجو التفضل بالمساعده في وضعها بكود ابتعادا عن تضخيم الملف وتسهيلا للعمل مع الامتنان معادلات الى كود.zip

اساتذتنا الكرام حلان رائعان ممتعان شافيان جزاكما الرحمن خير الجزاء وادامكما صرحا للمنتدى

اخي العزيز مع تقديري ما وددت الحصول عليه معادله او كود يثبت رقم القائمه امام تفاصيلها لمرة واحده بدون تكرار وكما موضح في العمود (F ) مع الشكر

اخواني الاعزاء تحية طيبه ارجو المساعده في ادراج ارقام القوائم كما في المرفق مع الامتنان Book1.zip

استاذنا العزيز اشكرك جدا وادامك الرحمن لنا مرشدا

اخواني الاعزاء تحية طيبه ادناه كود يقوم بفرز بيانات وهو يعمل ببطء شديد هل بالامكان اجراء تعديل عليه ليعمل اسرع مع الامتنان Private Sub Worksheet_Change(ByVal Target As Range) Application.Calculation = xlCalculationManual Application.ScreenUpdating = False ' Range("B3:x15000").Select Range(Selection, Selection.End(xlDown)).Select Range("B3:x15000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("aa1:ad2"), Unique:=False Application.ScreenUpdating = True Range("B2").Select Application.Calculation = xlCalculationAutomatic End Sub

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

البقاء لله رحمها الله واسكنها فسيح جناته والهمكم الصبر والسلوان

استاذنا الكريم مع جزيل شكري وتقديري ارفق ملفي بعد اضافة الكود اليه راجيا : 1- المساعده في جعل الترحيل اسرع حيث هو الآن يأخذ وقتا 2- المساعده في وضع اشارة (X) في الخلايا التي لم تشغل بالارقام مع تلوينها بلون مغاير مع الامتنان تعديل كود3.zip

اساتذتنا الكرام تحية طيبه اتساءل عن امكانية عكس المطلوب السابق اي اظهار المواد غير المسحوبه من قبل الوكلاء بوضع اشارة (x) على الماده التي لم يتم السحب منها مع تقديري واحترامي