البروفسير

طلبي صعب ومش لاقي حد ينفذه لي .. ؟؟ عندي صفحات كتيرة فى ملف اكسيل عايز ابحث فيها عن اسم ما . الكود ياخد السطر للنتيجة وينسخها فى صفحة جديدة اسمها "PReport" انا دورت لما انتم تاخرتم على فى الرد فى اكثر من موضوع , ووجدت الكود ده . Sub Test2() Dim myWord$ myWord = InputBox("What key word to copy rows", "Enter your word") If myWord = "" Then Exit Sub Application.ScreenUpdating = False Dim xRow&, NextRow&, LastRow& NextRow = 2 LastRow = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row For xRow = 1 To LastRow If WorksheetFunction.CountIf(Rows(xRow), "*" & myWord & "*") > 0 Then Rows(xRow).Copy Sheets("Sheet2").Rows(NextRow) NextRow = NextRow + 1 End If Next xRow Application.ScreenUpdating = True MsgBox "Macro is complete, " & NextRow - 2 & " rows containing" & vbCrLf & _ "''" & myWord & "''" & " were copied to Sheet2.", 64, "Done" End Sub بس هو يعمل علي صفحة واحدة الموجود بها الزر .. انا عايز اخليه يدور فى عدد من الصفحات الموجوده فى الملف . مثلا هيطلب من كلمة البحث :\: هكتب " احمد " يطلب مني بداية البحث هكتب له رقم الشيت اللى عندي فى ملفي واللى مقسمة 31 صفحة بعدد الايام . فمثلا عايز ادور عن " احمد " من شيت "3" الى شيت " 17 " والنتيجة يطلعها فى ملف "PReport" منتظر اجابتكم

لعله خير

ارجو المشاركة للضرورة القصوي .

السلام عليكم لدي ملف لخزينة اريد ان اطلب من خلال Sheets الموجوده به و عن طريق الـ User Form وذلك لاسم عميل ما . ان يتم حساب ما تم ايراده وما تم صرفه لهذا العميل عن طريق البحث عن اسم العميل فى كل Sheets الموجودة فى ملف الاكسيل و التى تبدأ من 1 الى 31 وهي ما تساوي عدد ايام الشهر - وارجوا مراعاة الشهور الغير كاملة ( ان امكن ) لتوضيح الفكرة اكثر زر فى صفحة ( كشف حساب ) نضغط عليه فيظهر الـ USER FORM لنكتب بها اسم العميل .. والفترة الزمنية التى سيتم تحديدها لكشف الحساب ثم نضغط زر البدأ ليتم البحث عنه فى كل الصفحات وعند ايجاد النتيجة يتم نسخ الصف باكمله فى صفحة كشف الحساب ليتم تكوين كشف حساب نهائي . هذا تصوري ... واترك لكم حرية الابداع .. فانا اثق فى عملكم . شكرا وجزيتم خيرا ً واسف للاطالة . الملف هنا ايضا . https://docs.google.com/file/d/0BzUVeAMU_gFZb0hNYTFvZ1gxSWM/edit?usp=sharing خزينة3.rar

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

قمت بحذف الصورة من كل صفحات الملف وللاسف ما زالت المشكلة مستمرة .. واثناء حذف الصور كلها حذفت ايضا صفحة "التقرير " وما زالت المشلكة مستمرة ؟؟؟ لا اعرف اين المشكلة ؟؟

شكرا اخي العزيز / @حمادة عمر هل من حل ان اضع الجزء العلوي كهيدر فى الصفحة الاولي وباقى الصفحات تستدعيه منها ؟؟؟

شكرا حمادة عمرو لارفاقك الملف .. نسيت ان اضغطه اولا ^_^ بالنسبة للمطلوب هناك صفحة اخيرة ربطها يدويا بصفحات الملف لتكوين تقرير اخر الشهر .. المشكلة الان ان البرنامج اصبح تقيل جدا .. وبياخد وقت فى الحفظ .. فهل ان امكن رؤية الملف ومحاولة اختصار ما يمكن اختصارة وتعديل ما يمكن تعديله بحيث لا يفقد خصائصة ..؟؟ وان يتم تسريعه فى الحفظ ..!!

الرابط اسف التحميل لا يعمل معي https://docs.google.com/file/d/0BzUVeAMU_gFZNkl2eGl4QWE3emc/edit?usp=sharing

السلام عليكم فى المرفقات ملف اريد ربط صفحة التقرير الاخيرة فيه . بباقى الصفحات بالاكواد او باي طريقة .. الفكرة ان يكون البرنامج سريع فى القراءة والحفظ ... !! https://docs.google.com/file/d/0BzUVeAMU_gFZNkl2eGl4QWE3emc/edit?usp=sharing

اريد اي ملف خزينة يا اخوانا .. مع تقارير اخر الشهر .. ممكن ؟؟

