اذهب الي المحتوي
أوفيسنا

(تمت الإجابة) كود خاص بأيام غيابات الموظفين


الردود الموصى بها

السلام عليكم

الخطوة الأولى

انشأنا نسخة مرتبطة مع ورقة الغيابات

بحيث تغير كلمة غ الى تاريخ

ويبقى كود تجميع هذه البيانات في ورقة جديدة

شوف المرفق

ينفع علشان نكمل

او ماينفع

برنامج الموظفين.rar

رابط هذا التعليق
شارك

السلاح عليكم أخي أحمد زمان

الفكرة رائعة حقا لكن الملاحظ أنه يضيف يوم دائما

مثلا نضع (غ) في اليوم السادس نجد التاريخ 07/01/2012 والأصح هو 06/01/2012

وشكرا جزيلا أرجوا التكملة بارك الله فيك

رابط هذا التعليق
شارك

السلاح عليكم أخي أحمد زمان

الفكرة رائعة حقا لكن الملاحظ أنه يضيف يوم دائما

مثلا نضع (غ) في اليوم السادس نجد التاريخ 07/01/2012 والأصح هو 06/01/2012

وشكرا جزيلا أرجوا التكملة بارك الله فيك

و عليكم السلام اخي بوعلام

زيادة اليوم خطأ يمكن تصحيحة

وسوف اكمل الورقة الأخيرة اليوم ان شاء الله تعالى

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله تعالى وبركاته

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

ان كان بالامكان التعديل على الكود حتى يتم جلب البيانات من صفحة الغيابات 2 وليس من صفحة البيانات

ولكم جزيل الشكر

تم تعديل بواسطه بوعلام
رابط هذا التعليق
شارك

السلام عليكم

صباح الخير

اليوم فهمت

تم اضافة عمود في ورقة غيابات 2

به الشرط للترحيل

واستفدنا منه ايضا عمل تنسيقات شرطية لإظهار الأشخاص الذين لديهم غيابات في ورقة2

آمل ان يكون هذا المطلوب

برنامج الموظفين.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله تعالى وبركاته

شكرا أخي أحمد وبارك الله فيك

هذا هو المطلوب فعلا لكن عند الضغط على زر الحوصلة تظهر كلمة TRUEعند آخر تاريخ للغياب أرجوا التوضيح أو التصحيح وشكرا

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله تعالى وبراته

أخي احمد لقد اتعبتك معي جربت ما قلت لي لكن المشكلة ما تزال موجودة

على العموم ها هو الكود كما طلبت مني تعديله هل هو صحيح

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

رابط هذا التعليق
شارك

السلام عليكم أخي أحمد

اولا دعني اشكرك على حسن تعاونك وصبرك علي وهذا ليس بالغريب عنك

ثانيا خبرتي قليلة جدا في الاكسل وانا بصدد التعلم خطوة خطوة

اعذرني وتقبل مني 36 اعتذار و Ec-1 سماح

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information