ضى النور قام بنشر نوفمبر 22, 2011 قام بنشر نوفمبر 22, 2011 باختصار عندى ورقة عمل مكونة من ورقة اولى تحتوى على بيانات الموظفين لكل الجنسيات وعملت لكل جنسية ورقة اخرى داخل نفس الورقة حوالى 8 ورقات المطلوب فى حالة ادخال بيانات فى اى ورقة حسب الجنسية تنقل تلقائى الى الورقة الاولى الرئيسىة وبرضة تفضل فى كل شيت حسب الجنسية ارجوا الرد بسرعة
ضى النور قام بنشر نوفمبر 22, 2011 الكاتب قام بنشر نوفمبر 22, 2011 ياريت اكون عرفت اشرح المطلوب وان اجد الحل السريع ولو طلبى لا ينفع ارجو اقتراح اقرب الحلول البدلات.rar
ضى النور قام بنشر نوفمبر 22, 2011 الكاتب قام بنشر نوفمبر 22, 2011 معقولة 30 مشاهدة ولا رد فى ايه سوالى غلط اوى كده طيب الرجاء توضيح الامر حتى لا يضيع الوقت فى فكرة لا تنفع
طارق محمود قام بنشر نوفمبر 22, 2011 قام بنشر نوفمبر 22, 2011 السلام عليكم أخي جرب الكود التالي علي أساس أن الورقة الأولي إسمها TOTAL Sub Tareq_ترحيل() Range("A4:K60000").ClearContents For Sh = 2 To Sheets.Count R = Sheets(Sh).[B10000].End(xlUp).Row Range(Sheets(Sh).[b2], Sheets(Sh).Cells(R, "K")).Copy Sheets("TOTAL").[B60000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next Sh Application.CutCopyMode = False MsgBox ("!تم الترحيل بنجاح") [A4] = 1 For i = 2 To [B60000].End(xlUp).Row - 3 Cells(i + 3, 1) = i Next i [A2].Select End Sub وتفضل هذا ملفك مرفق وبه الكود علي الرابط التالي http://www.4shared.com/file/pwR89h_W/2_online.html
ضى النور قام بنشر نوفمبر 22, 2011 الكاتب قام بنشر نوفمبر 22, 2011 الف شكر استاذا الفاضل نجح الامر ولكن عند تغير اسم الصفحة من TOTAL الى شامل لا يعمل الامر ما هو الحل
يوسف عطا قام بنشر نوفمبر 22, 2011 قام بنشر نوفمبر 22, 2011 السطر السادس من الكود غيره إلى Sheets("شامل").[B60000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues ولو لم تصلح التسمية العربية غيرها إلى SHAMEL ليصبح السطر السادس هكذا Sheets("SHAMEL").[B60000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues دمت بود
الـعيدروس قام بنشر نوفمبر 22, 2011 قام بنشر نوفمبر 22, 2011 السلام عليكم بعد اذن الاستاذ القدير طارق محمود والاستاذ يوسق عطا اخي السائل اذا كنت تقصد يتعامل مع مسمى الورقة الاصلية كي يتسنى لك تغير المسمى الافترضي للورقة دون تأثر الكود هذا كود الاستاذ مع اضافة تسريع الكود والورقة الاصليه Sub Tareq_ترحيل() Application.ScreenUpdating = False Application.EnableEvents = False Range("A4:K60000").ClearContents For Sh = 2 To Sheets.Count R = Sheets(Sh).[B10000].End(xlUp).Row Range(Sheets(Sh).[b2], Sheets(Sh).Cells(R, "K")).Copy ورقة1.[B60000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next Sh Application.CutCopyMode = False MsgBox ("!تم الترحيل بنجاح") [A4] = 1 For i = 2 To [B60000].End(xlUp).Row - 3 Cells(i + 3, 1) = i Next i [A2].Select Application.ScreenUpdating = True Application.EnableEvents = True End Sub تحياتي
ضى النور قام بنشر نوفمبر 23, 2011 الكاتب قام بنشر نوفمبر 23, 2011 الف شكر للجميع فعلا نجح الامر واصبح اسرع بكثير ولكن هل عند اضافة شيتات اخرى باسماء جنسيات اخرى سترحل ايضا ام هناك امر يجب تغيره عند اضافة شيتات اخرى ولماذا عند حفظ التغيرات والاغلاق تظهر رسالة تقول ""حجم الصورة اكبر مما هو مسموح به وسيتم اقتطاعها ""
ضى النور قام بنشر نوفمبر 23, 2011 الكاتب قام بنشر نوفمبر 23, 2011 فعلا جربت اضافة شيت تانى بجنسية اخرى ورحل ما فيها والحمد لله ولكن تبقى رسالة " ""حجم الصورة اكبر مما هو مسموح به وسيتم اقتطاعها " محتاج من الاخوه الكرام الصبر معى حتى اصل بالتصميم الى ما اتمنى المطلوب فى هذه الخطوه عمل فورم يظهر يحتوى على بحث وتعديل واضافات بيانات جديدة وطباعة معلومات الموظف مع مراعة شى هام جدا فى حالة الاضافة والتعديل وضع بيانات كل موظف على حسب شيت الجنسية يعنى هعدل او اضيف مصرى القى البيانات فى الشيت المقصود
ضى النور قام بنشر نوفمبر 23, 2011 الكاتب قام بنشر نوفمبر 23, 2011 محتاج من الاخوه الكرام الصبر معى حتى اصل بالتصميم الى ما اتمنى المطلوب فى هذه الخطوه عمل فورم يظهر يحتوى على بحث وتعديل واضافات بيانات جديدة وطباعة معلومات الموظف مع مراعة شى هام جدا فى حالة الاضافة والتعديل وضع بيانات كل موظف على حسب شيت الجنسية يعنى هعدل او اضيف مصرى القى البيانات فى الشيت المقصود
أنس دروبي قام بنشر نوفمبر 23, 2011 قام بنشر نوفمبر 23, 2011 (معدل) السلام عليكم ورحمة الله وبركاته أخي طارق الله يجزيك الخير على هذا الملف والحل الأكثر من رائع أخوكم أنس دروبي تم تعديل نوفمبر 23, 2011 بواسطه Creation World
ضى النور قام بنشر نوفمبر 24, 2011 الكاتب قام بنشر نوفمبر 24, 2011 استغفر الله ارجوا من الاخوة الكرام تقديم الحل
ضى النور قام بنشر نوفمبر 24, 2011 الكاتب قام بنشر نوفمبر 24, 2011 هناك حاجه ماسه لهذا العمل ادخل بيانات 1500 موظف واعدل بيانات ارجوا عمل فورم يظهر يحتوى على بحث وتعديل واضافات بيانات جديدة وطباعة معلومات الموظف مع مراعة شى هام جدا فى حالة الاضافة والتعديل وضع بيانات كل موظف على حسب شيت الجنسية يعنى هعدل او اضيف مصرى القى البيانات فى الشيت المقصود
ضى النور قام بنشر نوفمبر 24, 2011 الكاتب قام بنشر نوفمبر 24, 2011 ممكن دى يساعد فى تنفيذ طلبى او تقريب الفكرة ارجوا عمل التعديلات الازمة ليعمل بشكل جيد البدلات22.rar
ضى النور قام بنشر نوفمبر 25, 2011 الكاتب قام بنشر نوفمبر 25, 2011 لا اله الا الله محمد رسول الله هو طلبى صعب ولا فين المشكلة
ضى النور قام بنشر نوفمبر 25, 2011 الكاتب قام بنشر نوفمبر 25, 2011 طيب حد يقول انقل فورم بحث وتعديل من ملف لاخر واشغلى ازاى يشرح بلاش يعمل المهم محتاج الفورم ضرورى جدا بالله حد يرد
الـعيدروس قام بنشر نوفمبر 26, 2011 قام بنشر نوفمبر 26, 2011 السلام عليكم ======================= فورم إدخال بيانات ======================= ترحيل الإدخال الجديد إلى الشيت المصنف في كومبوكس الجنسية هذا حسب طلبك =========================== التعديل برضه عند البحث عن موظف لتعديل بياناته تختار الورقة المراده ثم تبحث بألـ (الأسم حسب الاقامة) يعني البحث محدد على حقل B في كل الأوراق ========================== الحذف نفس الطريقة تبحث عن الاسم وتضغط عليه من الليست بوكس مرتين ويظهر لك صندوق حوار تحط رمز الحذف وهو (1234) لحذف الموظف من الشيت المحدد =========================== وعندك زر تقرير موظف نفس عملية فورم الإدخال ولاكن طباعة الفورم فقط (طباعة بيانات موظف ) =========================== الملف ربما فيه بعظ الأخطاء لاني لم اتأكد من عمله بالشكل المطلوب لانك على عجله من امرك عموماً أي ملاحظات او تعديل أو إضافه أنا موجود والعذر منك والسموحه على التأخير وفي الاخير مانرجوه منك غير دعوة بظهر الغيب والسلام عليكم alidroos_DATA_ADD.rar
ضى النور قام بنشر نوفمبر 26, 2011 الكاتب قام بنشر نوفمبر 26, 2011 استاذ ali جزاك الله خيرا وادخلك الجنة من غير حساب بجد شغل ماشاء الله الله يبارك فيك انت واهلك بس فيه تعليق واحد عندى 1500 موظف واكثر فى حالة البحث بياخد وقت كبير جدا وممكن كمان يتوقف عن الاستجابة ممكن حل لسرعة البحث معلهش
ضى النور قام بنشر نوفمبر 26, 2011 الكاتب قام بنشر نوفمبر 26, 2011 الحل ايه لما بكتب فى فورم البحث او الطباعة مجرد اول حرف من الاسم ويتوقف البرنامج تماما لان عندى اسماء موظفين كتيرررررر االفورم تمام لو شغال على اسماء قليلة بس عندى 1500 موظف قابل للذيادة
الـعيدروس قام بنشر نوفمبر 26, 2011 قام بنشر نوفمبر 26, 2011 السلام عليكم الاخ الفاضل ضي النور مشكور على دعائك وكلماتك الطيبه بالنسبه للملف انا شايف فيه بطئ واكيد بيبطئ زيادة عند كبر الملف ماهو الاوفيس الذي شغال عليه انت 2003 ام 2007 اذا كنت تستخدم 2003 فأفضل لك 2007 لانه يقلص الحجم هذا والله اعلم
ضى النور قام بنشر نوفمبر 26, 2011 الكاتب قام بنشر نوفمبر 26, 2011 شغال على اوفس 2010 وجهاز تانى 2007 المشكلة الصفحة تتوقف تماما لا استجابة واضر الى اغلاقها من ادارة المهام وجهازى امكانياته عالية فين المشكلة
الـعيدروس قام بنشر نوفمبر 26, 2011 قام بنشر نوفمبر 26, 2011 ================================================ لحفظ حقوق الاخرين الملف الذي عطيتك من اعمال الاستاذ الكبير احمد حمور ابو عبدالله ================================================ كل اللي سويت فيه عدلت عليه واضافات بسيطه لاتذكر ============================ ارجو منك ارفاق الملف حط بيانات وهميه في كل ورقة جنسية مثل ماتفضلت 1500 اسم ونشوف وين المشكله علا وعسى نتوصل الى حل والاساتذه الكبار موجودين الله يحفظهم
ضى النور قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 يارب يارب نفسى اخلص الموضوع صعب كده
عبدالله المجرب قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 السلام عليكم هل يمكن ارفاق الملف ببيانات وهمية ليتم تحديد سبب المشكلة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.