Eid Mostafa

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

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

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

السلام عليكم ورحمة الله وبركاته أخى الحبيب / بن علية دائماً مبدع بإبتكاراتك تلك وتطويعك للمعادلات بسهوله ويسر زادك الله من علمه الكثير والكثير لى فقط طلب صغير إن كان بالإمكان فى كود طباعه موديول (Printing_General_Ledger_Entries) الذى قمت بتعديله فالكود يقوم بعمل معاينه للطباعه أولاً ، ولكنه يقوم بعد ذلك بالطباعه تلقائياً حتى إن ضغطت على (Close Print Preview) فهل بإمكانك التكرم بإجراء هذا التعديل الطفيف حتى لا أقوم بالطباعه كل مره دون أن تكون هنالك حاجه لذلك. مرة أخرى خالص شكرى وتقديرى على إهتمامك ومتابعتك للأمر أخوك عيد مصطفى

السلام عليكم ورحمة الله وبركاته أخى الحبيب / بن علية بالفعل المعادلات أتت بالنتيجه المرجوه تماماً ، وإن كنت قد قمت بتعديل طفيف حيث إستبدلت القائمة المنسدله بمعادله (if) وإستخدمت زر بدلاً منها. لى فقط طلب صغير إن كان بالإمكان ستجد أن هنالك كود طباعه فى موديول (Printing_General_Ledger_Entries) حاولت جاهداً أن يقوم بطباعة أسطر العمودان (A) & (B) التى تحتوى على قيم فقط وعدم طباعة الأسطر الفارغه. فهل بإمكانك التكرم بتعديل الكود ليفى بالمطلوب. مرة أخرى خالص شكرى وتقديرى على إهتمامك ومتابعتك للأمر أخوك عيد مصطفى Bringing data equation 3.rar

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

عذراً على الإتصال المتقطع بالإنترنت حيث أننى خارج القاهره حالياً ومن المفترض أن أعود غداً بإذن الله تعالى.

السلام عليكم ورحمة الله وبركاته أخى الحبيب / طارق بداية أشكرك على إهتمامك بالرد العمليات (الأرقام) الموضحه بشيت (Trial Balance) هى عمليات تلى مرحلة القيد المحاسبى ، وبشكل أوضح هى إجماليات كافة القيود المحاسبية التى تمت على كافة الحسابات مبوبه بشكل تاريخى (فترات) رصيد إفتتاحى ، يناير ...... إلخ. لذا وكما يظهر بالملف المرفق لا يشترط إطلاقاً تساوى الطرف المدين والدائن لكل حساب ، ولكن يشترط تساوى إجمالى العمود المدين والدائن لكل فترة على حده. (مثال ذلك لابد وأن يتساوى الطرف المدين والدائن للرصيد الإفتتاحى وهكذا ليناير .........إلخ)إلى شيت (General Ledger Entries) وعلى ما أوضحته مسبقاً لا يشترط كما أوردت مسبقاً أن يكون لكل حساب مدين حساب دائن مقابل له بنفس القيمه ، حيث أن قيمة الأصول الثابتة المدينه 1,009,381.08 الدائن المقابل لها سيكون من ضمن الأرصده الدائنة وليس حساب بعينه. خالص شكرى وتقديرى أخوك عيد مصطفى

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء بالملف المرفق حاولت أن أقوم قدر الإمكان بعمل معادله لجلب بيانات من شيت (Trial Balance) إلى شيت (General Ledger Entries) ضمن نفس الملف وذلك على مستوى الرصيد الإفتتاحى وأيضاً على مستوى كل شهر من الشهور. ولكنى وفى حدود إستطاعتى لم أتمكن من ذلك إلا من خلال إستخدام أعمده إضافية (مثال ذلك عمودى D & E) وهذه هى النقطه الأولى التى أرغب فى الإستغناء عنها. كما أنى لم أتمكن من جلب البيانات إلا بنفس ترتيبها بالشيت الأول (Trial Balance) بغض النظر عن طبيعتها (مدين ، دائن) وهى النقطه الثانية التى أرغب فى تفاديها أيضاً. لذا أرجو منكم التكرم بتصويب (ولكم بالطبع مطلق الحريه فى تعديل / تغيير) المعادله الأولى بحيث تأتى بالبيانات وإن كنت أتمنى ألا يتم اللجؤ إلى أعمده إضافيه. كما أرجو بالنسبة للنقطه الثانية أن يتم دائماً جلب بيانات العمود الأول (المدين) أولاً ثم يلى ذلك جلب بيانات العمود الذى يليه (الدائن) ثانياً وذلك على مستوى الرصيد الإفتتاحى وأيضاً على مستوى كل شهر من الشهور. أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Bringing data equation.rar

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

