ناصرالمصرى

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

شكرا جزيلا أستاذى الفاضل وجزاكم الله خيرا فى الحقيقة أنا أحاول إستخدام الداله LEFT للحالتين جزءاحاله50 و جزءوفاه50 بهذه الصيغة المبينة =IF(LEFT(B6="جزءاحاله";8);"") ولكن نظرا لوجود حالات كثيرة يختلف فيها الرقم 50 فقد فشلت فى إضافة العديد من الشروط فهل من سبيل لتحقيق ذلك **** شاكر فضل حضرتك وجزاكم الله خيرا

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

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

شكرا لحضراتكم جميعا وجزاكم الله خيرا أخى ابو زيزو *** ماذا لو أردت تكرار هذا التاريخ الى أخر سطر يحتوى على بيانات أرجو الإفاده بارك الله فيكم

شكرا لك أخى وأستاذى أدرك أن الموضوع قد يكون مُحير *** لكنى على ثقة بالله أولا ثم بكم أنه قد يكون لقد أخترت هذة المعادلة *** برجاء الاطلاع على المزيد من التوضيح شاكر فضل حضرتك وجزاكم الله خيرا DAATES+22222.xls

أخى الفاضل بداية لا داعى للإعتذار فكلنا هنا للتعليم والتعلم .... أما عن فكرة الموضوع فتم توضيحها توضيحا كاملا لكن للأسف تم حذف هذة المشاركة بعد رد اخى الفاضل الاستاذ / عبد الفتاح حيث انه صاحب الحل المبدئى للمعادلة المبينة من داخل المرفق أعلاه . نأتى لمعادلة الاستاذ الفاضل / عبد الفتاح فهى تعمل بشكل جيد ولكن دون تحديث تلقائى =IF(AND(TODAY()<=EDATE(A2;12)-1;TODAY()+1>=EDATE(A2;12));EDATE(A2;12);"") لذلك أرفقت معادلة تحديث الشهر الحالى لتقريب وجهة النظر =DATE(YEAR(TODAY());MONTH(TODAY());1) ومفادها أن تاريخ الشهر الحالى يظل ثابتا حتى نهايته ويتم تحديثه تلقائيا الى الشهر التالى بتغير ساعة الويندوز نفس الفكرة أريد تطبيقها ولكن لعام كامل بداية من 2019/7/1 بحيث مع نهاية يوم 2020/6/30 يتم تحديث بداية العام الى 2020/7/1 تلقائيا وهكذا لباقى السنوات وذلك من خلال خلية واحدة وأخيرا أخى الفاضل قد تصيب أو تخطىء فكرتى *** شاكر فضل الجميع لأى حل قد يكون لديكم

غير تاريخ الجهاز الى 2020/6/30 ثم إضغط على مفتاح F9 لمعرفة ما أعنيه المطلوب تطبيق نفس المعادلة ولكن من خلال خلية واحدة فقط أعتقد الفكرة قد وصلت **** شكرا جزيلا

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

للرفع

ملاحظة : تم تعديل المشاركة لاعادة بعض الردود الى حذفت عن طريق الخطأ. المشاركة الأصلية: السلام عليكم ورحمة الله وبركاته ... وكل عام وحضراتكم بخير أتسأل عن إماكنية تثبيت تاريخ محدد مع تحديثه كل 12 شهر بطريقة تلقائية مثالا على ذلك اريد معادلة لتثبيت تاريخ 2019/7/1 فى خلية واحدة بحيث يتم تحديث هذا التاريخ كل 12 شهر بمعنى أنه مع نهاية يوم 6/30 من كل عام يتم التحديث الى 2020/7/1 ومع نهاية يوم 2020/6/30 يتم التحديث الى 2021/7/1 وهكذا لباقى السنوات " أمد الله فى عمركم " شاكر فضل حضراتكم وجزاكم الله خيرا ثم تم اضافة المرفق التالي فى مشاركة لاحقة من الأخ عبد الفتاح بعناية الاستاذ الفاضل - عبد الفتاح.xls و تلاه الرد التالي من لأخ ناصر جزاكم الله خيرا أخى الفاضل الاستاذ / عبد الفتاح لتوضيح ما أعنيه ولتقريب وجهة النظر أضفت فى الخلية H2 معادلة لتحديث تاريخ بداية الشهر الحالى تلقائيا بمعنى عند تغير تاريخ الجهاز الى 2020/6/1 سيتغير التاريخ تلقائيا ولمدة شهر كامل وهكذا المطلوب بإذن الله تعالى هذا بعد طلب الإذن من سيادتكم تطبيق نفس الفكرة على التاريخ المعنى بالموضوع ألا وهو 2019/7/1 مضاف اليه 12 شهر بحيث يتم تحديثه تلقائيا مع نهاية 6/30 من كل عام " أمد الله فى عمركم " وذلك من خلال خلية واحدة بدلا من خليتين ... هذا ما أسعى إليه ..... شاكر فضل حضرتك وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بكل خير كنت أتسأل عن إمكانية تثبيت تاريخ لمدة محددة فى سبيل بعد انتهاء هذة المدة يتم تغيير التاريخ تلقائيا حسب تاريخ نظام تشغيل الويندوز مثال أريد تثبيت هذا التاريخ على سبيل المثال 2019/7/1 لمدة 12 شهر بحيث يتم تغيره بشكل تلقائى الى 2020/7/1 بنهاية يوم 2020/6/30 كيف يمكن تحقيق ذلك ..... شاكر فضل حضراتكم وجزاكم الله خيرا

