طارق محمود

عندك حق المرفق بعد التعديل وبه شرح بسيط المصنف3.rar

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

شكرا جزيلا أخي أشرف

السلام عليكم تفضل المرفق يمكنك إظهار العمود L للتعرف علي المعادلة المصنف2.rar

السلام عليكم أخي العزيز غير الكود بالتالي Sub MOVE() Application.ScreenUpdating = False Dim RNG1, RNG2, RNG3, CEL As Range Set RNG0 = Sheets("ورقة1").[B5:C1000] Set RNG1 = Sheets("ورقة1").[C5:C1000] Set RNG2 = Sheets("ورقة1").[E5:F1000] Set RNG3 = Sheets("ورقة1").[H5:I1000] RNG0.Sort Key1:=[C5], Order1:=xlDescending [E5:I99].ClearContents For Each CEL In RNG1 If CEL.Value <= 20 Then GoTo 10 Next 10 r = CEL.Row: LR = [B999].End(xlUp).Row Range("B" & r & ":C" & LR).Copy [H5].PasteSpecial Paste:=xlPasteValues Range("B" & r & ":C" & LR).ClearContents [H19:I19].Copy: RNG0.PasteSpecial Paste:=xlPasteFormats Range("B5:C" & r - 1).Copy [E5].PasteSpecial Paste:=xlPasteValues RNG0.Sort Key1:=[B5], Order1:=xlAscending RNG2.Sort Key1:=[E5], Order1:=xlAscending RNG3.Sort Key1:=[H5], Order1:=xlAscending Application.ScreenUpdating = True End Sub أو تفضل المرفق ترحيل بشرط3.rar

إخواني الأعزاء جزاكم الله جميعا خير الجزاء

السلام عليكم أخي العزيز ضع الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) r = Target.Row: If r < 4 Then Exit Sub For Each cl In Range("A" & r - 1 & ":I" & r - 1) If IsEmpty(cl) Then GoTo 10 c = c + 1 10 Next If c < 9 Then Target.Offset(-1, 0).Select End Sub أو تفضل المرفق أخي العزيز /أحمد عبد الناصر عفوا لم أر مشاركتك إلا بعد أن شاركت ولكن هذا أفضل للإثراء عدم الذهاب للصف الذي يليه إذا لم تدخل كافة البيانات.zip

السلام عليكم أخي العزيز لاتحتاج كود ولازر فقط إضغط F9 عندما تريد ذلك وان كنت تريد فهذا هو Sub refresh() Calculate End Sub

بارك الله فيك أختي الكريمة وجزاكي خيرا علي كلماتك الطيبة

أخي العزيز أنا لخصت الموضوع لأنني للأسف مشغول جدا هذه الأيام وإن لم يتدخل معك أحد الأعضاء سأكون معك من الأحد القادم إن شاء الله

السلام عليكم المرفق فيديو صغير (ثواني) لكيفية التعرف علي نوع التنسيق الشرطي في 2007 ظلل (إختار) المنطقة التي بها تنسيق شرطي من قائمة التنسيق الشرطي إختر Manage Rules ثم Edit Rule ستجد أنني استخدمت آخر خيار Use a formula ..... تفضل cond_format1.rar

تفضل المرفق وقد ألغيت كل ذلك وغيرت الشرط ليكون =$B7-$G$1<=$C$4 بحيث تضع المدة (30 يوم) في الخلية G1 أو ممكن تضعها ثابتة داخل المعادلة إن لم تنوي تغييرها لتكون المعادلة =$B7-30<=$C$4 تنبيه2.rar

بسيطة إلغي العمود E خالص من الورقة وإلغي شرط التنسيق الثاني وعدل شرط التنسيق الأول للون الأحمر

