مؤمن خليل

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

انا اسف لانني اثقلت عليك كثيرا التمس لي وجزاك الله خيرا ملاحظة كوم حمادة 78.rar

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

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

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

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

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

عند فتح اغلب الملفات التي بها فورم لا يتم تمكين هذا الملف من العمل واغلب الاوامر التي بها ماكرو لا تعمل ارفقت لكم صورة الرسالة لكيفية معالجة هذه المشكلة Untitled-1.rar

اخي الحبيب عجز اللسان عن البيان ولكن اقول لك كما علمنا رسول الله من قال لأخيه جزاك الله خيرا فقد وفي كل يوم يمر علي وانا في هذا الموقع اذداد فراحا لان هناك اناس تعمل لله هذا هو المطلوب ولكن لاحظت ان الملف بقي ثقيل في عملة لم ادري ما السبب

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

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

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

ارجو منكم شرح هذا الكود بالتفصيل الممل حيث اني مبتدأ ومعلومات بسيطه جدا جدا ولكم وافر الاحترام Sub tareq() LR = Cells.SpecialCells(xlLastCell).Row Range("A2:H" & LR).ClearContents Sheets(1).Select [C1,E1:G1].Copy ([N1]) [A1,C1:E1,G1:H1].Copy ([L5]) [P1].Copy ([R5]) If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData Sheets(2).[I2:L2].Copy [N2].PasteSpecial Paste:=xlPasteValues [P2].Cut [R2].Select Selection.Insert Shift:=xlToRight LR = [A9999].End(xlUp).Row Range("A1:K" & LR).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[N1:Q2], CopyToRange:=[L5:R5], Unique:=True LR = [L9999].End(xlUp).Row Range("L5:R" & LR).Copy n = ActiveWorkbook.Name p = ActiveWorkbook.Path Workbooks.Add ActiveSheet.Paste [A1].Select ActiveSheet.DisplayRightToLeft = True tt = Format(Time, "H_mm_ss") dd = Format(Date, "mmm_dd") & "_" & tt ActiveWorkbook.SaveAs Filename:=p & "\" & dd & ".xls", FileFormat:=xlExcel8 ActiveWorkbook.Close Range("L1:T" & LR).FillLeft Sheets(2).Select [A1].Select End Sub

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

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