مجاهد2013 قام بنشر مارس 1, 2022 مشاركة قام بنشر مارس 1, 2022 السلام عليكم في الملف المرفق أريد لما أكتب اسم أو رقم الشهر في الخلية S2 يقوم بعملية التصفية و يحدد لي أيام ذلك الشهر فقط و معطياته . و شكرا تصفية.xlsx رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر مارس 1, 2022 مشاركة قام بنشر مارس 1, 2022 اخي مجاهد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 رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر مارس 1, 2022 الكاتب مشاركة قام بنشر مارس 1, 2022 أستاذ محمد يوسف هذا هو المقصود من سؤالي مع الاحتفاظ بالمعطيات الموجودة بالجدول حسب كل شهر رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر مارس 2, 2022 مشاركة قام بنشر مارس 2, 2022 اخيمجاهد2013 لكي يتم ذالك لبد من وضع اسماء الاسبوع في عمود مثل عمود A او b او c وهكذا تحياتي لك رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مارس 2, 2022 مشاركة قام بنشر مارس 2, 2022 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 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مارس 2, 2022 مشاركة قام بنشر مارس 2, 2022 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 2 رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر مارس 2, 2022 الكاتب مشاركة قام بنشر مارس 2, 2022 أخي lionheart لم أستطع فهم الحل إذا كان ممكن تطبيق الكود على الملف المرفق لأستطيع تحميله و شكرا مسبقا رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مارس 2, 2022 مشاركة قام بنشر مارس 2, 2022 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 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة مجاهد2013 قام بنشر مارس 2, 2022 الكاتب أفضل إجابة مشاركة قام بنشر مارس 2, 2022 تمت المهمة بنجاح ألف شكر lionheart رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 2, 2022 مشاركة قام بنشر مارس 2, 2022 @مجاهد2013 افضل اجابة يتم اختيارها ل lionheart وليس ردك الاخير 1 رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر مارس 2, 2022 الكاتب مشاركة قام بنشر مارس 2, 2022 شكرا أستاذ عبد الفتاح على التنبيه مع تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.