تصفية حسب الشهر

[مجاهد2013]

السلام عليكم 

في الملف المرفق أريد لما أكتب اسم أو رقم الشهر في الخلية S2 يقوم بعملية التصفية و يحدد لي أيام ذلك الشهر فقط و معطياته .

و شكرا 

تصفية.xlsx

[محمد يوسف ابو يوسف]

اخي مجاهد2013

تفضل تصفية.xls

الكود المستخدم

Private Sub Worksheet_SelectionChange(ByVal X As Range)
Dim sw As Long
sw = Range("S2:S2000").End(xlUp).Row
    If [s2] <> "" Then
        Selection.AutoFilter
        Range("S2:S2000" & sw).AutoFilter Field:=1, Criteria1:= _
            "=" & [s2] & "*", Operator:=xlOr
    Else
        Range("S2:S2000" & sw).AutoFilter Field:=1
    End If
End Sub

 

[مجاهد2013]

أستاذ محمد يوسف هذا هو المقصود من سؤالي مع الاحتفاظ بالمعطيات الموجودة بالجدول حسب كل شهر

[محمد يوسف ابو يوسف]

اخيمجاهد2013

لكي يتم ذالك

لبد من وضع اسماء الاسبوع في عمود مثل عمود  A  او  b  او c وهكذا

 

تحياتي لك

[lionheart]

So simple question. Just loop through the columns and check for the month of the date and hide those columns that don't have the same month

[lionheart]

In worksheet module put the following code (but it is better to depend on another cell in the first two columns a way from S2)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myMonth, c As Long
    If Target.Address = "$S$2" Then
        Application.ScreenUpdating = False
        myMonth = Target.Value
        Columns("C:KX").Hidden = True
        For c = 3 To 310
            With Cells(5, c)
                If .Value2 <> "" And Month(.Value2) = myMonth Then
                    .EntireColumn.Hidden = False
                End If
            End With
        Next c
        Application.ScreenUpdating = True
    End If
End Sub

 

[مجاهد2013]

أخي lionheart لم أستطع فهم الحل إذا كان ممكن تطبيق الكود على الملف المرفق لأستطيع تحميله و شكرا مسبقا 

[lionheart]

Right-click worksheet name and select View Code and paste the code I posted 

Back to the worksheet, type any month number (say 10) in cell S2 and press Enter key

[مجاهد2013]

تمت المهمة بنجاح ألف شكر lionheart

[عبدالفتاح في بي اكسيل]

@مجاهد2013

افضل  اجابة  يتم  اختيارها ل lionheart وليس ردك  الاخير 

[مجاهد2013]

شكرا أستاذ عبد الفتاح على التنبيه مع تحياتي