أيهاب ممدوح

السلام عليكم الاخو الاعزاء الخبراء في المنتدي العزيز : يوجد يوزرفورم بحث شغال بالفعل كل ما اريده هو 1- يوجد عدد 2 زر واحد عند الضغط عليه يغير اللغه للعربي والاخر الضغط عليه يغير اللغه الي الانجليزي ارجوا اضافه الكود الي الكود الموجود 2- اريج عند البحث عن كلمه واحد من الجمله تظهر الجمله بالكامل وليس شرط كتابه الكلمه كما هي بمعني لو كتبت الكلمه الاخير من الجمله تظهر او عند كتابه كلمه يظهر كل الجمل التي تحتوي علي نفس الكلمه ولو حتي كانت الكلمه اخر الجمله شكرا جزيلا مرفق ملف بحث1.rar

شكرا جزيلا

اخي في الله اضم صوتي اليك واطلب شرح الجداول المحوريه شكرا

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

الله يكرمك لكن كنت عايز رايك في هذا الكود المسجل Sub Macro3() ' ' Macro3 Macro ' Macro recorded 18/01/2012 by user ' ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$b$2:$IQ$1021" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.748031496062992) .RightMargin = Application.InchesToPoints(0.748031496062992) .TopMargin = Application.InchesToPoints(0.984251968503937) .BottomMargin = Application.InchesToPoints(0.984251968503937) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.511811023622047) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = True .CenterVertically = True .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 73 .PrintErrors = xlPrintErrorsDisplayed End With End Sub

للرفع

للرفع

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

اخي احمد حذفت باقي الكود وتركت هذا الجزء Sub az() er = ActiveSheet.UsedRange.Rows.Count CC = ((x1 - 1) * 5) + x1 * 3 + 1 + 7 Dim RN As Range Set RN = Range(Cells(5, CC), Cells(er, CC)) RN.UnMerge RN.AutoFilter RN.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd, _ Criteria2:="<>" ActiveSheet.PrintOut RN.AutoFilter ActiveSheet.Protect Password:="ehab123" End Sub ولقد عمل طباعه وتصفيه ولكن التصفيه لاسم الصنف بمعني لو لا يوجد اسم الصنف لا يطبع الصف ولكن اذا اردت جعله يقوم بتصفيه الرصيد ما الحل ؟؟؟؟؟؟ شكرا

اخي احمد زمان الكود القديم مرتبط بالقائمه المنسدله معينه واذا اردت نقل الكود الي ملف اخر لقائمه منسدله اخري اقوم بتغير اسم القائمه في الكود

اخي احمد زمان هذا هو المطلوب بالفعل لكن حدود الطباعه تاتي ناقص عمود ويوجد صفحات اخري لا تندرج ضمن الطباعه من يوم 20 الي اخر الشهر يقوم بطباعه الصنف فقط وما هو معيار تحديد الطباعه هل يدوي ام الكود يعمل ذلك ؟؟ شكرا

اخي ابو نصار اذا احببت تطبيق الكود علي العمود k بدايه من الصف 6 حتي الصف 1005 بمعني k6:k1005 ما هو التعديل علي الكود لاني حاولت لكن يعطيني صفوف اكبر من المطلوب لعل شئ لم افهمه جيدا اخوك ايهاب

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

اخ احمد تحياتي الي اهل السعوديه واهل الاحساء بارك الله فيكم وصباح الورد وصباح العسل وصباح بتغني كمان اولا اشكرا علي كرم اخلاقك وحسن تعاونك الملف مرفق في المشاركه الاولي وسوف ارفقه مرة اخري ehab.rar

اخي احمد زمان بالفعل موجود الكود الخاص بالقائمه المنسدله ولكن هذا موضوع منتهي الجديد هو الطباعه بمعني اني اختر من القائمه التاريخ المطلوب ويظهر لي واذا اردت طباعته مباشر لابد من ان اقوم بتحديد الحدود للطباعه لذلك المطلوب عندي اختيار اي يوم من القائمه سوف يظهر هذا اليوم وذلك موجود بالفعل لذلك اريد كود للطباعه وتحديد مدي الطباعه التي تظهر في التاريخ المختار ولا يطبع الصف الذي به الرصيد =0 شكرا

اخي احمد زمان شكرا علي الحل الجميل لكن كنت اريد حل بالكود يقوم بطباعه ما ينتجع عن الاختيار من القائمه المنسدله ولا يطبع الصف الذي يكون الرصيد به صفر شكرا

رفع

up

للرفع

اخواني الاعزاء اريد كود طباعه ولكن بشرط اذا كان الصنف رصيده صفر لا يقوم بطباعه الصف بالكامل والشرط الثاني يقوم بطباعه اليوم الذي يظهر فقط من خلال القائمه المنسدله بمعني لو اخترت يوم 5 في الشهر يطبع يوم 5 فقط واذا كان الصنف رصيده صفر لا يطبعه هو الاخر شكرا

كود طباعه بشرط عدم طباعه الصفوف التي لا تحتوي علي بيانات بناء علي خليه معينه اذا كانت فارغه لا يتم طباعه الصف بالكامل وفي الملف المرفق نريد طباعه الصفحه ولكن اذا كانت الخليه ig فارغه لا يتم طباعه الصف ويتم 'طباعه كافه الصفوف اذا كانت الخليه ig المقابله للصف بها بيانات شكرا ehab.rar

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

تفضل هذا المرفق New Microsoft Excel Worksheet.rar

اخي الفاضل كل هذة المعادلات هي معادله if الشرطيه بمعني اخر تتكون من الشرط المطلوب والمراد تحقيقه في حاله التوافق الشرط والمراد تحقيقه في حاله عدم التوافق وهذة المعادله تسمي بامعادله if البسيطه اخوك ايهاب

اخي ابو احمد الف مليون سلامه عليك ورعاك الله اخوك ايهاب