السلام عليكم ورحمة الله وبركاته أخى الحبيب والكريم / بن علية أشكرك جزيل الشكر على مشاركتك هذه وإهتمامك بالرد ولكن أخى العزيز الكود أصبح يحذف قيم عمود الرصيد (عمود D) ويظهر خالى تماماً من أى قيم كذلك أصبحت البيانات تظهر فى أعمده أخرى مختلفه تماماً (مرفق صوره) فقط جرب أن تقوم بتغيير التاريخ (بخليه C6) على سبيل المثال وراقب مايحدث فهل بإمكانك التكرم بمراجعة الكود مرة أخرى أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوك عيد مصطفى Code Merge (3).rar تأثير الكود بعد التعديل.rar

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

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء بالملف المرفق (كود) يقوم بعدم (معاينة) وعدم (طباعة) الأسطر الفارغة فهل بالإمكان إضافة تعديل للكود بحيث يقوم أيضاً بعدم (معاينة) وعدم (طباعة) الأعمدة الفارغة وذلك للمدى (الأعمده) فى النطاق من (عمود E : عمود AC) فقط وذلك إعتماداً على قيمة كل عمود بالسطر 65 أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Eliminate empty columns from printing.rar

السلام عليكم ورحمة الله وبركاته أخى العزيز / عبد الله بداية أشكرك على إهتمامك بالرد ولكن أخى العزيز لا أعتقد كما ذكرت فى ردك بأن الكودان فى كود واحد (وفقاً لمعلوماتى المتواضعه) فالكود الأول هو كود ترحيل ، والكود الثانى هو كود لمحاذاة الأرقام وستجد أخى العزيز أن آلية عمل كل كود تختلف عن الآخر فالكود الأول (كود الترحيل) يعمل من خلال تغيير خلية التاريخ (خليه C6) بينما الكود الثانى (كود محاذاة الأرقام) يعمل من خلال الضغط على أى خليه بالنطاقات المحدده له (خليه D12) على سبيل المثال. فستجد بالملف المرفق أنك ومع تغيير الحساب المحدد (المطلوب ترحيل بياناته) ثم الضغط على خلية التاريخ (C6) بأنه قد تم جلب بيانات الحساب ، ولكن لم يتم تفعيل كود محاذاة الأرقام (فستجد أن الأرقام مازالت فى المنتصف) كما هو موضح بالخلايا من (D13 : D20) (وهذا ينفى فكرة أنهما كود واحد) فى حين أنك إن ذهبت إلى خليه D12 على سبيل المثال وضغطت على F2 ثم Enter فستجد أن الأرقام قد أخذت وضع المحاذاه على اليمين أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوك عيد مصطفى Code Merge (2).rar المحاذاه الخاطئه.rar طريقة تعديل المحاذاه.rar المحاذاه الصحيحه.rar

