ا بو سليمان قام بنشر مايو 2, 2015 قام بنشر مايو 2, 2015 http://www.up-00.com/?CtcY الملفات يتم تحديثها كل يوم تقريبا فارجو ان يتم عمل كود لكي تحافظ على ا لتصفيه حسب التاريخ من الاحدث الى الاقدم شكرا لكم مقدما
خزاني قام بنشر مايو 2, 2015 قام بنشر مايو 2, 2015 بسم الله الرحمن الرحيم التصفيه حسب التاريخ Sub FiltreSurDate() Dim DLig As Long, StartDate As Long, EndDate As Long Application.ScreenUpdating = False With Sheets("ورقة1") .Activate DLig = .Range("A" & Rows.Count).End(xlUp).Row If .FilterMode = False Then .Range("A1:G1").AutoFilter Else .Range("A1:G1").AutoFilter Field:=6 End If StartDate = DateValue("01/01/2010") EndDate = DateValue("31/12/2010") .Range("A1:G1").AutoFilter Field:=6, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate .Range("A1:G" & DLig).Copy Destination:=.Range("A10") End With Application.ScreenUpdating = True End Sub 1
ا بو سليمان قام بنشر مايو 2, 2015 الكاتب قام بنشر مايو 2, 2015 بسم الله الرحمن الرحيم التصفيه حسب التاريخ Sub FiltreSurDate() Dim DLig As Long, StartDate As Long, EndDate As Long Application.ScreenUpdating = False With Sheets("ورقة1") .Activate DLig = .Range("A" & Rows.Count).End(xlUp).Row If .FilterMode = False Then .Range("A1:G1").AutoFilter Else .Range("A1:G1").AutoFilter Field:=6 End If StartDate = DateValue("01/01/2010") EndDate = DateValue("31/12/2010") .Range("A1:G1").AutoFilter Field:=6, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate .Range("A1:G" & DLig).Copy Destination:=.Range("A10") End With Application.ScreenUpdating = True End Sub احسنت وبارك الله فيك هذه الاكواد اين توضع في الملف .... لكي تقوم في التصفيه ؟؟...؟؟؟
ا بو سليمان قام بنشر مايو 2, 2015 الكاتب قام بنشر مايو 2, 2015 هل فيه شرح مصور بالصورة مع توضيح الخطوات بارقام 1 2 3 لكي يسهل التطبيق ؟؟
خزاني قام بنشر مايو 2, 2015 قام بنشر مايو 2, 2015 Sub CompteDemerite() Dim Demerite() As Double Dim LeJour As Date On Error Resume Next LeJour = InputBox("ادخل التايخ", "التاريخ") Range("A1").Select ActiveSheet.Range("A1:A500").AutoFilter Field:=1, Criteria1:="=" & LeJour, Operator:=xlAnd End Sub Khezzani FiltreDate.rar
ا بو سليمان قام بنشر مايو 2, 2015 الكاتب قام بنشر مايو 2, 2015 هذا ملف من احد الملفات التي سوف اعمل عليها هل تعمل الكود داخلة لكي اطبقة على بقيه الملفات بدون تغيير اسم الملف 1010 1010.rar
ا بو سليمان قام بنشر مايو 2, 2015 الكاتب قام بنشر مايو 2, 2015 لم استطيع تطبيقة ولهذا انا حملت ملف من الملفات التي اعمل عليها يا ليت تساعدنا في التطبيق عليه مباشرة
ا بو سليمان قام بنشر مايو 3, 2015 الكاتب قام بنشر مايو 3, 2015 ارجو من الاخوه عمل شيئين 1- فرز الى من خليجة ذات قيمة مجمعة الى خلايا بحيت تظهر التاريخ في خلية و هكذا باقي البيانات كل واحدة في خلية 2- عمل فرز حسب التاريخ من الاحدث الى الاقدم
ا بو سليمان قام بنشر مايو 3, 2015 الكاتب قام بنشر مايو 3, 2015 الملف موجود في المشاركة رقم 6 والكود موجود اذا ايش المشكلة في تركيب الكود في الملف نحن ننتظر
ا بو سليمان قام بنشر مايو 3, 2015 الكاتب قام بنشر مايو 3, 2015 يبدولي ان عملية الفرز صعبة شوي عليكم لكن عندي فكره وهي تحويل التاريخ الى رقم صحيح ومن ثم عمل تصفية للرقم على ان يكون الرقم بجانب التاريخ
ا بو سليمان قام بنشر مايو 3, 2015 الكاتب قام بنشر مايو 3, 2015 رررررررررابط دوال تحويل التاريخ الى رقم صحيح http://www.bing.com/search?q=%D8%AF%D8%A7%D9%84%D8%A9+%D8%AA%D8%AD%D9%88%D9%8A%D9%84+%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%D8%A7%D9%84%D9%89+%D8%B1%D9%82%D9%85+&src=IE-SearchBox&FORM=IE8SRC
ا بو سليمان قام بنشر مايو 4, 2015 الكاتب قام بنشر مايو 4, 2015 سبحانك اللهم و بحمدك سبحان الله العظيم
ياسر خليل أبو البراء قام بنشر مايو 4, 2015 قام بنشر مايو 4, 2015 أخي الكريم أبو سليمان اعذرني لعدم متابعتي للموضوع من البداية .. لو توضح مرة أخرى طلبك بملف مرفق أكون لك شاكر ... سؤال آخر : ما المشكلة في الكود الذي قدمه أخونا الكبير خزاني ؟ وضح بالتفصيل .. زي ما بتحتاج شرح بالتفصيل وضح إنت كمان بالتفصيل ويمكنك مراجعة هذا الرابط http://www.officena.net/ib/index.php?showtopic=56941#entry374440 الحلقة دي بتتكلم عن الترتيب والفرز لعله يفيدك
ا بو سليمان قام بنشر مايو 4, 2015 الكاتب قام بنشر مايو 4, 2015 أخي الكريم أبو سليمان اعذرني لعدم متابعتي للموضوع من البداية .. لو توضح مرة أخرى طلبك بملف مرفق أكون لك شاكر ... سؤال آخر : ما المشكلة في الكود الذي قدمه أخونا الكبير خزاني ؟ وضح بالتفصيل .. زي ما بتحتاج شرح بالتفصيل وضح إنت كمان بالتفصيل ويمكنك مراجعة هذا الرابط http://www.officena.net/ib/index.php?showtopic=56941#entry374440 الحلقة دي بتتكلم عن الترتيب والفرز لعله يفيدك اهلا بك اخي ياسر انا لا افقة شي نهائي بالاكواد فكيف تتوقع انني استطيع ان ادرج الكود لاخي خزاني .......!!! الملف في المشاركة رقم 6 هو نفس الملف الذي ارغب العمل عليه بنفس الامتداد و الاسم الملف يترتب تلقائي ولكن المشكلة ان الترتيب الاقدم يكون اعلى وانا ارغب ان يكون الترتيب الاحدث يكون اعلى لو تم عمل تصفيه من خلال الكود لاستطعت اقتباس العمل بنفس الملف وطبقتة على الملفات الاخرى شكرا لك اخي ياسر
خزاني قام بنشر مايو 4, 2015 قام بنشر مايو 4, 2015 ادخل هذا الكود في موديل واضغط لتنفيذ وسوف يقوم عمل فرز في العمود a1 وقوم بفرز التاريخ الذي تريده ان يظهر Sub Macro2() Dim deb&, fin& Range("A2").FormulaR1C1 = "1/1/2015" Range("A2:A60").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _ xlWeekday, Step:=1, Trend:=False Range("A1") = "التايخ" deb = CLng(DateValue("01/01/2015")) fin = CLng(DateValue("31/12/2015")) Range("$A$1:$A$60").AutoFilter Field:=1, Criteria1:= _ ">=" & deb, Operator:=xlAnd, Criteria2:="<=" & fin End Sub
ا بو سليمان قام بنشر مايو 4, 2015 الكاتب قام بنشر مايو 4, 2015 (معدل) ادخل هذا الكود في موديل واضغط لتنفيذ وسوف يقوم عمل فرز في العمود a1 وقوم بفرز التاريخ الذي تريده ان يظهر ايش تعني ..؟؟؟ لو عملتة انت مباشرة في الملف ورفعته كان انتهت المشكلة تم تعديل مايو 4, 2015 بواسطه ا بو سليمان
خزاني قام بنشر مايو 4, 2015 قام بنشر مايو 4, 2015 السلام عليكم و رحمة الله و بركاته .. khezzanifiltre.rar 1
ا بو سليمان قام بنشر مايو 5, 2015 الكاتب قام بنشر مايو 5, 2015 السلام عليكم جرب المرفق احسنت العمل اخي ابو عيد بارك الله في وقتك وجهدك حاولت ان اضع المفتاح داخل الملف لكي يتم فرز كل الملفات ولكن واجهت مشكلة في عدم فرزه للملفات ويبدولي ان المشكلة في عدم معرفتي لذلك
ا بو سليمان قام بنشر مايو 5, 2015 الكاتب قام بنشر مايو 5, 2015 اخي ابو عيد الملف ممتاز من حيث الترتيب لكن واجهتنى مشكلة وهي عندما نسختة داخل الملف الاصل وحاولت تغيير اسمة باسماء ملفات اخرى لكي يتعامل معها البرنامج على اساس اننها ملفات اخرى لم استطيع الترتيب لبقية المفات فهو يعطيني خطاء === اقتراح هل ممكن ان يكون الترتيب تلقائي للملف لكي اقوم بنسخة وتغيير فقط اسمة لاسماء ملفات اخرى وبهذا اتوقع البرنامج سوف يتعامل معها بشكل مباشر ه انتظر ابداعك وشاكرا حسن صنيعك
ا بو سليمان قام بنشر مايو 5, 2015 الكاتب قام بنشر مايو 5, 2015 بارك الله فيك اخي خزاني على جهود ك الرائعة السلام عليكم و رحمة الله و بركاته .. khezzanifiltre.rar كل ما احتاجة اخي الحبيب هو ترتيب تلقائي للملف المرفق بالمشاركة 6 ويكون الترتيب تلقائي ( التاريخ الا حدث يكون في الاعلى يعني في خلية a1 والتاريخ الاقدم يكون في الاخير )
أبوعيد قام بنشر مايو 5, 2015 قام بنشر مايو 5, 2015 تم التعديل على الملف بعد فك الضغط على المرفق قم بوضعه داخل المجلد الذي يحتوي على ملفاتك ثم اتبع الخطوات كما في الشرح داخل الملف تحياتي أبوعيد.rar
ا بو سليمان قام بنشر مايو 5, 2015 الكاتب قام بنشر مايو 5, 2015 مشكلتي تنتهي عندما يتم عمل ترتيب من الاحدث الى الاقدم بالملف بالمشاركة رقم 6 ويتم عمل فصل للبيانات في العمود a1 لتكون في الخلايا التي بجانبها انتهى ........
ا بو سليمان قام بنشر مايو 6, 2015 الكاتب قام بنشر مايو 6, 2015 (معدل) سبحانك اللهم وبحمد ك سبحان الله العظيم تم تعديل مايو 6, 2015 بواسطه ا بو سليمان
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.