الجازع

اخي العزيز ارجو ان يكون هذا هو المطلوب 1.zip

اخواني الاعزاء احببت ان اشارك معكم بخبرتي المتواضعه بهذه المعادله البسيط (لا تتأثر في حالة حذف صف او اكثر تتسلسل) ارجو ان تستفادو منها والله الموفق وجزاكم الله خيراً دالة لجعل مسلسل الارقام تلقائى.zip

تفضل ارجو ان تستفيد من المرفق وحفاظا على الخصوصيه انا تعلمته من الاستاذ / عمر الحسينى Desktop.zip

اخي العزيز ارجو ان يكون هذا المطلوب مع اضافة بعض المعادلات والله الموفق التطبيق1.zip

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

اخي العزيز اشكرك على تجاوبك معي وهذا صدقا ما تعودناه في هذا المنتدى الرئع ولاكن لدي بعض الملاحظات ارجو منك التكرم والرد علي :1- لو حيبت اغير كلمة استمارة في المعادله الاولى كيف يبحث عن الكلمه ارجو الشرح او انه الشرط انه يبحث على جزء من الكلمه واي جزء يبحث عنه الاول او الاخير او الاوسط ارجو التوضيح اكثر لاستطيع استخدامها لاكثر من كلمه .2- لوضغط على المعادله F2 لا تقبل المعادله (لو ضغط مرتين على نفس الخليه )لا تحسب تعطي خطأ؟وجزاك الله خير ارجو التوضيح 2.rar

اخواني الافاضل مرفق لكم ملف يحتوي على ملاحظلات اريد معادله تعطيني عدد النص المدخل بالخليه او اكثر ولكم جزيل الشكر والتقدير .... 1.rar

اخي العزيز ارجو شرح هذا الكود وليش مره [m60000].End(xlUp).Offset(1, -11).Select ومره "A2", [m60000].End(xlUp).Offset(0, -12))؟؟؟؟ وايش معنى ActiveSheet.Paste ؟؟ شكرك يااستاذي

السلام عليكم اخي الكريم لعمل ذلك ، أضف السطر التالي بعد أول 3 أسطر في الكود الثاني Range("A2", [M2000].End(xlUp)).ClearContents ليصبح Sub Shet_Collect() x = Worksheets.Count Worksheets("TOTAL").Select Range("A2", [M2000].End(xlUp)).ClearContents Range("B1").Select .. استاذي العزيز اضفت الكود ولانه لم يتم تجميع العمل بشكل يومي تحت بعض ؟؟واسف على الاطاله وشكرا

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

اخي العزيز اشكرك على مجهودك وشرحك الرائع وفيما يخص الاضافة اريد ان اضيف اعمده جديده واريدها ان يتم تجميعهاوافادتي في هذا الكود ليش m2000? Range("B2", [m2000].End(xlUp)).Select ولاحظت ان التجميع تراكمي لمره واحده فقط يعني لو جمعت بيانات اليوم ما يجمع البيانات الجديده لليوم التالي تحت البيانات السابقه بملف الاجمالي اود انا يتم التجميع للبيانات تراكمي بشكل يومي كل يوم تحت الثاني تحت بعض ؟؟؟كما اكرر اعتذاري

اخي اشكرك جزيل الشكر والتقدير على هذه المعلومات القيمه واسف لتأخري بالرد عليك يااستاذي اود افادتك بانه لازل اعاني من الخطأ نفسه في حالة الضغط على رقم 2 مباشره لاكن اذا انا ضغط رقم واحد ثم رقم 2 يشتغل تمام ارجو التكرم والافاده وفي حالة اردت ان اضف اعمده جديده في اي كود اعدل بالاكواد ؟؟؟؟كم ارجو ان تفيدني بمعني هذا الكود وليش رقم 12"؟:-m2000Offset(0, -12يااستاذي العزيز ارود افادتك بأنه لم يتم تعديل هذا كما ذكرت سابقا ""اولا أعتقد ان الخطأ يأتي من ان الإكسل 2003 ليس به حتي السطر 100000وقد غيرت كل m100000 إلي m60000 وهذا في 3 مواضع ومشي الحال"" ارجو التوضيح وافادتي جزاك الله خير ,,,

