اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

  • تمت الإجابة
قام بنشر

الأخ الفاضل عبد الله شيخون

إليك الملف التالي عله يفي بالغرض

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    Application.EnableEvents = False
        If Target.Row > 5 Then
                If Format(Cells(2, Target.Column), "ddd") = "الجمعة" _
                Or Format(Cells(2, Target.Column), "ddd") = "السبت" Then
                    Target.ClearContents: Target.Select
                End If
        End If
    Application.EnableEvents = True
End Sub

تقبل تحياتي

كشف الغياب.rar

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information