طارق محمود

1- تتم عمليه الحفظ يدويه ان امكن عمل الحفظ اوتوماتيك اى بعد ساعه معينه تتم عمليه الحفظ وليكن كمثال بعد الواحده صباحا يتم تنفيذ الأمر حفظ تلقائيا. تم الإجابة علي هذا في الموضوع الآخر والمرفق يتضمن نفس الحل 2- هل يمكن عمل كلمه سر للأغلاق اى عند اغلاق الملف لابد من ادخال كلمه سر ممكن وكلمة السر في المرفق هي aaa 3- كلمه سر للتنقل بين الشيت الأول او الثانى اى لايمكن فتح الشيت الثانى الا بعد وضع كلمه سر تم عملها وكلمة السر أيضا في المرفق هي aaa 4- عند اغلاق الملف هل يمكن الأغلاق مع عمل حفظ تلقائى دون السؤال هل تريد الحفظ ام لا اى اغلاق مباشر مع الحفظ دون اى رسائل سوى رساله كلمه السر ان وجدت تم عمل ذلك

السلام عليكم أخي مراد حللت الموضوع بطريقة أخري غيرت المعادلة التي في الخلية k1 لتشمل عدد الأحداث التي تم حذفها بالسالب بمعني أن الموظف الذي حدث له تغير في الحالة من كذا إلي كذا فما عليك إلا أن تضغط دبل كليك علي إسمه الموجود بالعمود B (بعد التأكد من نقل بياناته القديمة) وبهذا يعمل ماكرو آخر تلقائي ، ويقوم بالتالي (1) يراجع إن كان هذا الإسم ليس مكررا بالخلايا التي تعلوه فلن يعمل الماكرو شيئا وإلا إن كان مكررا فسيقوم بالتالي (2) يحذف البيان المكرر القديم بالخلايا التي تعلو هذا البيان (الذي ضغطت عليه دبل كليك) حذف لجميع عناصر البيان (3) يزيد الرقم الموجود في الخلية N1 ستجد الرقم الذي في الخلية k1 ينقص بمقدار 1 علي أساس أنه لن يكون هناك تكرار للإسم بالخلايا التي تعلوه أكثر من 1 فقط ثم ببساطة تضغط مرة أخري علي الزر اللخضر لتشغيل الماكرو الأصلي حفظ الأحداث أي أنك لن تحذف يدويا أي بيان فقط تضغط دبل كليك علي الإسم الموجود بالعمود B في صف البيان الجديد ويقوم الماكرو بالحذف واتخاذ اللازم اوتوماتيكيا جرب المرفق وأخبرني النتيجة كرونولوجيا الأحداث والمتغيرات لموظفي الشركة2.rar

نعم أخي ممكن طبعا أن يتم عمل حفظ تلقائى للملف عند الساعة 1:00 ص ان كان الجهاز مفتوحا وإذا كان مغلقا عند الساعة 1:00 ص فلن يتم الحفظ في هذا اليوم الأفضل تحديد ساعة عند فتح الملف وذلك عن طريق ماكرو صغير في حدث فتح الملف الكود الجديد المضاف هو Private Sub Workbook_Open() x = InputBox("what time you want to SAVE HH:MM ?") Application.OnTime TimeValue(x), "Save_AS" End Sub ومرفق الملف بعد التعديل مازال لديك امكانية الحفظ في أي وقت آخر أثناء العمل علي الملف بنفس الزر السابق SAVE_A5_F23.rar

أخي الكريم مرفق الحل بمعادلات Sumifs أصلحت فقط الجدول الأول وعليك الباقي تفضل المرفق مـــحـــــاضــر الاثــــــبــــــاتــــ UP Date To 31_01_2011--OK3.rar

