ناصرالمصرى

أيها الساده الأفاضل 

السلام عليكم ورحمة الله وبركاته

فأنا لا أعجز عن تقديم حل مماثل كما قدمه الأستاذ الفاضل / على محمد

لكنى فى حيره للوصول للنقطة الدقيقة التى على أساسها رُفع الموضوع

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

شكرا جزيلا أستاذى الفاضل وجزاكم الله خيرا

فى الحقيقة أنا أحاول إستخدام الداله 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

كفيت ووفيت أخى وأستاذى العيدروس

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