بوعلام قام بنشر يناير 31, 2012 قام بنشر يناير 31, 2012 السلام عليكم أساتذتي الكرام في المرفق طلب أرجوا أن يكون بامكان الاكسل تحقيقه وشكرا برنامج الموظفين.rar
احمدزمان قام بنشر يناير 31, 2012 قام بنشر يناير 31, 2012 السلام عليكم الخطوة الأولى انشأنا نسخة مرتبطة مع ورقة الغيابات بحيث تغير كلمة غ الى تاريخ ويبقى كود تجميع هذه البيانات في ورقة جديدة شوف المرفق ينفع علشان نكمل او ماينفع برنامج الموظفين.rar
بوعلام قام بنشر يناير 31, 2012 الكاتب قام بنشر يناير 31, 2012 السلاح عليكم أخي أحمد زمان الفكرة رائعة حقا لكن الملاحظ أنه يضيف يوم دائما مثلا نضع (غ) في اليوم السادس نجد التاريخ 07/01/2012 والأصح هو 06/01/2012 وشكرا جزيلا أرجوا التكملة بارك الله فيك
احمدزمان قام بنشر فبراير 1, 2012 قام بنشر فبراير 1, 2012 السلاح عليكم أخي أحمد زمان الفكرة رائعة حقا لكن الملاحظ أنه يضيف يوم دائما مثلا نضع (غ) في اليوم السادس نجد التاريخ 07/01/2012 والأصح هو 06/01/2012 وشكرا جزيلا أرجوا التكملة بارك الله فيك و عليكم السلام اخي بوعلام زيادة اليوم خطأ يمكن تصحيحة وسوف اكمل الورقة الأخيرة اليوم ان شاء الله تعالى
احمدزمان قام بنشر فبراير 1, 2012 قام بنشر فبراير 1, 2012 السلام عليكم الآن اضغط زر الحوصلة تظهر النتائج برنامج الموظفين.rar
بوعلام قام بنشر فبراير 1, 2012 الكاتب قام بنشر فبراير 1, 2012 السلام عليكم أخي أحمد ما شاء الله عليك عمل ممتاز حقا دمت دائما بخير جزاك الله كل خير
بوعلام قام بنشر فبراير 2, 2012 الكاتب قام بنشر فبراير 2, 2012 السلام عليكم بعد تجربتي وجدت به خطأ أرجوا تصحيحه الشرح في المرفقات برنامج الموظفين.rar
بوعلام قام بنشر فبراير 6, 2012 الكاتب قام بنشر فبراير 6, 2012 للرفع غخواني فانا بحاجة ماسة لهذا الكود
احمدزمان قام بنشر فبراير 6, 2012 قام بنشر فبراير 6, 2012 السلام عليكم أضفنا دالة تقوم بجلب البيانات من الصفحة بيانات برنامج الموظفين.rar
بوعلام قام بنشر فبراير 6, 2012 الكاتب قام بنشر فبراير 6, 2012 (معدل) السلام عليكم ورحمة الله تعالى وبركاته شكرا اخي احمد على تجاوبك لكن عند التطبيق نجد أنه عند الضغط على الزر يتم جلب جميع الموظفين وليس الغائبين فقط ان كان بالامكان التعديل على الكود حتى يتم جلب البيانات من صفحة الغيابات 2 وليس من صفحة البيانات ولكم جزيل الشكر تم تعديل فبراير 6, 2012 بواسطه بوعلام
احمدزمان قام بنشر فبراير 6, 2012 قام بنشر فبراير 6, 2012 معليش اخي ابو علام اليوم المخ صاير شربة قرأت طلبك متين وثلاثة ومش فاهم حاجه خليها الى بكرة نشوف
بوعلام قام بنشر فبراير 6, 2012 الكاتب قام بنشر فبراير 6, 2012 مشكور اخي احمد ان شاء الله بكرة تصير تمام وتضبط الكود يا حكيم الزمان
احمدزمان قام بنشر فبراير 7, 2012 قام بنشر فبراير 7, 2012 السلام عليكم صباح الخير اليوم فهمت تم اضافة عمود في ورقة غيابات 2 به الشرط للترحيل واستفدنا منه ايضا عمل تنسيقات شرطية لإظهار الأشخاص الذين لديهم غيابات في ورقة2 آمل ان يكون هذا المطلوب برنامج الموظفين.rar
بوعلام قام بنشر فبراير 7, 2012 الكاتب قام بنشر فبراير 7, 2012 السلام عليكم ورحمة الله تعالى وبركاته شكرا أخي أحمد وبارك الله فيك هذا هو المطلوب فعلا لكن عند الضغط على زر الحوصلة تظهر كلمة TRUEعند آخر تاريخ للغياب أرجوا التوضيح أو التصحيح وشكرا
احمدزمان قام بنشر فبراير 7, 2012 قام بنشر فبراير 7, 2012 السلام عليكم اضف ناقص واحد الى سطر الأمر For FC = 6 To EC بحيث يصبح For FC = 6 To EC - 1
بوعلام قام بنشر فبراير 7, 2012 الكاتب قام بنشر فبراير 7, 2012 السلام عليكم اخي احمد لقدغيرت الكود كما طلبت لكن المشكلة ما زالت موجودة
احمدزمان قام بنشر فبراير 7, 2012 قام بنشر فبراير 7, 2012 السلام عليكم طيب ياعم امسح البيانات القديمة قبل التجربة و وجرب تاني
بوعلام قام بنشر فبراير 8, 2012 الكاتب قام بنشر فبراير 8, 2012 السلام عليكم ورحمة الله تعالى وبراته أخي احمد لقد اتعبتك معي جربت ما قلت لي لكن المشكلة ما تزال موجودة على العموم ها هو الكود كما طلبت مني تعديله هل هو صحيح Sub husalah() Set FS = Sheets("الغيابات (2)") Set TS = Sheets("الحوصلة") ER = FS.UsedRange.Rows.Count EC = FS.UsedRange.Columns.Count TR = 5 For FR = 6 To ER If FS.Cells(FR, 37) = False Then GoTo 3 RN = "A" & FR & ":E" & FR FS.Range(RN).Copy TS.Cells(TR, 1).PasteSpecial Paste:=xlPasteValues TC = 7 For FC = 6 To EC - 1 Q1 = FS.Cells(FR, FC) If Q1 = 0 Or Q1 = "" Then GoTo 4 TS.Cells(TR, TC) = Q1 TC = TC + 1 4 Next FC TR = TR + 1 3 Next FR Application.CutCopyMode = False End Sub
بوعلام قام بنشر فبراير 8, 2012 الكاتب قام بنشر فبراير 8, 2012 (معدل) السلام عليكم هذا الحل لم يضبط معي ارجوا منك أن ترسل لي ملف آخر عليه الكود الجديد وشكرا تم تعديل فبراير 8, 2012 بواسطه بوعلام
احمدزمان قام بنشر فبراير 9, 2012 قام بنشر فبراير 9, 2012 انته بس تدلل ========= غيرنا الكود بدل EC - 1 عملناها 36 برنامج الموظفين.rar
بوعلام قام بنشر فبراير 9, 2012 الكاتب قام بنشر فبراير 9, 2012 السلام عليكم أخي أحمد اولا دعني اشكرك على حسن تعاونك وصبرك علي وهذا ليس بالغريب عنك ثانيا خبرتي قليلة جدا في الاكسل وانا بصدد التعلم خطوة خطوة اعذرني وتقبل مني 36 اعتذار و Ec-1 سماح جزاك الله كل خير وجعل ما تقومون به في ميزان حسناتكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.