السلام عليكم سألخص هنا مايريد الأخ: م/محمد كما فهمت من رسالته علي الخاص مبدئيا يريد الملف باللغه العربيه الأخ محمد مهندس يعمل مقاولات كهرباء للبيوت / المباني منفردة للعملاء او المقاولين بالاتفاق (مثلا هذا المبني بكذا على حسب طلبات العميل) مع امكانية ان يتغير مبلغ الإتفاق لزيادة أو نقص الأعمال المتفق عليها اثناء العمل ويستلم دفعات نقدا منهم حتي نهاية المقاولة (1) يريد ان يكون لكل عميل (مقاول) ورقه يوضع فيها (مبلغ المقاولة المتفق عليه ، ومصاريف العمال من يوميات ، ومصاريف انتقال ، والطعام ومصاريف العدد وأي مصاريف اخري ................... ويوضع فيها كذلك أي مبالغ يتم استلامها من العميل (2) يمكنه تسجيل فى أي من هذه الورقات مايلي ............. 1 هذا العميل لديه اليوم عدد كذا عمال مع (أسماؤهم / أرقامهم) ............. 2 مصاريف انتقال كذا ............. 3 أي مصاريف أخري (3) يتم ترحيل أوتوماتيك لعدد يوميات العمال لصفحاتهم الخاصه (أي يكون هناك صفحات عمال وصفحات مقاولين) (4) يتم ترحيل أوتوماتيك للمبالغ الواصلة للعمال لصفحاتهم الخاصه (وبالتالي يتم معرفة الباقى لكل منهم في صفحته) (6) طباعة فواتير للعامل لفترات معينه يعني من تاريخ كذا الى تاريخ كذا (7) طباعة فواتير للعملاء كل فتره (8) طباعة تقرير ببيان الارباح من كل عميل على حده وايضا من كل العملاء مجتمعه ومما قاله أيضا في رسالته علي الخاص أنه يريد "اتحكم فى يومية العامل لان فى عمال بـ 40 و50 و60 واقدر ازودها او انقصها فى اي وقت دون المساس بالفتره الماضيه ويكون فى خانات معينه فى الصفحه الاولى توضح الديون للعمال والمتبقى عند العملاء جملة انا ارسلت فى المشاركة #4 ملف اكسل اقوم فيه بتسجيل اليوميات والواصل ولكني مش مستريح فى التعامل معه"

السلام عليكم أخي العزيز الأفضل دائما أن ترفق ملفا عموما ستجد بالمرفق أن نسبة الربح الإجمالي لاتتغير بتغير قيمة الفائدة السنوية أو تواريخ السداد أو مواعيد الأقساط ولكن ستتغير نسبة المكافئ الفوري للربح الإجمالي تفضل المرفق بصيغتي 2003-2007 تقييم أوامر التوريد.rar

السلام عليكم أخي الفاضل وأستاذي بن علية جزاك الله خيرا علي المرور العطر والمشاركة القيمة أخي الكريم أبو أنس لعلك تقصد عمل تريند (أي منحني تقريبي - إفتراضي) ولعمل ذك: أولا فك ارتباط الشارت مع الالأسهم الحمراء (كليك يمين ثم ungroup) ...... كنت قد ربطهم سويا خشية تشويه الشكل بعد أي تعديل بالشييت ثانيا كليك يمين علي المنحني نفسه ثم اختر Add Trendline ستجد خيارات لهذا أولها Exponential إختاره ثم في الأسفل إختر أيضا الخيار Display equation لإظهار المعادلة للخط الإفتراضي يمكنك تجريبه وقد قمت بذلك لك فنتجت معادلة y = 176.28e1.0147x وليست كما ذكرتها أنت (لعلك ذكرت معادلة لمثال آخر) ولكن كما تعلم (أو يجب أن تعلم) فهذه افتراضات وليست الحقيقة مثلا يمكنك تغيير الخيارات من Exponential إلي خيار آخر وستري تغير الخط الإفتراضي غالبا لاينطبق الخط الإفتراضي علي المنحني الأصلي إلا اذا كان البيانات الأصلية بينها ترابط (أو معادلة حقيقية) إذا تغيير الخيارات من Exponential إلي خيار Polynomial ستلاحظ أنك كلما رفعت قيمة الـ Order يقترب الخط الإفتراضي من المنحني الأصلي ولكن تكبر المعادلة وتتعقد في حالة الأس 5 (Order=5) ستجد المعادلة هي y = -641.64x5 + 5796x4 - 20608x3 + 36144x2 - 30108x + 9817.2 الخلاصة أن الخط الإفتراضي ليس قاطعا وأقرب طريقة هي ماذكرتها لك في مشاركتي السابقة (الخيار الثالث)

السلام عليكم أخي العزيز أولا توجد معادلة في العمود E وهي في الخلية E7 كالتالي =IF(B7-D7>$C$4,"",IF(B7>$C$4,$F$6&B7-$C$4&" يوم ",$F$7&$C$4-B7&" يوم ")) ثم تأخذ منها نسخة للأسفل ويوجد أيضا عمودF مخفي به كجملتان في الخليةF6 ،F7 ولون الفونط بهما أبيض ، إظهرهما لتري ذلك ولشرح هذه المعادلة فهي مقسومة شرطين الشرط الأول : إذا لم يكن تاريخ اليوم أقل من (التاريخ المفروض مطروحا منه المهلة) فلا يكتب شيئا وإلا فالشرط الثاني : إن كان تاريخ اليوم أقل من التاريخ المفروض فيكتب (فات الموعد منذ ... يوم) .................وإلا يكتب (باقي علي الموعد ... يوم) ثانيا التنسيق الشرطي لديك شرطين الشرط الأول يلون برتقالي لقرب الوقت =AND($B7>=$C$4,$B7-$D7<=$C$4) وتلاحظ علامة الدولار قبل B7 ، D7 ; ;وعلامتي الدولار حول C4 وذلك لتثبيت مايلزم للمقارنة في كل حالة والشرط الثاني يلون أحمر لفوات الوقت وهو =$B7<=$C$4

السلام عليكم أخي العزيز أولا: سأغير إسم الموضوع لأنه مخالف >>> أرجو الإلتزام في المستقبل بقواعد المنتدي ثانيا تفضل المرفق بعد التعديل الجمعية - 2013_2.rar

السلام عليكم أخي العزيز تفضل المرفق وبه الحل مع الشرح بأكثر من طريقة أولا عن طريق الرسم (تقريبية) ثانيا عن طريق الحساب (دقيقة) وهي الأفضل ثالثا عن طريق الحساب ولكن بمعادلات الإكسل تفضل المرفق aa_2.rar

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

إخواني وأحبائي المهندس / جمال دغيدي الأستاذ / مجدي يونس الأستاذ / عمر أبوصهيب جزاكم الله خير الجزاء علي المرور العطر والكلمات الطيبة

السلام عليكم أخي الكريم كان الأولي أن ترفق هذا الملف من الأول علي كل حال استبدل الكود بالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Application.ScreenUpdating = False [A11:M40].Sort Key1:=[B11], Order1:=xlAscending, Header:=xlNo For r = 11 To 40 If Cells(r, 2).Value = "" Then Cells(r, 14) = 99 Else Cells(r, 14) = r End If Next [B11:N40].Sort Key1:=[N11], Order1:=xlAscending, Header:=xlNo [N11:N40].ClearContents Application.ScreenUpdating = True End Sub أو تفضل المرفق Classeur1_2.rar

السلام عليكم أخي العزيز أولا اهلا ومرحبا بك بين إخوانك ثانيا وكما قال أخونا الفاضل / ابومحمد ، الأفضل أن ترسل ملفا ثالثا يمكنك البحث بالمنتدي ، إن لم يكن لديك فكرة مبدئية عما تريد تحديدا وكبداية يمكنك مراجعة الروابط التالية ، فقد تجد بها ماتريد جاهزا أو تأخذ منها ملفا وتبدأ من عنده بعدما تضع عليه طلباتك 1. برنامج محاسبة شركات المقاولات (برنامج جاهز) http://www.officena.net/ib/index.php?showtopic=17493&hl=%D9%85%D8%AD%D8%A7%D8%B3%D8%A8%D8%A9 2. ميزانية لمحاسبة شركات المقاولات (برنامج جاهز) http://www.officena.net/ib/index.php?showtopic=17445&hl=%D9%85%D9%82%D8%A7%D9%88%D9%84%D8%A7%D8%AA#entry81894 3. برنامج خبور المحاسبي (برنامج جاهز) http://www.officena.net/ib/index.php?showtopic=17944&page=2&hl=%D9%85%D8%AD%D8%A7%D8%B3%D8%A8%D8%A9#entry86481 4. برنامج مقاولات http://www.officena.net/ib/index.php?showtopic=30620&hl=%D9%85%D9%82%D8%A7%D9%88%D9%84%D8%A7%D8%AA 5. برنامج محاسبة بالاكسيل مجرب http://www.officena.net/ib/index.php?showtopic=30859&hl=%D9%85%D8%AD%D8%A7%D8%B3%D8%A8%D8%A9 6. نظام محاسبة ومخزون مطاعم وفنادق http://www.officena.net/ib/index.php?showtopic=32220&st=0 7. برنامج الحسابات مع مراكز التكلفة http://www.officena.net/ib/index.php?showtopic=32105

السلام عليكم أخي العزيز ضع الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Application.ScreenUpdating = False st = 1 If IsEmpty([B1]) Then st = [B1].End(xlDown).Row LR = [B9999].End(xlUp).Row Range("B" & st & ":B" & LR).Select Selection.Sort Key1:=Range("B" & st), Order1:=xlAscending, Header:=xlNo Range("B" & st).Select Application.ScreenUpdating = True End Sub أو تفضل الملف وبه الكود جرب أن تلغي أو تضيف أي شيء في العمود B Book1_2.rar

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