استاذ أحمد فى الحقيقة تم تجربة هذا البرنامج من مدة ولكن لا يعطى نتائج صحيحة فهل هناك معادلة حتى يمكننا الحصول على الاساسى المجرد حتى وإن كانت تقريبيه

شكرا لحضرتك أستاذى الفاضل كيف يمكن تحديد الاساسى المجرد من العلاوات حال عدم الحصول عليه أرجو الافاده وشاكر فضل حضرتك

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

الصح = 109.35 ضريبة الدمغه على مبلغ ال 21000 حضرتك حسبتها إزاى 167.60

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

استاذ احمد ... السلام عليكم ورحمة الله وبركاته كمل جميلك ... برجاء الإفادة عن كيفية حصر جملة العلاوات الخاصة التى تم إعفاؤها من 87 حتى 2013 شاكر فضل حضرتك وجزاكم الله خيرا

الله يبارك فى حضرتك يا أستاذ أحمد سأعود مرة أخرى لسؤالى بشأن صندوقين الزمالة والرعاية العماليه هناك رأى ان هذين الصندوقين تم إنشاؤهما بالقانون رقم 54 لسنة 1975 وهناك رأى يُنفى ذلك .... فأيهما أصدق حتى نقطع الشك باليقين شاكر فضل حضرتك وجزاكم الله خيرا

استاذ أحمد .... السلام عليكم ورحمة الله وبركاته أرجو قبول إعتذراى للتأخير فى الرد ... كما أرجو إتساع ضدرك نظرا لوجود لبث عندى بالنظر فى كتاب دورى 67 لسنة 2019 الصفحات من 3 الى 5 حيث ورد بهم نموذجين لحساب ضريبة الدمغه وضريبة الدخل على المرتبات حيث وضح المثال المرفق بالكتاب الدورى كافة الإعفاءات المقررة قانونا من ضمنها العلاوات المضمومة للمرتب ( من 87 حتى 2013 ) فهل ياتُرى سنطبق حساب ضريبة الدخل مع اعفاء العلاوات المضمومة كما ورد بالكتاب الدورى أم توقف هذا الأمر كما ذكرت سيادتكم وبالتالى لا تندرج جملة العلاوات المضمومة ضمن الاعفاءات رغم إعفاءها بنص قوانينها وبشكل مختصر هناك عوامل مشتركة للمخاطبين بالقانون 155 و 81 بشأن المبالغ المعفاه بإستثناء جملة العلاوات المضمومة فهى تقتصر على المخاطبين بالقانون 155 فقط فمع وجود هذا اللبت فهل سيتم إعفاء تلك العلاوات أم لا ..... أرجو الإفادة وجزاكم الله خيرا عذرا أستاذ أحمد فمع وجود هذا اللبث فهل سيتم إعفاء تلك العلاوات أم لا وأعتذر عن الخطأ الإملائى فى نهاية مشاركتى الاخيرة كتاب_دوري_٦٧_لسنة_٢٠١٩.pdf

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

بارك الله فيك يا أستاذ احمد تمام معاليك .... سؤال أكثر تحديدا هذا بعد إذن حضرتك .... هل صندوق الزمالة الــ 7% وصندوق الرعاية العمالية الــ 5% ينطبق عليهم نص الفقرة الثالثة من المادة رقم 13 ..... برجاء الافاده وجزاكم الله خيرا

جزاكم الله خيرا أستاذ أحمد اسمح لى من فضلك بسؤال .... ماذا تقصد بالعمود المعنون بــ اعفاءات اخري وصناديق مالمقصود هنا بالإعفاءات الأخرى و الصناديق المعفاه من الضريبة .... شاكر فضل حضرتك على هذا الجهد

