طارق محمود

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

السلام عليكم تفضل المرفق حماية الخلايا التي فيها معادلات2.rar

السلام عليكم أخي العزيز لكي نعرف رصيد كل مساهم و المتأخرات بذمته لابد من معرفة مادفعه هو (إيرادات منه هو) وما عليه وحده (نصيبه هو من المصروفات) لذلك أري أن نقسم المصروفات عكس ماإقترحته أنت

عفوا حبيبي / أبوحنين لم أر ردك إلا بعد أن رددت

السلام عليكم تفضل الملف (مرفق) وهذا هو الكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) r = Target.Row: c = Target.Column If r < 4 Or r = 65536 Then Exit Sub If c <> 4 And c <> 7 Then Exit Sub If IsEmpty(Cells(r, 4)) Or IsEmpty(Cells(r, 7)) Then Cells(r, 8).ClearContents: Exit Sub If IsEmpty(Cells(r, 4)) And IsEmpty(Cells(r, 7)) Then Exit Sub Cells(r, 8).FormulaR1C1 = "=RC[-1]*RC[-4]" End Sub تحويل المعادلة الي كود.rar

السلام عليكم أخي الفاضل تفضل المرفق (به العمود F إستخدمته كعمود مساعد ، لاتحذف البيانات منه ، يمكنك جعل لون الفونت به أبيض لكيلا يظهر بالطباعة) NOV2.rar

عفوا اخي فقد كنت أرد علي موضوعين في نفس الوقت وجل من لا يسهو حذفت المرفق السابق وتفضل المرفق الصحيح Over time Hours2.rar

السلام عليكم أخي العزيز تفضل المرفق

السلام عليكم أخي العزيز أولا أنا لست محاسبا ، فأريد ان أفهم قبل أن أستطيع المساعدة أم لا السؤال الأول مع أن حركة الصندوق (في شييت الرئيسية) في العنوان من الفترة 01-05-2011 إلي الفترة 01-08-2012 إلا أن تفاصيل الجدول في نفس الصفحة ليس بها بمعني أن الإيرادات كما في صفحة 2012 لم يتم ترحيلها لصفحة الرئيسية أو تم ترحيل بعضها خطأ بمعني أن الإيرادات في كانون الثاني (Jan) كانت 480000 وجدت مكانها 445000 وشباط (Feb) كانت 500000 وجدت مكانها 490000 وآذار (Mar) كانت 520000 وجدت مكانها 465000 ونيسان (Apr) كانت 520000 لم أجدها وايار (May) كانت 500000 لم أجدها وحزيران (Jun) كانت 500000 لم أجدها وتموز (Jul) كانت 500000 لم أجدها وآب (Aug) كانت 500000 لم أجدها السؤال الثاني هل تريد تقسيم المصروفات بالتساوي علي السكان بمعني أن تقسم ÷ 20 (عددهم) السؤال الثالث أين أجد ماسبق لكل ساكن علي حده في شييت الرئيسية ، رصيد ما قبله 1,756,250.00 إجمالا في شييت 2012 ، قد تحتاج لعمود تسجل فيه ماقبله مثلا قبل العمود © كانون الثاني - Jan

السلام عليكم أخي العزيز تفضل المرففق اسماء عشوائية2.rar

السلام عليكم إخواني وأحبائي حمادة عمر / jo11 / أبالحسن شكرا لكم جزيلا علي مروركم الطيب وكلماتكم الكريمة جزاكم الله خيرا أخي العزيز / eed78 الحمد لله الذي بنعمته تتم الصالحات فقط حببت ان أنوه ان بعض الخلايا لاتحتوي علي أرقام محمول مثل الخلية A31 أو بها خطأ مثل C219 - C206 (عدد الأرقام ليست 10 ، يعني ناقص رقم) فالكود لايعمل معها شيئا ويتركها كما هي أو يعطي نتائج خاطئة

السلام عليكم أين المرفق؟

السلام عليكم والآن مع آخر النقطة عندك الثانية بالمرفق الزر الأصفر يقوم بعمل ذلك بالشروط التالية أن يكون الملفين في نفس المجلد أن يكون أسماء الشيتات المراد نقلها متطابقة وكلها تبدأ بـكلمة Data أن الترحيل سيكون في آخر الشيت الذي يحمل نفس الإسم من الملف الأول يعني لو أن Data1 كلن به 2000 سطر ثم Data1 من المملف الثاني به 40 سطر بيانات (بغض النظر عن سطر العناوين الأول) ، فسيكون النتيجة النهائية 2040 سطر لايشمل الكود فرز إذا كانت البيانات مكررة (يعني لو ضغطت علي الزر مرتين فسيتكرر بيانات ورقات الملف الثاني في آواخر ورقات الملف الأول) الكود هو Sub Macro2() On Error Resume Next Nm = ActiveWorkbook.Name pt = ActiveWorkbook.Path Workbooks.Open Filename:=pt & "\Test2.xlsx" Nm2 = ActiveWorkbook.Name For i = 1 To 3 Workbooks(Nm2).Activate sht = "Data" & i Sheets(sht).Select Range("A2:X" & [A9999].End(xlUp).Row).Copy Workbooks(Nm).Activate Sheets(sht).Visible = True Sheets(sht).Select [A9999].End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Sheets(sht).Visible = Hidden Next i End Sub الجزء الأخير من السؤال نفس الإجابة بالسؤال الأول فقط عليك الإستمرار في التسمية بعد Data3 مثلا : Data4 , Data5 , Data6 , Data7 , Data8 , Data9 , ، ... إلي مايكفيك مثلا 20 ثم تغير السطر بالكود من For i = 1 To 3 إلي For i = 1 To 20 تفضل الملف وبه الكود الأول والكود الثاني Test1.rar

