mselmy

جميل جدااا انا حاولت اعمل اضافه عليه واخليه يشتغل على يوزر فورم لكن مزبطش معى فهل من طريقه تخلى الكود ده يشتغل على يوزر فورم

الكود جميل لكن لما باشغله على ورقه فيها فلتر بيحصل خطاء ومش بيكمل العملية

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

الكود كويس لكن فيه ارتباط بالمعادلات بين القدين والجديد انا عايز الجديد منفصل تماما من القديم وميكونش فيه ارتباط اغير اسم الظهور للعربى ازاى

هل نستطيع جعل الكود يعمل على ورقه 2 اى ما كان اسمها تحويل او غيره حيث اننى استطيع تغيير اسم الورقه الى اسم اخر ويقوم الكود بنفس العمل ويسمى الملف الجديد بالاسم الجديد مثال تغيير اسم الورقه من التحويل الى تحويل شهر يناير

الله ينور تمام جداا كده تسلم ايدك

هل من الممكن انشاء ملف جديد بالكود من ملف موجود لاوراق عمل معينه Book1.rar

ها هو الملف ارجو ان تكون فكرته واضحه استخراج كشف حساب.rar

السلام عليكم هذا الكود يقوم بسحب بيانات من ورقة عمل ( بيان قبض) اعتمادا على فترة زمنية محددة . هل من الممكن ان يتم تعديل الكود ليصبح اكثر مرونه بحيث اقوم بتغيير اسم الورقة التى يسحب منها البيانات وليكن مثلا ( بيان صرف ) حيث اننى استطيع استعمال نفس الكود على اى من الورقتين بمجرد تغيير اسم الورقة فى خلية محددة فى كشف الحساب Sub kashfsanok() Run "offFilter" Dim mo As String Dim ws As Worksheet Dim Lr As Long, i As Long Dim r As Integer mo = Range("b3").Value Range("a5:f1000").ClearContents Application.ScreenUpdating = False With ActiveSheet Lr = Sheets("بيان_قبض").Cells(.Rows.Count, "b").End(xlUp).Row For i = 2 To Lr If Sheets("بيان_قبض").Cells(i, "b") <> "" And Sheets("بيان_قبض").Cells(i, "c") >= [c3] And Sheets("بيان_قبض").Cells(i, "c") <= [d3] Then r = r + 1 Cells(r + 4, "a").Value = Sheets("بيان_قبض").Cells(i, "c").Value Cells(r + 4, "b").Value = Sheets("بيان_قبض").Cells(i, "e").Value Cells(r + 4, "c").Value = Sheets("بيان_قبض").Cells(i, "f").Value Cells(r + 4, "d").Value = Sheets("بيان_قبض").Cells(i, "b").Value Cells(r + 4, "e").Value = Sheets("بيان_قبض").Cells(i, "g").Value & " " & Sheets("بيان_قبض").Cells(i, "h").Value Cells(r + 4, "f").Value = Sheets("بيان_قبض").Cells(i, "d").Value End If Next End With Run "OnFiltercashf" End Sub

اريد عمل امر بالكود يقوم بعمل طباعة نظاق معين من ورقة العمل ويتم طباعته ثم يقوم بتحديد نطاق اخر من نفس الورقه ثم يقوم بطباعته ايضا " مثال يقوم الامر بطباعة النطاق من A1 : C15 وذلك فى الطبعه الاولى ثم يقوم بطباعة النطاق من A1 : D20 فى الطباعة الثانية " وشكرا لكم

الملف ده حصلته فى موقع به مجموعة من الاكواد التى قد تكون مفيدة للزملاء او يستطيعوا افادة الغير منها فى حال شرح الملف والاكواد التى معه Samples.zip

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

جرب الملف ده بعد التعديل تجربة ميزان (تم الحفظ تلقائياً).rar

جرب الكود

السلام عليكم هذا برنامج يقوم باستخراج كشف حساب من قاعدة بيانات طبقا للفترة المطلوب عنها كشف الحساب ثم يقوم بترتيب العمليات طبقا لتاريخ كل عملية وهذا البرنامج تم عمله باكواد جميعها من هذا المنتدى فإذا اعجبكم البرنامج فتأكدو ان الفضل يرجع لكل الاخوه بالمنتدى وذا راى اى زميل اى تعديل فيقوم باضافته ونشرة لتعم الفائدة للجميع اسف على الاطاله وتقبلوا تحيانى استخراج كشف حساب.rar

السلام عليكم هل من كود يقوم بعمل ترتيب للملف المرفق اعتمادا على التاريخ من الاصغر للاكبر

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

شكرا يا استاذى الكريم حل ممتاز لكن عدد الحروف محدود ارجو لو فيه حل عن طريق الكود ويتعامل مع الجمل التى تكون كلماتها اكثر من كلمتين او ثلاث

السلام عليكم هل من كود او داله تقوم باعادة ترتيب الحروف داخل الخلية بحيث يكون الحرف الاول يصبح الاخير والاخير يكون الاول مثال الكلمة فى الخلية هى ( دمحم نسح ) تصبح بعد التعديل ( حسن محمد )

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

http://www.excel-tool.com/index.html

السلام عليكم البرنامج رائع لكن فى ترجمة الاسماء بعض الاسماء لا يتم ترجمتها حرفيا ويتم ترجمتها لمرادفها باللغة الانجليزية

هذا هو 1111.rar

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

ممتازه الف شكر