abdelfattahbadawy

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

31 دقائق مضت, AbuuAhmed said:

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

ظهر لي خلل فجأة ثم حاولت في حدوثه مرة أخرى لمعرفة السبب وحل المشكلة ولكنه اختفى!!.
 

 

حضور وإنصراف_04.xlsb 39.11 kB · 0 downloads

جزاك الله خيراً على تعبك واهتمامك

أعتقد الخلل بيحصل لما يكون الشهر 28 يوم حدثت معى أكثر من مرة  

42 دقائق مضت, AbuuAhmed said:

إذن في حالة الغياب ستبدل "P" بحرف "A" مثلا؟

اقتراحي لا داعي لكتابة "P" للحضور، ولا "V" لعطلة نهاية الأسبوع.
أنت تحتاج فقط:
كتابة "A" من Absent في حالة الغياب فقط.
وكتابة "V" من Vacation في حالة كونه في إجازة.

أما عطلة نهاية الأسبوع لا تحتاج إلى كتابة، وعند الرغبة فليكن حرفها "W" من Weekend.
ويمكن التحكم عند الكتابة بمنع الإدخال في خانة عطلة نهاية الأسبوع كذلك ومنع إدخال غير الحروف المطلوبة.

سؤال آخل ماذا لو عمل الموظف أيام العطل الأسبوعية، هل ستضع له حرفا جديدا أم ستستخدم حرف "P" أيضا؟
 

تمام أخى أبو أحمد لكن إثراءاً للمناقشة كيف يتم منع الادخال فى خانة عطلة نهاية الاسبوع بالكود أم بالتنسيق الشرطى ؟

بخصوص عمل الموظف يوم الجمعة فغالباً وعلى مدار ال10 سنوات لا يعمل الموظف معنا يوم الجمعة 

14 دقائق مضت, AbuuAhmed said:

أعرف سؤالي قد يكون تطفلا، وما دفعني للسؤال لغرابة الطلب، أنا توقعت ستملأ الخلايا ببيانات متغيرة وليست ثابتة كـ "V" و "P".
ربما لو توضح لنا الهدف اختصرنا لك كل هالتصميم والكود بدالة صغيرة من خمسة سطور تعطيك المعلومة المطلوبة بسهولة.

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

ممتاز أيضاً أخى محمد لقد زاد حلك المشاركة إثراءاً اللهم بارك فى القائمين على المنتدى وإجزهم عنا خيراً

ممتاز أخى ظبط معى الكود الله يبارك لك فى أهلك ومالك وعلمك وجميع الإخوة القائمين على الجروب 

فى الخلايا التى ليس بها يوم الجمعة كنت أريد الكود يقوم بوضع حرف P  والخلايا التى تحتوى على يوم الجمعة وتم تلوينها يضع حرف V الكود أعلاه جربته بس ما ظبط معى ومشكور أولاً وأخيراً على ردك واهتمامك

بخصوص كتابة كلمة v&p انا استخدمت ذلك الكود لكنة ينفذ حتى سطر 1015

   Dim A As Range
    For Each A In Range("D7:AH15" & Cells(Rows.Count, "A").End(xlUp).Row)
       If Not IsError(A) Then
        If A.Interior.Color = grey Then
              A.Value = "V"
          ElseIf A.Interior.Color = white Then
              A.Value = "P"
          Else
               A.Value = "N"
           End If
       End If
'    Next A

لا أدرى ما المشكلة

جزاك الله خيراً أخى أبو أحمد لكن هل يمكن عمل ذلك بالكود

السلام عليكم

أريد كود إذا وجد يوم الجمعة يقوم بتلوين أسفله بحسب عدد الأسماء الموجود فى العمود B ويتم وضع حرف V فى العمود وP فى باقى الأعمدة(مرفق الملف وصورة للتوضيح)

صورة توضح المطلوب (حاولت كثيراً لكن الكود لا يضبط )

حضور وإنصراف.xlsb

هل يوجد حل لدى أى أحد من الإخوة الأفاضل 

أخى مامون دعيس مشكور على مجهودك لكن هل يوجد كود لعمل ذلك أوطريقة أوتوماتيكية لأن الأمر شبة متكرر وبالتالى عمله بالطريقة اليدوية صعب 

السلام عليكم 

لدى ملف به على سبيل المثال خانة الإجمالى مدموجة فى 3 أعمدة (B&C&D) وهكذا فى باقى الأعمدة هل يمكن أخذ نسخة من التقرير بدون الأعمدة المدموجة 

مطلوب الوصول كما فى  الصورة

وجزاكم الله خيراً مقدماً

حذف الأعمدة المدموجة.xls

جزاك الله خيراً

بارك الله فى جهودك

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

مسودة الاجازات.xlsmأنا أضفت لك الكود فى الملف جرب الكود 

شوف قائمة التشغيل دى أو بدايتها عشان تعرف فين الكود بيتكتب 

بارك الله لك فى علمك

السلام عليكم 

هل يوجد كود لتحويل الأرقام فى الصفحات لملف الإكسل من الإنجليزية إلى العربية دون الحاجة إلى تغيير المنطقة من Control Panel .

جزاك الله خيراً ونفع بكم

ممكن ده يظبط معاك برضوا

Rename Files.xlsm

جزاك الله خيراً

متابع

مشكور أخى إبراهيم جزاك الله خيراً ورفع قدرك

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

هذا الكود كان من إعداد أخى محمد هشام 

Sub shws()
For i = 2 To Sheets.Count
lw = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1
If Sheets(i).Name <> MM Then
Sheet1.Cells(lw, 1) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(lw, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End If
Next
End Sub