سأترك المشكلة الثانية مؤقتا وأجيب علي الثالثة قبلها هذه الرسالة تنبيهيه تفيد انك يجب أن تحفظ الملفات التي بها ماكرو بإمتداد مختلف عن الملفات العادية لتحافظ علي الماكرو بها وهي رسالة بدأت في الظهور من إكسل 2007 ومابعدها أي أنك ببساطة إن لم يكن عندك ماكرو (كود) أو عندك كود ولاتريد الإحتفاظ به ، فتحفظ الملف عادي بالإمتداد xlsx أما إن كنت تريد الماكرو (كود) فتحفظ الملف بالإمتداد xlsm وبطريقة أخري إن حفظت الملف الذي به ماكرو بالإمتداد xlsx وأهملت الرسالة فعند فتحه مرة أخري لن تجد به أكواد

السلام عليكم أخي العزيز أعتذر لك مرة بالنيابة عن كل الأعضاء الذين حاولوا ولم يردوا حتي بكلمة ومرة أخري لطول الوقت ، ولكني لم أر الموضوع إلا اليوم وأرجو أن تكون قد حللت مشاكلك وإلا فلنتابعها واحدة بواحدة الأولي ملف Test1 بة 5 ورقات عمل تم تسميتهم من 1 الى 5 وبكل ورقة PivotTable وهذه الاوراق مخفية تريد كود يعمل تحديث لهذه الجداول PivotTable بمجرد تفعيل الكود من خلال الزر مرفق الملف وبه الكود المطلوب وهذل هو الكود Sub Macro1() For i = 1 To 5 For j = 1 To Sheets.Count If Sheets(j).Name = Format(i, "#") Then With Sheets(j) .PivotTables("PivotTable1").PivotCache.Refresh .Visible = Hidden End With End If Next j Next i End Sub أما عن كيفة اضافة اوراق اخرى فى الكود فقط عليك الإستمرار في التسمية بعد 5 يعني 6،7، ... إلي مايكفيك مثلا 20 ثم تغير السطر الأول من الكود إلي For i = 1 To 20 تفضل الملف وبه الكود وسأتابع معك باقي النقاط Test1.rar

أخي الحبيب الغالي أبانصار عفوا ، لم أر حلك قبل الإرسال ولكن لابأس ، من باب تعدد الحلول

السلام عليكم تفضل المرفق وبه الشرح ارجو المساعدة.rar

السلام عليكم أخي العزيز جرب المرفق مقتبس من موضوع لأخونا الفاضل / معتصم محمد علي الرابط http://www.officena....2 +إلي +0122 وقد عدلت عليه تعديل طفيف ارقام2.rar

السلام عليكم تفضل اخي المرفق بالتنسيق الشرطي MyBook1_T.rar

السلام عليكم ماشاء الله ولاقوة إلا بالله إسمح لي بتحيتك تحية خاصة علي المجهود الرائع والتصميم الممتاز والعرض المتميز وكذلك روح الفريق الجميلة التي أظهرتها بوضوح في نهاية العرض بس لي تعليق صغير تقول "والحمد لله وفقنى ربى وكنت من الفائزين فى المسابقة والتى كانت جائزتها لاب توب - أقدمه لكم اليوم" فين اللاب توب ، مش قلت أقدمه لكم ؟؟ فعلا عمل متميز جزاك الله خيرا

السلام عليكم أخي العزيز لم أعد أفهم ماتريد بالضبط إذا راجعت الملف الذي أرسلته إليك ستجد به خيارات الحضور والإنصراف (الورديات) حسب ماأخبرتني به 10:00 16:00 10:00 17:00 10:00 18:00 10:00 19:00 14:00 22:00 16:00 22:00 بعد آخر تعديل أي أنه عندك 6 إحتمالات أن تبدأ الوردية الساعة 10:00 إلي 4:00 م ، أو تبدأ الوردية الساعة 10:00 إلي 5:00 م أو تبدأ الوردية الساعة 10:00 إلي 6:00 م أو تبدأ الوردية الساعة 10:00 إلي 7:00 م أو تبدأ الوردية الساعة 2:00م إلي 10:00 م أو تبدأ الوردية الساعة 4:00م إلي 10:00 م والآن تقول

السلام عليكم اخي العزيز ماعلاقة هذا الملف الذي أرسلته أنت أخيرا بما أرسلته أنا لك في مشاركتي السابقة #12 وأين المعادلات التي أرسلتها لك مثل =VLOOKUP(ROUND(VALUE(D3)*24+1,0)/24,$V$6:$V$8,1,1) أرجو تحديد ماتريد جيدا

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

السلام عليكم أخي العزيز تقول في الملف كيف لي أنا ان أعرف المؤقت من الدائم

السلام عليكم تفضل أخي الكريم المرفق به ماطلبت invoice 2.rar