السلام عليكم أخي مراد سأبدأ أولا بالطريقة الثانية أن لاتلغي أي حدث من الورقة الأولي بمعني أن الموظف الذي كان في حالة غياب مثلا بعد نقل بياناته في شيت كرونولوجيا الأحداث وبعدحضوره من الغياب فلا تحذف الحدث الأول في هذه الحالة ويبقى مدونا في الورقة الأولي والطريقة الأولى أن تلغي الحدث من الورقة الأولي بعد نقله في شيت كرونولوجيا الأحداث مثلا عندك 19 حدث أولها كان الموظف الذي كان في حالة غياب وبعدحضوره من الغياب تحذف الحدث الأول من الورقة الأولي وتنقص الرقم يدويا الموجود في الخلية k1 مثلا كان فيها معادلة تجلب الرقم 19 تمسحها يدويا وتجعلها 18 وإن كنت حذفت حدثين تجعلها 17 وهكذا أي أن الكود ينقل الأحداث ذات رقم المسلسل الأكبر مما في الخلية k1

السلام عليكم أخي الكريم مرفق الحل بمعادلات Countifs بدلا من Sumproduct أصلحت الجداول الثلاثة الأولي وعليك الباقي تفضل المرفق مـــحـــــاضــر الاثــــــبــــــاتــــ UP Date To 31_01_2011--OK2.rar

أعتقد ان الخطأ يعني أن إسم الملف أو المسار غير دقيق أو أنه غير موجود والله أعلم افتح الملف المطلوب علي حدي ثم F12 أو Save as وانسخ اسم الملف اللي يطلع كماهو وبالنسبة للمسار من الإكسبلورر إذهب إلي مكان الملف بالظبط انظر الصورة كمثال

استكمالا للموضوع ممكن وضع علامة - أو _ بدلا منها ولعمل هذا استبدل السطر الثاني من الكود بدلا من d = WorksheetFunction.Text(Date, "ddmmyy") ليكون d = WorksheetFunction.Text(Date, "dd-mm-yy") أو d = WorksheetFunction.Text(Date, "dd_mm_yy")

السلام عليكم أخي MGS لايمكن وضع هذه العلامة "/" في اسم الملفات خارج هذا الموضوع جرب أن تحفظ ملفا بإسم يحتوي علي /

السلام عليكم لست متأكدا تماما ولكن جرب التالي أضف سطر Option Explicit في أول الكود وأضف سطر تعريف Dim wk As Workbook بعد بداية الكود للمتغير wk سيكون الكود كالتالي (جرب وأخبرني) Option Explicit Function CheckForNetwork() As Boolean Dim wb As Workbook On Error Resume Next Set wb = Workbooks.Open("g:\Accounts Payable\FileL2222.xls", True, True) If Err.Number = 0 Then CheckForNetwork = True Else CheckForNetwork = False End If End Function Private Sub Workbook_Open() 'If Dir("g:\Accounts Payable") = "" Then ThisWorkbook.Close savechanges:=False 'If Dir("g:\Accounts Payable") = "" Then ThisWorkbook.Close savechanges:=False Dim wk As Workbook Select Case CheckForNetwork Case Is = True 'Application.Wait "00:00:05" 'Sheet1.Range("A1").Formula = "='g:\Accounts Payable\[File2222.xls]sheet1'!$A$20" Workbooks.Open Range("A1").Value 'Set myworkbook = Workbooks.Add Case Is = False Set wk = Workbooks.Add ThisWorkbook.Close savechanges:=False End Select End Sub

السلام عليكم أخي مراد لم أستطع تحميل الفيديو ممكن تضغطه وتحمله بالمنتدي لكنني أظن انني فهمت المشكلة انتبه للآتي : في ثالث أو رابع سطر بالكود ستجد Last_sh = [k1] ' Last shifted وهذا يخبر الكود ان آخر حدث تم ترحيله هو رقم كذا (الموجود بالخليةk1 ) فإذا كان ماتم ترحيله مثلا 19 حدث كما بالمثال ثم أضفت حدث جديد ولكنك ألغيت آخر قديم فسيظل العدد الإجمالي 19 ولن يتم ترحيل شيء ولهذه المشكلة عندك حلين (1) إما أن تجعل آخر تغييرات دائما في أواخر الجدول وتغير يدويا الرقم الموجود بالخلية k1 (2) أو ألا تلغي الأحداث القديمة في الورقة الأولي وتجعلها متتابعة ولو وصلت إلي 10000

