نجوم المشاركات

الأخت الكريمة/ الروضة الشريفة السلام عليكم ورحمة الله وبركاته أرجو أن يكون المرفق حسب المطلوب - والشرح داخل الملف والسلام عليكم ورحمة الله وبركاته Book1-Add Picture to Table.rar

بعد مشاركة استاذنا الجليل رجب جاويش جرب المرفق لعله يكون ماقصدت HH_شرح المطلوب وشكرا مقدما.rar

السلام عليكم تفضل أخى ترتيب حسب أكثر من عمود.rar

استاذى الحبيب / عبد الله باقشير بسم الله ما شاء الله ابداعات لا تنتهى تصل الى المطلوب من أقصر وأذكى الطرق ولإثراء الموضوع هذا حل آخر على خطى أستاذى الحبيب ترحيل1.rar

السلام عليكم جرب التالي Sub kh_Start() Dim M As Long On Error GoTo 1 M = WorksheetFunction.Match(ورقة1.[F4], ورقة2.Range("A2:A10000").Value, 0) With ورقة2.Cells(1, "A").End(xlUp).Offset(M, 0) .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9")) End With ورقة1.Range("F4:F9").ClearContents MsgBox " تم التعديل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله" 1: If Err Then MsgBox "استخدام خاطىء": Err.Clear End Sub تحياتي

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

بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء السلام عليكم ورحمته الله وبركاته يطيب لى وبناءا على طلب أخى العزيز الاستاذ الفاضل محمد " ابوالبراء" ان أهدى نجلنا البراء محمد " بارك الله فيه " هذه الاطلاله المتواضعة من العبدالفقيرالى الله تعالى الا وهى شيت مصغر من برنامج مرتبات الساده العاملين بالتربية والتعليم واقصد هنا بعبارة " شيت مصغر" لانه لايحتوى على كافة الاحتمالات القائمة بشأن عملية الصرف لجميع الساده العاملين بالتربية والتعليم دون الخروج على ماينبغى صرفه إلى أن يإذن الله تعالى بأن انتهى من الاصدارالاول من البرنامج الاصلى المطلوب فقط الاتى :- 1- تحديد بيانات الموظف من العمود E2 الى K2 2- تحديد بيانات اساسى المرتب الحالى 2013/7/1 + الـــ 5 علاوات من العمود L2 الى Q2 ملاحظات هامة 1- تم إضافة علاوة الحد الادنى للأجور وفقا للقرار رقم 22 لسنة 2014 بمنشوريه رقم 1 و 2 2- تدخل علاوة الحد الادنى ضمن جملة الاجورالمتغيرة علما بأن الحد الاقصى للأجور المتغرة اعتبارا من 2014/1/1 اصبح 1587.00 جنيها شهريا 3- الحد الاقصى للأجور الاساسية بلغ 987.50 جنيها شهريا جزاكم الله خيرا ..... تقبلوا وافر احترامى

يمكنك اخى الكريم زيارة هذا الموضوع جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط (( متجدد إن شاء الله )) وان شاء الله تجد ما تريد به

السلام عليكم ورحمة الله وبركاته إليك ملف بالأكواد جزاه الله خيراً من قام بعمله وجعله في ميزان حسناته. AA11.rar

ملف اكسل لفتح المنتديات او الفيس بوك كود فتح منتديات مجدى يونس.rar

أخى الحبيب / محمد أبو البراء جزاك الله كل خير على كلماتك الطيبة

أخى محمد فى اكسل 2007 واكسل 2010 لا يوجد لها فعلا الا 3 Key فقط

أخى الحبيب / محمد أبو البراء جزاك الله كل خير على كلماتك الطيبة

وهذا فيديو آخر يشرح الدالة IF

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

معذرة هذا بعد التعديل range("e"&range("e"&rows.Count).End(xlUp).Row+1).Select تحياتي

السلام عليكم ورحمة الله وبركاته الاخ العزيز اكرم جلال هذا كود للعالم العلامة الاستاذ عبد الله باقشير حفظه الله وجزاه الله خيرا تقبل فائق احترامي وتقديري Sub ÇáÎáíÉ_ÇáäÔØÉ() Dim U As Integer U = ActiveCell.Row Dim LastRow As Integer LastRow = Cells(Rows.Count, "E").End(xlUp).Row + 1 If U = LastRow Then Range("E7").Select Else Range("E" & LastRow).Select End If ActiveWindow.View = xlNormalView End Sub

تفضل ولا يكون خاطرك إلا طيب A_dbserch.rar

السلام عليكم ورحمة الله وبركاته أخي الحبيب هونها تهون :) أنا أحب ارد عليك وأساعدك بقدر ما عندي وبدون أن أعرفك ولا تعرفني . ولما قلت لك العنوان مخالف فعلا أنه مخالف لقوانين المنتدى والهدف من ذلك هو تنظيم المنتدى لسهولة الوصول للمعلومة واستفادة من يأتي بعدنا ليبحث عن حل لنفس المسألة وأنا لما رديت عليك كان بسبب أنك خصصتني ولما قلت لك تحرم نفسك خير أفاضل المنتدى عندما يرونك خصصت أحدهم بالسؤال لا يدخل للمشاركة. وعموما أعتذر لك إن صدر مني شيء في حقك

السلام عليكم ورحمة _الله_ وبركاته هذا مثال لتصدير التقرير الى عدة إمتدادت أرجو أن يكون فيه مبتغاك XX.rar

أخى الحبيب عبد الله باقشير أخى الحبيب أحمد فضيلة

الأخ الكريم/ mka1761975 السلام عليكم ورحمة الله وبركاته أرجو أن يكون هذا المطلوب تقبل تحياتي Book1-Copy Table & Format.rar

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

اخواني الأعزاء نواصل حلول التقارير في اكسس مرفق لكم المثال السابق بعد إضافة مدول جديد وتقريرين وذلك لعمل خلفية تقرير برمجيا دون إثقال البرنامج بصور لجعلها خلفية للتفارير ارجو ان تكون مفيدة تحياتي,,, التقارير.rar

اخى الكريم الملف الجديد بالمرفقات السلام عليكم spear1.rar