أخى وأستاذى الفاضل / العيدروس السلام عليكم ورحمة الله وبركاته بداية جزاكم الله خيرا وبارك فيكم **** فى الحقيقة لقد أستهوانى هذا الموضوع الشيق ولإحتياجى لهذا العمل لأكثر من ورقة عمل مختلفة من حيث التصميم كهدف ومصدر البيانات واحد Option Base 1 Private Const Mycount As Integer = 10 Dim My_Rng As Range Private Sub CheckBox1_Click() With CheckBox1 If .Value = True Then .Caption = "إلغاء تحديد الكل" PrintOut.Enabled = False Un_Lo True Else PrintOut.Enabled = True .Caption = "تحديد الكل" Un_Lo False End If End With End Sub Private Function Un_Lo(Bl As Boolean, Optional Ck As Boolean) Dim Ch_Comb As Control For Each Ch_Comb In Me.Frame2.Controls If TypeOf Ch_Comb Is MSForms.CheckBox Then If Ck Then If Ch_Comb.Value = True Then Un_Lo = 1 End If Else If Ch_Comb.Value <> Bl Then Ch_Comb.Value = Bl End If End If End If Next Ch_Comb End Function Private Sub CommandButton4_Click() Dim Chck As Control Dim Sh As Worksheet Set Sh = Sheets("ورقة2") With Me If Un_Lo(True, True) = 1 Then For Each Chck In Me.Frame2.Controls If TypeOf Chck Is MSForms.CheckBox Then If Chck.Value = True Then Sh.[CA12].Value = Chck.Caption Sh.PageSetup.PrintArea = "$A$1:$L$50" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If End If Next Chck Un_Lo False, False Else Sheets("ورقة2").Select Sh.PageSetup.PrintArea = "$A$1:$L$50" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If End With Set Sh = Nothing End Sub Private Sub CommandButton6_Click() Application.Visible = True Unload Me End Sub Private Sub Label6_Click() End Sub Private Sub PrintOut_Change() Sheets("ورقة2").[CA12].Value = PrintOut.Text ''''''''''' End Sub Private Sub UserForm_Initialize() Dim Sh As Worksheet Dim Ar Set Sh = Sheets("الرئيسية") Set My_Rng = Sh.Range("f8:f2500") Ar = Ali_Def(My_Rng) Dim MyTop As Integer, i As Integer Dim MyCBox As Control Dim MyCmBox As Control CheckBox1.Caption = "تحديد الكل" MyTop = 0 For i = 1 To UBound(Ar) Set MyCBox = Frame2.Controls.Add("Forms.CheckBox.1") With MyCBox .Move 200, MyTop, 200, , True .Alignment = 0 .Font.Bold = True .Font.Size = 14 .Caption = Ar(i) .Value = False .Name = "A" & i .TextAlign = fmTextAlignRight End With MyTop = MyTop + 30 Next With Me If MyTop > .Height Then .Frame2.ScrollHeight = (UBound(Ar)) * 30 .Frame2.ScrollBars = fmScrollBarsVertical Else .Frame2.ScrollBars = fmScrollBarsNone End If Me.PrintOut.List = Ali_Def(My_Rng) End With End Sub Function Ali_Def(Rng) As Variant Dim Cell As Range Dim Ar() Dim Ob_A Dim i Dim Vr With Sh On Error Resume Next End With Set Ob_A = CreateObject("Scripting.Dictionary") For Each Cell In Rng If Not Ob_A.Exists(Cell) Then Ob_A.Add Cell, Cell.Address End If Next For Each Vr In Ob_A.Keys If Not Vr = "" Then i = i + 1 ReDim Preserve Ar(1 To i) Ar(i) = Vr End If Next If i Then Ali_Def = Ar() End If End Function فكرت فى فكرة لم أستطع القيام بها وهى أننى قمت بإنشاء فورم بإستخدام الصفحات المتعددة ( MultiPage ) فكيف يمكن تطويع هذا الكود لأكثر من ورقة من خلال صفحات ( MultiPage ) **** أليك أخى الفاضل هذا المرفق لتوضيح ما أريد تحقيقة ***** برجاء اللإطلاع والإفادة وجزاكم الله تعالى خيرا بيان الحالة-الاستاذ العيدروس.xlsb.xlsm

كفيت ووفيت أخى وأستاذى العيدروس بارك الله فيكم وفى أولادكم وجزاكم الله خيرا