للرفــــــــــــــــــــــــــــــــــــــــــــــع رفع الله قدركم

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء الكودان التاليان يعملان على نفس الملف ونفس الشيت أيضاً (مرفق ملف) لذا أرجو التكرم بدمجهما معاً فى ليصبحا كود واحد بدلاً من إثنان الكود الأول : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2,E6,C6,C7")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next If Target Is emptey Then Sheet2.Range("B12:C403,E12:N400").ClearContents R = 12: sum1 = 0: sum2 = 0: sum3 = 0: sum4 = 0 For I = 2 To Sheet1.Range("C2000").End(xlUp).Row + 1 Application.ScreenUpdating = False If Sheet2.Range("E6").Value = Sheet1.Cells(I, "C") Then If Sheet2.Range("C6").Value > Sheet1.Cells(I, "H") Then sum3 = sum3 + Sheet1.Cells(I, 1): sum4 = sum4 + Sheet1.Cells(I, 2) End If If Sheet2.Range("C7").Value = "" Then GoTo a2 If Sheet2.Range("C7").Value >= Sheet1.Cells(I, "H") Then a2: If Sheet2.Range("C6").Value = "" Then GoTo a3 If Sheet2.Range("C6").Value <= Sheet1.Cells(I, "H") Then a3: Sheet2.Cells(R, 2) = Sheet1.Cells(I, 1) Sheet2.Cells(R, 3) = Sheet1.Cells(I, 2) Sheet2.Cells(R, 5) = Sheet1.Cells(I, 5) Sheet2.Cells(R, 10) = Sheet1.Cells(I, 9) Sheet2.Cells(R, 11) = Sheet1.Cells(I, 7) Sheet2.Cells(R, 12) = Sheet1.Cells(I, 6) Sheet2.Cells(R, 13) = Sheet1.Cells(I, 8) Sheet2.Cells(R, 14) = R - 11 sum1 = sum1 + Sheet1.Cells(I, 1) sum2 = sum2 + Sheet1.Cells(I, 2) R = R + 1 End If End If End If Next I [L5] = sum1: [M5] = sum2: [N5] = sum1 - sum2 [L4] = sum3: [M4] = sum4: [N4] = sum3 - sum4 [L7] = [N5] + [N4] If [L7] < 0 Then [N7] = "دائن" ElseIf [L7] > 0 Then [N7] = "مدين" Else [N7] = "--" End If End If End If If Not Intersect(Target, Range("C2")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next Application.ScreenUpdating = False [E6] = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("data"), 2, False) End If If Not Intersect(Target, Range("E6")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next Application.EnableEvents = False Target.Offset(-4, -2).Value = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("G1:H200"), 2, False) Application.EnableEvents = True End If الكود الثانى : Dim MyRange As Range Set MyRange = Union([B12:C12], [D12:D400], [B404:D404], [C409:N410]) If Intersect(Target, MyRange) Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each ce In MyRange If IsNumeric(ce) = False Then GoTo 1 ce.NumberFormat = "_(#,##0.00_);[Red]_((#,##0.00);_(--_);_(@_)" If ce.Value = 0 Then With ce .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Else With ce .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter End With End If 1 Next ce Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Code Merge.rar

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

السلام عليكم ورحمة الله وبركاته أخى الكريم والحبيب / بن علية كما توقعت أنت قبل منى فمنذ الثامنه وإلى الآن وأنا أقوم بكل عمليات التباديل والتوافيق فى المعادلتان لتغيير الجزء COLUMNS($L:L( عند نقل المعادله كى تتماشى مع مكانهما بالملف الذى أريده ولكنى لم أفلح مطلقاً فى ذلك. لذا سامحنى على إرسالى الملف الذى أريد منك التكرم بوضع المعادلتان به وذلك فى أسطر 408 و 409 وكذلك أسطر 414 و 415 أعانك الله على أمور حياتك ، وبارك لك فى وقتك وفى عملك وفى أولادك خالص شكرى وتقديرى أخوك عيد مصطفى Statement of Account.rar

السلام عليكم ورحمة الله وبركاته أخى الكريم والحبيب / بن علية فى البدايه أرجو ألا أكون قد أثقلت عليك بطلباتى هذه ولكنى (وهذا ليس عذراً) لم ألتفت إلى الحالتان اللتان أرسلتهما إليك من البدايه لذا أكرر إعتذارى لك. كما أشكرك جزيل الشكر على تلك الحلول الأكثر من رائعه التى أجدها لديك دائماً وسأحاول أن أراعى تغيير الجزء COLUMNS($L:L) عند نقل المعادله وأرجو أن أوفق فى هذا. أعانك الله على أمور حياتك ، وبارك لك فى وقتك وفى عملك وفى أولادك خالص شكرى وتقديرى أخوك عيد مصطفى

أخى الكريم والحبيب / بن علية العذر كل العذر على العوده للموضوع مرة أخرى ولكنى ومن خلال قيامى بتغيير القيم (البيانات) المدخله تبين لى المشكلتان التاليتان:- المشكله الأولى : عندما قمت بإدخال قيمة واحده ليومان فى نفس الشهر فإنها تظهر فى خانة أكبر وأصغر معاً وهو ما حدث فى شهر سبتمبر عندما قمت بإدخال القيمة (1) بالموجب بتاريخ 1/9 ، وتاريخ 30/9. فهل بالإمكان إخال لمساتك العبقريه بحيث تظهر القيمة فى خانة أكبر فقط ولا يظهر شئ فى خانة أصغر؟ المشكله الثانيه : عندما قمت بإدخال قيمة واحده ليومان فى نفس الشهر ولكن بالسالب هذه المره فظهرت فى خانتى أكبر وأصغر معاً وهو ما حدث فى شهر نوفمبر عندما قمت بإدخال القيمة (1-) بالسالب بتاريخ 1/11 ، وتاريخ 30/11 فهل بالإمكان إدخال لمساتك العبقريه هذه المره ولكن بعكس المشكله الأولى بحيث تظهر القيمة فى خانة أصغر فقط ولا يظهر شئ فى خانة أكبر؟ ملحوظه هامه: ستلاحظ أننى قد قمت بتغيير الأسطر والأعمده التى تحتوى على البيانات وذلك حتى تتماشى مع الملف الذى سأستخدم به تلك المعادلات. مرة أخرى العذر كل العذر على إزعاجك بالعوده للموضوع مرة أخرى. خالص شكرى وتقديرى أخوك عيد مصطفى Max-and-Min-Value-in-every-month (2).rar

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

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء بالملف المرفق أريد إستخراج أكبر وأصغر قيمة من القيم الموجوده بعمود لكل شهر على حده وذلك بالسطران 5 ، 6 علماً بأنه فى حالة عدم تواجد قيم لأحد الشهور تظهر خليتى أكبر وأصغر قيمة كما لو كانت فارغه تماماً (أقصد علامة التنصيص هذه "") أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Max-and-Min-Value-in-every-month.rar

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

السلام عليكم ورحمة الله وبركاته أخى الكريم والحبيب / بن علية بداية أشكرك على إهتمامك بالرد على تساؤلى وهذا ما عهدته منك دائماً ولكن أخى الكريم مازالت المشكله كما هى فستلاحظ أن الخليه C265 (بالصوره المرفقه - رقم 1) لم يتم تظليلها باللون الأخضر بإعتبارها أكبر قيمة فى العمود C (كما هو حادث فى النطاقان أعلاه - صوره رقم 2) أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوك عيد مصطفى

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء بالملف المرفق يوجد تنسيق شرطى يظهر أعلى وأقل رصيد بالعمود [C] وذلك بالنطاقات من C3:C159 ، C163: C214 ، C218:C275 وستلاحظون أن معادلة التنسيق الشرطى تعمل بكفاءة فى النطاقان الأول والثانى فقط ، أما النطاق الثالث (C218:C275) فلا تعمل به ولا أدرى لماذا وقد أعيانى البحث عن السبب !!!!!!!! لذا أرجو منكم التكرم بتصحيح الخطأ الحادث بالمعادله وإفادتى عن السبب إن تكرمتم. أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Conditional Formating Adjusting (1).rar