السلام عليكم أخي طاهر الطلب الأول سهل للغاية ، فالجداول المحورية مرنة جدا قف علي أي عنوان في الورقة الثانية جدول التحصيلات مثلا الخلية C7 ".مؤخر-قسط1" غيرها يدويا إلي "طاهر-قسط أول" مثلا ، سيقبل ذلك الطلب الثاني أيضا سهل بإذن الله إن كنت تقصد إدخال بيانات جديدة أخري علي الجدول فعليك بالتالي (1) قف علي أي خلية بالجدول المحوري بالورقة الثانية جدول التحصيلات (2) ثم كليك يمين ستجد قائمة الجداول المحوري (3) إختر PivotTable Wizard (4) ثم إضغط زر Back من القائمة التي ستظهر (5) سيعطي لك المجال الذي منه بيانات الجدول وتغيره كما تشاء أما إن كنت تقصد إدخال بيانات من الموجودة وتريد إظهارها علي الجدول (الأسم مثلا) فعليك بالتالي (1) قف علي أي خلية بالجدول المحوري بالورقة الثانية جدول التحصيلات (2) ثم كليك يمين ستجد قائمة الجداول المحوري (3) إختر PivotTable Wizard (4) ثم إضغط زر Layout من القائمة التي ستظهر (5) سيعطي لك القائمة البيانات التي تشكل منها الجدول (6) لإضافة الأسم لعناوين الأعمدة مثلا إسحب من زر الإسم الذي يظهر عندك إلي مكان Column ولتعلم المزيد عن الجداول المحورية ، عليك بالرابط التالي http://www.officena.net/ib/index.php?showtopic=15722&st=0&p=68951&hl=+%C7%E1%CC%CF%C7%E6%E1%20+%C7%E1%E3%CD%E6%D1%ED%C9%20+%D4%D1%CD&fromsearch=1&#entry68951 لأخونا واستاذنا يحي حسين تحياتي

السلام عليكم نسخت الإسم علي جوجول المترجم وكان معناه مشع الحرارة بالعبري وهناك لغة أخري تستخدم نفس الحروف هي لغةYiddish وكان معناه بها : مواد القراءة والله أعلم

السلام عليكم أخي العزيز هذه المشكلة تعود إلي نظام الويندوز أو الأوفيس بالكمبيوتر عندك كنت أعاني منها لوقت قريب حيث لايتعرف (او لايتوافق) تماما مع الأحرف العربية عموما سأكتب الكود هنا وعندك حلين (1) إما تحاول إصلاح وضبط اللغة ثم نقله عندك (يوجد 4 مواضع باللغة العربية لتضبطها يدويا) (2) أو تغير سماء الشيتات للغة الإنجليزية وبالطبع تغيرها أيضا في الكود وهذا هو الكود ومرفق صورة أيضا Sub Shift() Dim s_Hadth(99), h_Name(99), h_Reson(99), h_From(99), h_To(99) As Variant Sheets("الحالة اليومية للغيابات").Select Hadth_No = Cells(10000, 2).End(xlUp).Row - 2 Last_sh = [k1] ' Last shifted Hadth_to_shft = Hadth_No - Last_sh ' Subustruct Last shifted '___________ READ _________________ For i = 1 To Hadth_to_shft rrow = i + 2 + Last_sh s_Hadth(i) = Range("A" & rrow).Value h_Name(i) = Range("B" & rrow).Value h_Reson(i) = Range("E" & rrow).Value h_From(i) = Range("F" & rrow).Value h_To(i) = Range("G" & rrow).Value Next i ' Write Sheets("كرونولوجيا وأرشيف الأحداث").Select last_Row = [B10000].End(xlUp).Row For qq = 1 To Hadth_to_shft For i = 3 To last_Row If Range("B" & i) = h_Name(qq) Then Range("B" & i).End(xlToRight).Offset(0, 1) = h_Reson(qq) Range("B" & i).End(xlToRight).Offset(0, 1) = h_From(qq) Range("B" & i).End(xlToRight).Offset(0, 1) = h_To(qq) GoTo 100 End If Next i MsgBox (" الإسم " & h_Name(qq) & " غير موجود في شيييت كرونولوجيا وأرشيف الأحداث") 100 Next qq End Sub Sub deletehadath() Sheets("كرونولوجيا وأرشيف الأحداث").Select Range("E3:Y53").ClearContents End Sub

