احمدزمان

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

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

‏السبت‏، 25‏/12‏/1430هـ الموافق ‏12‏/12‏/2009م السلام عليكم و رحمة الله وبركاته الموضوع محتاج المزيد من الشرح و التوضيح لكي يتمكن من يريد العمل على الملف من العمل علية و يمكننا باستخدام خواص الإكسل ترحيل جميع الفواتير الى ورقة واحدة فقط و من هذه الورقة ممكن نستخدم بيع او مرتجع لإستخراج المبيعات او المرتجعات و باستخدام اسم العميل نستخرج حركات اسم العميل المحدد مع التحية و التقدير

جزاكم الله كل خير جميعا وشكرا على الروابط و التوضيح

السلام عليكم و رحمة الله و بركاته لم استطع ارفاق الملف Sample.rar

السلام عليكم و رحمة الله و بركاته اخي الكريم شاهد المرفق آمل ان يكون هذا طلبك =SUMPRODUCT(($C$5:$C$40=$H7)*($D$5:$D$40=I$6))

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

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

السلام عليكم و رحمة الله وبركاته قيل لكل شيء اذا ما تم نقصان فلا يغر بطيب العيش انسان اخي الكريم آمل التجربة و اخباري بالنتيجة Sub MoveValue_Amend() Range("Q15:S15").Select ActiveCell.FormulaR1C1 = "=R[-13]C[-10]" Range("G2:H2").Select 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Dim EndRow As Long EndRow1 = Sheets(2).Range("A1").CurrentRegion.Rows.Count For EndRow = 2 To EndRow1 If Sheets(2).Cells(EndRow, 1).Value = Sheets(4).Cells(2, 7).Value Then Sheets(2).Cells(EndRow, 1).Value = EndRow Sheets(2).Cells(EndRow, 2).Value = Sheets(4).Cells(15, 17).Value Sheets(2).Cells(EndRow, 3).Value = Sheets(4).Cells(5, 3).Value Sheets(2).Cells(EndRow, 4).Value = Sheets(4).Cells(42, 7).Value Sheets(2).Cells(EndRow, 5).Value = Sheets(4).Cells(5, 6).Value Sheets(2).Cells(EndRow, 6).Value = Sheets(4).Cells(4, 41).Value Sheets(2).Cells(EndRow, 7).Value = Sheets(4).Cells(5, 9).Value Sheets(2).Cells(EndRow, 8).Value = Sheets(4).Cells(5, 13).Value Sheets(2).Cells(EndRow, 9).Value = Sheets(4).Cells(10, 3).Value Sheets(2).Cells(EndRow, 10).Value = Sheets(4).Cells(8, 3).Value Sheets(2).Cells(EndRow, 11).Value = Sheets(4).Cells(8, 5).Value Sheets(2).Cells(EndRow, 12).Value = Sheets(4).Cells(8, 10).Value Sheets(2).Cells(EndRow, 13).Value = Sheets(4).Cells(8, 14).Value Sheets(2).Cells(EndRow, 14).Value = Sheets(4).Cells(5, 16).Value Sheets(2).Cells(EndRow, 15).Value = Now() Sheets(2).Cells(EndRow, 16).Value = Environ("username") MsgBox (" Printed and saved") GoTo 9 Next 9 End Sub حيث تم وضع حلقة بحث في العمود A فاذا تطابق الرقم مع رقم الأمر المعدل يتم الكتابة

السلام عليكم و رحمة الله وبركاته اخي الكريم هل هذا المطلوب Book1.rar

السلام عليكم و رحمة الله وبركاته تفاصيل_الطيران.zip

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

طبعا اكيد راجع المود السابق مرة اخرى

الدوال موجودة في المشاركة التالية استخراج قائمة غير مكررة بإستخدام الدوال

السلام عليكم و رحمة الله وبركاته تعديل الكود Sub MACRO2() For P = 1 To 16 Cells(1, 60) = P If Cells(5, 3).Value <> 0 Then ActiveWindow.SelectedSheets.PrintOut Next End Sub

السلام عليكم و رحمة الله وبركاته wael.rar

dune ورقة_الغياب.rar

dune

السلام عليكم و رحمة الله وبركاته تم اضافة كود منقول عن الأستاذ الفاضل ابو اسامة الموقر Range("A2", Range("A65536").End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA2"), Unique:=True wael.rar

السلام عليكم و رحمة الله وبركاته ساعدونى.rar

اخي الكريم الكريم جزاك الله كل خير ز ونسأله سبحانه و تعالى ان يتقبل منا جميع صالح الأعمال

السلام عليكم اخي الكريم ممكن توضح طلبك بمثال انا شخصيا لم افهم

السلام عليكم و رحمةالله وبركاته جرب المرفق ورقة_الغياب.rar

السلام عليكم و رحمة الله و بركاته بعد الشكر و التقدير لأخي أمير جزاه الله كل خير على المجهود الكبير الذي بذله في المرفق الحل باستخدام الدالة Index كل المطلوب هو تسمية النطاق لكل صفحة باسم يشبه المحدد عام2007 و وضع هذا الإسم ضمن القائمة المنسدلة للسنوات و لاحظ دالة الجمع لكل السنوات مع التحية و التقدير Test6.rar