السلام عليكم : ملف الخزينة سيكون لمؤسسة صغيرة . الشكل العام منسق ومرتب ويمكن طباعته يوميا لتقديمة لمدير المؤسسة . اتمنى ان : 1- يحتوي على الواردات وهى من العملاء 2 - يحتوي على واردات مناديب البيع ( حوالى 7 مناديب قابلين للزيادة ) كل واحد على حدة لنستطيع فى تقرير اخر الشهر حساب واردات المندوب طوال الشهر . 3 - يحتوي على المصروفات النثرية ليمكن تجميع المصروفات الكلية بنهاية الشهر . فى تقرير اخر الشهر. 4 - يحتوي على بند لمصروفات السيارات . ليمكن تجميع المصروفات للسيارات فى تقرير اخر الشهر - لو امكن فى التقرير ان يوضع مصروفات السيارة لكل سيارة على حدة . 5 - يحتوى على ما صرف الى البنك - على حدة . ليمكن تحويلة فى النهاية بصورة تقريراخر الشهر للدفعات البنكية وتواريخ دفعها . 6 - يحتوي على سلف العاملين بالمؤسسة . لنستطيع حساب السلف لكل عامل على حده بنهاية الشهر . فى تقرير اخر الشهر هذه فكرتى الاولية عنه ^_^ .. و اتاسف ان اثقلت عليكم .. ولكن لم استطيع تنفيذ الملف منفرداً اترك لكم كامل الحرية فى استخدام ابداعكم

السلام عليكم اريد ملف اكسيل خزينة يومي , بواقع صفحة خزنة لكل يوم , وتقارير بنهاية الشهر التقارير لما انفق للبنك و ما ورد من المناديب و ما انفق كسلف للمناديب والسواقين اريد الملف يرحل تلقائي ان امكن او بزر ارجو ان تكون الفكرة وصلت .. شكرا مقدماً

السلام عليكم

اعتذر لم يرفق الملف فى المرة الاولى .. ^_^ شهر 12.zip

السلام عليكم لدي برنامج محاسبي لادخال المبيعات للعملاء احتاج كمية المسحوبات للعملاء عندما اطلبها من البرنامج يخرج لى ملف اكسيل كبير ومعقد نظرا لتداخل الاصناف والعملاء .. مشكلتى تكمن فى تخصيص المسحوبات لعدد معين من الاصناف وعدد معين من العملاء . مما يجعلنى احذف كثيرا واعيد ترتيب اكثر من مرة وترتيب الاصناف ثم ترتيب العملاء لاحصل فى النهاية على اصناف "معينة" واعيد حساب مقدار مسحوبات العميل لها .. وهو امر مرهق وصعب كثيرا وياخذ وقت طويل جدا . ويلزمنى بحفظ اصناف كثيرة لتصفيتها من كل المسحوبات . المطلوب فضلاً ليس امراً 1 - استخلاص نوعين من الاصناف الموجودة فى "الـصفحة الاولي الرئيسية " احداهما تسمى " الذهبية " وترحيلها الى صفحة ثانية تسمى باسمها الذهبية . والاخري " الفضية " وهى عدد اخر من الاصناف فى صفحة ثالثة تسمى باسم الفضية وذلك - بناء على قائمتين اصناف سأرفقها - 2 - عمل جدول علوي " عائم " فى الـصفحات الاولي والثانية . :: الجدول يحتوي فى احدي خاناتة - ترتيب افقى او راسي لا يهم - على اسماء العملاء المرحلين من "الـصفحة الاولي الرئيسية " . :: فى الخانة الاخري من الجدول تحتوي على كمية مسحوبات العميل من الاصناف المنتقاة من "الـصفحة الاولي الرئيسية " والموجودة فقط فى صفحة الجدول . *. اي جدول لمسحوبات " الذهبية " فى صفحة الذهبية , واخر لكمية المسحوبات " الفضية " فى صفحة الفضية فى بعض الاوقات تحذف اصناف وتضاف اصناف اخري , لو امكن سهولة تعديل قائمة الاصناف سواء الذهبية او الفضية .. ايضا قائمة العملاء متغيرة .. لاستخلص المسحوبات لعميل معين دون غيرة من القائمة الاساسية . فلو امكن تعديلها بسهولة اكون مشكوراً جداً - : ارفقت لكم مثال اتمنى ان يساهم فى توصيل فكرتي حاولت ان اصنع الملف بنفسي ولكن لم استطيع فارجوا مساعدتكم .. ^_^ ارفقت لكم مثال اتمنى ان يساهم فى توصيل فكرتي

السلام عليكم لي سؤال كيفية عمل المنطقة العائمة التى تبقى مهما نزلت الى اسفل الموجود فيها العدد والعملة وغيره