أخي العظيم الفاضل / بن علية عفوا لم أر ردك

السلام عليكم أخي الكريم استبدل المعادلة في الخلية B9 بالتالية =SUBTOTAL(9,B2:B8) وانسخها للباقي

السلام عليكم الملف به كود وهو يعمل جيدا Private Sub Workbook_Open() Select Case CheckForNetwork Case Is = True Sheet1.Range("A1").Formula = "='g:\Accounts Payable\[File2222.xls]sheet1'!$A$20" Workbooks.Open Range("A1").Value Case Is = False Set Wk = Workbooks.Add ThisWorkbook.Close savechanges:=False End Select End Sub وهذا الكود إذا أردت قرائته فعليك رفع أمان الماكرو للحد الأقصي حتي لاينفذ الماكرو ويعطله أولا لتقرؤه وهو كما تعرف يختبر الاتصال بمحرك اقراص النت: G:\ إما ان يكون متصل Case Is = True فيفتح الملف المشار إليه أو ليس متصلا Case Is = False فيغلق الملف وينهي الماكرو وقد يكون القرص الصلب ليس G فسيغلق الملف وينهي الماكرو أيضا

السلام عليكم أخي الحبيب مراد لم أسمع من قبل عن هذا المصطلح كرونولوجيا ولكن لابأس حللت لك الموضوع بالأكواد وليس بالدوال أنظر المرفق كرونولوجيا الأحداث والمتغيرات لموظفي الشركة.rar

السلام عليكم الملف المرفق قمت بعمله وإستعماله سابقا وأرفقته فقط كمثال لك وللإستفادة من المعادلات به يتم تقييم الأداء علي ثلاث أسس كمثال وتستطيع زيادتها وتغييرها كما تشاء ووضعت فيه نقاط (وزن) لكل نقطة منها مثل أ - الإنتاجية - 60 نقطة ب - التكلفة - 30 نقطة ج - الإلتزام بالحضور - 25 نقطة وهكذا ، الإجمالي من 115 نقطة ستجد مثلا ان الموظف الأول في نقطة الإلتزام بالحضور أو الأول في نقطة تقليل التكلفة ليس بالضرورة أن يكون الأول علي الإطلاق ستجد المعادلات بسيطة إن شاء الله وبالملف أيضا تنسيق شرطي يبين أوتوماتيكيا لون مختلف لكل من الأول والثاني والأخير في كل نقطة علي حدي (أخضر - أصفر - أحمر) راجع الملف ولو عندك اسئلة لاتتردد ولاتنسي الدعاء لمصر تقييم الاداء.rar

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

السلام عليكم اهلا ومرحبا اخي الكريم بين إخوانك لتفعيل عمل الماكرو إن كان الأوفيس 2003 (Tools - Macro - Security - Security Level) ثم إختر آخر خيار في الأسفل إن كان الأوفيس 2007 / 2010 (File- Options- Trust center- Trust center Settings - Macro Settings ) ثم إختر آخر خيار في الأسفل من الأربعة خيارات العلوية

السلام عليكم أخي العزيز أتممت جزء من المطلوب عرفت السبب وعالجته باقي النقاط : ان تنتقل المعلومات بالترتيب الى سجل اليومية العام وبالتالي تنتقل الى يومية الصندوق وورقة الايرادات والنفقات / لتظهر المعلومات ايضا في ميزان المراجعة لابد أن تصبر قليلا لضيق وقتي وسخونة الأحداث في مصر تؤثر علينا جميعا ولانملك غلا الدعاء تفضل المرفق hesabat2011_2.rar

السلام عليكم أخي العزيز مع الإحتفاظ بكود أخونا الكريم عادل حفني غيرت ضغطة الزر ليتم تنفي الكود الجديد أرجو أن يكون المرفق هو ماتريد Save_invoice_in same file.rar

السلام عليكم لست متأكدا أنني فهمت تماما لكن انظر المرفق عسي ان يكون ماتريد تحصيل مفصل2.rar

السلام عليكم أخي الحبيب تفضل المرفق وبه ورقة إضافية لشرح بسيط حسبما تيسر من الوقت 2محرم.rar