اخي طارقارجو ان توضح هذا الكود Selection.AutoFill Destination:=Range("A2", [m100000].End(xlUp).Offset(0, -12))؟لانه بعطيني خطأ ؟؟ ارجو توضيح هذا الكود ايضاFor i = 1 To 6 ؟ولو قمت بأضافة بعض الحقول واريد ان يتم تجميعها فهل يوجد تعديل بالاكواد اقوم به ارجو افادتي ؟وانا اقدر تعاونك معي اشكرك واسف على الاطاله

اخي طارق اشكرك انا غيرت اسم الملفات بأسم كل موظف بس لم يتم تجميع البيانات فهل ممكن ان تفيدني بشرح الطريقه ؟؟واريد انا ازيد عدد الملفات فهل ممكن ان تفيدني بشرح الطريقه ؟؟ وفي ملف الاجمالي عادي لوغيرت اسمه وهل سوف يتم تجميع الملفات لاخر خليه موجوده؟؟بالبنسه لموضوع الخلايا التي افدتي بها بالرد السابق يخص اي جدول الاجمالي ام الخاص بالموظفين ؟؟"سيكون تراكمي في نفس الصفحة وإن كنت تريد غير ذلك ، ممكن ايضالكني تنبهت الآن لنقطة صغيرة في الكودلقد وضعت عنوان نهاية للخلايا 6000 سطر فإن كان العمل قد يزيد عن ذلكفلتذهب الي السطر الثالث من الأخر في الكود الثاني Sub Shet_Collect()" يالشيت اكرر اعتذاري عليك يااخي وشاكر ومقدر اهتمامك وجعله الله في ميزان حسناتك .

اخي العزيز شكرا على سرعة تجاوبك وهذا ما اقصده تماما ٍبس في حالة تغير اسماء الملفات بأسم كل موظف واضافة موظف جديد هل يمكن؟ وعند الظغط على الرقم 2 وتجميع البيانات تحت بعض وفي اليوم الثاني سيقوم كل موظف حذف البيانات السابقه او سيتم حذفها تلقائيا عندما اسحبها بظغط على رقم 2 ؟وهل سيكون عمل اليوم التالي يتراكم مع العمل القديم بملف الاجمالي تحت بعض ولا يمسح القديم ؟ارود ان يكون يتراكم العمل كل يوم وارجو ان يكون الشرح وافي ولكم جزيل الشكر والتقدير ,,,, Jazea.rar

اخي العزيز طارق اشكرك على ردك وتجاوبك معي واعذر باقي الاخوان لانشغالهم اود التوضيح والافاده بأنه صيحيح يوجد مجموعه من الموظفين بس جميع الموظفين بيبدا عملهم في شيت المستندات من الخليه B2 اي ان الخليه بيشتغل عليها اكثر من موظف وهل ممكن تفيدني بتطبيق الماكرو التي ذكرتها بالملف المرفق "ومن الممكن في هذه الحالةأن تعمل لكل موظف ورقة (أو ملف) بإسمه مثلاوعن طريق ماكرو تتجمع البيانات في الآخر بسهولةويمكن أن يحتوي الماكرو علي آلية تجميع وتنسيق البيانات أسفل بعضهامع إلغاء أوالإحتفاظ بالبيانات السابقة ، كما تحب" لارتاح من موضوع التجميع والارساليات التي تخص كل موظف ولكم جزيل الشكر والتقدير ,,,,, جدول المستندات المدققة والغير مدققة.zip

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

للرفع

ارجو ان يكون هذا هو الطلوب سلم+الروا..zip

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

اخي العزيز ارجو ان يكون هذا هو المطلوب وللمعلوميه يمكن تحديد النطاق المطلوب للطباعه بتحديد المدى او تحديد اكثر من مدى بنفس الصفحه بالضغط على زر Ctrl وحديد المدى الاخر والذهاب الى File ثم print Area ثم ٍSet print Area ولكم جزيل الشكر والتقدير . سلم+الروا..zip

اخي العزيز المحترم ارجو الاستفاده من المرفق ولك مني خالص الشكر والتقدير. جدول الإجازات.zip

اخي العزيز ارجو الاطلاع على المرفق وبالنسبة للطلب الثاني ارجو التوضيح عليه اكثر وتقبل تحياتي Master Recipe==1.zip

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

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