احمدزمان

السلام عليكم و رحمة الله وبركاته اكتب الفترة المطلوبة من تاريخ الى تاريخ وتظهر النتائج تلقائيا تصفية البيانات بين تاريخين .rar

السلام عليكم و رحمة الله Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 6 Then Exit Sub TR = Target.Row Q = Cells(TR, Target.Column) QQ = Application.WorksheetFunction.CountIf(Range("F4:F9999"), Q) If QQ < 2 Then Exit Sub Application.ScreenUpdating = False For R = 6 To TR - 1 If Cells(R, 6) = Cells(TR, 6) Then Cells(TR, 3) = Cells(R, 3) Cells(TR, 5) = Cells(R, 5) End If Next Application.ScreenUpdating = True End Sub Lookup بالكود.rar

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

اسعد الله كل ايامك اخي احمد اذاكان عندك اكسل 2003 شاهد الصور المرفقة or

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

وعليكم السلام ورحمة الله وبركاته أخي الحبيب ابو احمد مشاغله كثير خاصة في المنتدى الله يعينه ويوفقه المشاركة 16 ليس هناك مشكلة هو كل المطلوب تكبير نطاق استخراج البيانات الي سميناه Tasreeh يعني الآن هو الى الصف 22 كبره اكثر فقط ======= الفلترة او بالصح تقصد الفرز Sort ممكن نضيفها للكود في مشاركة 16 ولكن محتاج الصيغة النهائية لشكل الجدول المطلوب لأن الفرز يتم على عمود محدد فقط الترويسة انته عامل قائمة List وهذه حاجه ممتازة من شريط ادوات القائمة اضغط تبديل الى صف المجموع تظهر لك ترويسة تلقائيا تختار منها نوع الحساب الذي تريدة لصف المجموع مع التحية

السلام عليكم اذا حبيت اخي الفاضل يتم تنفيذ طلبك في ورقة اكسل وليس فورم ممكن انا اساعد في ذلك بالدوال او كود لامشكلة آمل الإفادة

السلام عليكم و رحمة الله وبركاته وهذا الحل بالكود test2-اذونات خروج.rar

الصف الأول او الأصفر ممكن تخفيه لامشكلة وهو لتسهيل الداله وتصغير حجم الدوال في الملف

السلام عليكم و رحمة الله وبركاته بعد اذن اخي الكريم الفاضل دينمو المنتدى عبدالله اخي احمد غانم هذا الحل بالدوال اي عمود لاتريده قم بحذفه لامشكلة وممكن الحل بكود التصفية المتقدمة test1-اذونات خروج.rar

السلام عليكم و رحمة الله وبركاته بعد اذن اخواني الأفاضل عابر درب و البحيري في هذه الحاله نستخدم الداله =SUMPRODUCT((INDEX(StdntData_S2;0;$M$2)=$K11)*(INDEX(StdntData_S2;0;$O$2)=M$5)) كما في المرفق تلاميذ الدار.rar

السلام عليكم اخي علاء اي عملية ترحيل وتثبيت القيمة المرحلة يجب ان تكون بالكود vb ولكن الإستعلام و استخراج البيانات ممكن يكون بالدوال مع التحية

السلام عليكم و رحمة الله وبركاته جرب http://www.officena.net/ib/index.php?showtopic=29892

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

لوجربت ده رايح ينشأ ملف جديد به الورقتان ويحول الدوال الى قيم فقط

خانت الرقم اذاكان بها اي مسافة او حرف تظهر صفر للمسح استخدم زر DELET

استعادة الألوان للطباعة ادخل معاينة طباعة ادخل اعدادات آخر تبويب - ورقة الغي العلامة على ابيض و اسود

السلام عليكم و رحمة الله وبركاته تسلم الأفكار و الأيادي استاذ طارق وهذه فكرة اخرى استخدم الدالة التالية =IF(SUM(B2)>0;COUNT($A$1:A1)+1;"") و اعتذر لم استطع ارفاق الملف

الآن اذا كانت الخانة فارغة يعطيك فراغ في خانة التفقيط اذاكانت صفر يكتب لك فقط صفر ريالا إقرار.rar

اي لون تختاره لن يظهر في الطباعة غير ولا حرج

وبعد اذن اخي الحبيب عبدالله هذه محاولة اخرى Sub CPY_TOTALS() Sheets(Array("إجماليات قطع غيار", "إجماليات زيوت")).Copy Workbooks(Workbooks.Count).Activate For s = 1 To 2 Sheets(s).Select Sheets(s).UsedRange.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Next s End Sub

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

السلام عليكم و رحمة الله وبركاته بعد اذن اخي الكربم ابو احمد اخي الفاضل محمد اعذرني الفكرة المقترحة في حد ذاتها لا أرى انها عملية (هذه وجهة نظر شخصية) من الأفضل ان تقوم بنسخ اوراق عمل تقوم بتحديدها او الأصح تحديد اسمها ولو من قائمة بها الأوراق والسؤال هل يوجد داخل هذه الورقة دوال وتريد نقل القيم فقط بدون عمليات حسابيه كنسخة اكرر اعتذاري عن وجهة نظري ان لم تعجبك

السلام عليكم بما انه عندك اكسل 2007 استخدم الداله SUMIFS او COUNTIFS

السلام عليكم و رحمة الله تم انجاز المطلوب لاتشيل هم الألوان في الورقة لأن الطباعة ابيض و اسود لاتشيل هم حجم الورقة لأنه يتم تلقائيا تصغير الحجم الى حجم ورقة الطباعة الكتابات خارج المنطقة المحددة لن يتم طباعتها مصنف2-اقرارتقسيط سيارة.rar