نجوم المشاركات

طلب الي أحد الأصدقاء ان أقوم بإدراج التاريخ 29 شباط في كل السنوات الكبيسة المحددة بين عامين فكان هذا الملف (ربما يكون في ذلك إفادة للبعض) Leap years.xlsx

اعتذر يا غالي

تم عمل المطلوب جرب الملف وأعطنى ملاحظاتك شئون العاملين2.rar

اخي الكريم nabil1972 مثال الاخ kanory مشكوراً واضح ويعمل بامتياز واذا تعذر عليك التطبيق ارسل مرفق ولن نقصر بخدمتك ان شاء الله

وعليكم السلام ورحمه الله وبركاته بانتظارك استاذي الفاضل الله يبارك فيك

نعم ... بارك الله فيك @nogom أنظر أعلا المنتدى تجد هذه الملاحظات .... أشكرك على سعة صدرك ....

تسلم ربنا يبارك فيك

الحمد لله رب العالمين .... يعتبر حل ممتاز للمشكلة أخي @ابو زاهر

أخي @ابو زاهر السلام عليكم ورحمة الله وبركاته الحل الذي توصلت له يعتبر ممتاز .... لكن بقية حكاية لون المؤشر .... أحاول البحث لها عن حل . ان شاء الله تعالى

ريما كان الملف يهذا الشكل افضل(الصفحة Salim من هذا الملف) الكود Sub Salim_filter_ME() Application.ScreenUpdating = False Dim Filtler_Rg As Range Dim copy_rg As Range Dim ro%, i% Dim m%: m = 3 Dim last_row Dim Targ_sh As Worksheet Dim arr(1 To 9) On Error GoTo 1 Set Targ_sh = Sheets("salim") last_row = Targ_sh.Cells(Rows.Count, 2).End(3).Row If last_row < 3 Then last_row = 3 Targ_sh.Range("b3:j" & last_row).ClearContents For i = 1 To 9 arr(i) = Targ_sh.Cells(2, i + 1) Next If Sheets("add").AutoFilterMode = True Then Sheets("add").AutoFilterMode = False Set Filtler_Rg = Sheets("add").Range("b1").CurrentRegion ro = Filtler_Rg.Rows.Count Set copy_rg = Filtler_Rg.Offset(1, 0).Resize(ro - 1).Columns(1) For i = 1 To 9 With Filtler_Rg .AutoFilter .AutoFilter Field:=3, Criteria1:="=" & Targ_sh.Range("l2") .AutoFilter Field:=2, Criteria1:="=" & arr(i) Filtler_Rg.Offset(1, 0).Resize(ro - 1, 1).SpecialCells(xlCellTypeVisible).Copy _ Destination:=Targ_sh.Range("b" & m).Offset(, i - 1) End With Next 1: Erase arr Sheets("add").AutoFilterMode = False Application.ScreenUpdating = True End Sub الملف مرفق salim_filter_by sectionr.xls

شكرا أستاذ سليم بارك الله فيك

الاخ waleed907 السلام عليكم هذا البرنامج كان من تصميمي الشخصي وكان بعنوان (برنامج قروض للمبتدئين)اكسس 2003 ورفعته على المنتدى للفائدة منذ مدة ليست ببعيدة ومنتديات اخرى واجريت عليه بعض التعديل ليتوافق مع اكسس 2013 فهل من المعقول ان يظهر بحلة جديدة وبعنوان جديد وباسم مصمم اخر اعتقد ان هذا الامر ........ (مصادرة لجهود الآخرين) اليك البرنامج الاصلي قروض.rar

تفضل case.xlsm

حتى هذه يمكن تجاوزها...

أرفق الملف الذي به هذا النموذج

تفضل Book1.rar

عزرا اخي لانشغالي في بعض الامور الاخري بالنسبة لطلبك احب ان اوضح انه يتم نقل البينات كاملة كثرت البيانات او قلت بمعني انه حتي لو تعدت البيانات نطاق الخلايا 670 فانها سوف تنقل كاملة فهل تريد مني ان اجعل المدي المنقول حتي الخلية 670 فقط ؟

أخي العزيز يسعد صباحك و مساك يا ريت ترفق ملف لتتم الإجابة متل ما بدك مع العلم إني بالملف المرفق ممكن اني كون لبيت الطلب أرجو ذلك وإذا ما كانت الإجابة كافية يا ريت ترفع الملف لك حبي حصر.xlsx

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وجعل كل ايامكم رضا والسلام عليكم ورحمة الله وبركاته

جزاك الله خيرا انا استفدت من الشيت جدا

اهلا وسهلا بك اخ كريم فى منتدانا أولا عليك بنسخ المعادلات التى فى الشيت المرسل سابقا بداية من الخلية كما فى الصورة ik1 وعمل لصق لها فى الشيت الذى تريده جزاك الله كل خير

جرب هذا الملف filtter salim.xls

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