ملئ التاريخ من اي يوم

[بلانك]

المطلوب 
عند كتابة التاريخ في الخلية  M1   يمتلئ التاريخ تلقائيا في الجدول ولو بدأ اول الشهر من اي يوم من يوم الاحد او الخميس علما ايام الجدول ثابتة

حساب التاريخ.xlsx

[hegazee]

تفضل

حساب 2التاريخ.xlsx

[بلانك]

تمام بارك الله فيك وجعله في ميزان حسناتك ولكن عند وضع شهر مايو شهر5 لايبدأ من البداية

تم تعديل منذ 12 ساعات بواسطه بلانك

[بلانك]

عفوا للاستاذ حجازي بارك الله فيك عند وضع شهر مايو لايبدأ التسلسل من البداية بمعنى بدأ من الاحد في الاسبوع الثاني وترك الاحد من الاسبوع الاول  وبالتالي في النهاية ينتهي التسلسل قبل نهاية الشهر عند 28 يوم لاحظ الملف المرفق

حساب التاريخ_ تعديل.xlsx

تم تعديل منذ 12 ساعات بواسطه بلانك

[hegazee]

تفضل

 

حساب_التاريخ3.xlsx

[بلانك]

تمام بارك الله فيك وجعله في ميزان حسناتك

[AbuuAhmed]

حل آخر بالكود:
 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Row As Integer, Col As Integer
    Dim fRow As Integer, fCol As Integer, fdd As Integer
    Dim yy As Integer, mm As Integer, dd As Integer
    Dim cellDate As Date, m
    m = Array("", "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", _
              "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر")
    
    With Target
        If Not (Target.Row = 1 And Target.Column = 13) Then Exit Sub
        yy = Year(.Value)
        mm = Month(.Value)
        For fdd = 1 To 7
          If Weekday(DateSerial(yy, mm, fdd)) = vbSunday Then Exit For
        Next fdd
    End With
    
    Cells.Find(What:="الأحد", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    fRow = ActiveCell.Row
    fCol = ActiveCell.Column + 1
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Cells(fRow - 2, fCol + 5) = m(mm)
        
    dd = fdd - 3
    For Col = fCol To fCol + 9 Step 2
        dd = dd + 2
        For Row = fRow To fRow + 4
            dd = dd + 1
            cellDate = DateSerial(yy, mm, dd)
            If Month(cellDate) = mm Then
                Cells(Row, Col + 0) = cellDate
                Cells(Row, Col + 1) = 1
            Else
                Cells(Row, Col + 0) = ""
                Cells(Row, Col + 1) = ""
            End If
        Next Row
    Next Col

    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

حساب_التاريخ_05.xlsm

[بلانك]

شكرا جزيلا على الزياده في الحل وهذا هو الفضل وزيادة بارك الله فيكم وجزاكم خيرا