حاتم عيسى

السادة خبراء الاكسيل هل من مساعدة ؟؟؟؟؟

السادة خبراء الاكسيل هل من مساعدة ؟؟؟؟؟

بارك الله في حضرتك ونفعك والأمة الإسلامية بعلمك وجعل جميع أعمالك في موازين حسناتك

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

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

الرجا من سيادتكم التكرم بالتعديل على كود الترحيل هذا حتى يتم مسح البيانات أولا من الصفحة المرحل إليها حتى لا يكون هناك تكرار في البيانات وجزاكم الله كل الخير Sub Macro1() ' Dim r As Long, d As Long, r1 As Long r = Sheets(2).Range("a" & Rows.Count).End(xlUp).Row For d = 4 To r r1 = Sheets(Range("C" & d).Value).Range("c" & Rows.Count).End(xlUp).Row Sheets(Range("C" & d).Value).Range("B" & r1 + 1).Resize(1, 31) = Sheets(2).Range("d" & d).Resize(1, 31).Value Next MsgBox "تم الترحيل بنجاح .... حاتم محمود عيسى", vbOKOnly, "نجحت العملية" ' End Sub

أرجوا من سيادتكم التعديل على هذا الكود حتى يتم مسح البيانات من الصفحات المرحل إليها قبل الترحيل حتى لا يكون هناك تكرار في البيانات Sub Macro1() ' Dim r As Long, d As Long, r1 As Long r = Sheets(2).Range("a" & Rows.Count).End(xlUp).Row For d = 4 To r r1 = Sheets(Range("C" & d).Value).Range("c" & Rows.Count).End(xlUp).Row Sheets(Range("C" & d).Value).Range("B" & r1 + 1).Resize(1, 31) = Sheets(2).Range("d" & d).Resize(1, 31).Value Next MsgBox "تم الترحيل بنجاح .... حاتم محمود عيسى", vbOKOnly, "نجحت العملية" ' End Sub

بارك الله في حضرتك وجزاك الله كل الخير هل من الممكن ان اطمع في كرم حضرتك وتنظر تلك المشاركة لعل الله ياتيني بالحل على يد حضرتك ؟ http://www.officena.net/ib/topic/70921-أرجوا-المساعدة-في-حل-هذه-المشكلة-على-الفورم-وكود-الترحيل/

بسم الله الرحمن الرحيم الأساتذة الأفاضل ( مشرفي - رواد ) المنتدى العظيم أوفيسنا تحية طيبة ... ويعد هل من الممكن التعديل على الأتي : 1- كود الترحيل حتى يتم ترحيل كافة البيانات الموجودة في صفحة البيانات إلى الصفحات الخاصة بأساماء الإدارات على حسب اسم الادارة الموجود في العمود (B) وهل من الممكن وضع زر الترحيل في النموذج الأول الخاص بتسجيل البيانات . 2- التعديل على كود زر الإحصاءات الموجود في الورم الأول للانتقال إلى الفورم الخاص بالإحصاءات والعودة تسجيل البيانات الأساسية الموجود في الفورم الخاص بالإحصاءات . 3- التعديل على كود زر نموذج تسجيل البيانات الأساسية الموجود في الفورم الخاص بالإحصاءات للعودة إلى فور البيانات الرئيسية والعودة من زر الإحصاءات . حيث أن كل زر منهم يقوم بالانتقال إلى الفورم المطلوب وعند الذغط على الزر الأخر للعودة لا فتح ولا يعطي أي شئ ويقوم بتهنيج البرنامج . بارك الله فيكم جميعا ونفعكم بعلمكم وجعل جميع أعمالكم في موازين حسناتكم . الصور التوضيحية للمطلوب :- العجز والزيادة للمديرية 1.part1.rar العجز والزيادة للمديرية 1.part2.rar العجز والزيادة للمديرية 1.part3.rar العجز والزيادة للمديرية 1.part4.rar

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

شكرا على الاهتمام استاذي المحترم المشكلة تأتي عند نسخ الدالة في العمود رقم الشيت حتى تصل إلى الصف رقم 10003 عندها يأتي الخطأ الذي رأيته حضرتك في الصورة . الترحيل2.rar

هذه عى صور ةالخطأ وكذلك عند الترحيل لا يقوم بترحيل كل مدارس الإدارة بل يرحل حوالي 10 مدارس فقط

فعلا عدد الإدارت التعليمية في المديرية هم 10 إدارات فقط

شكرا لسرعة إستجابة حضرتك أقصى عدد ممكن لكل إدارة حوالي 150 مدرسة بارك الل هفي حضرتك

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

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

في انتظار ردكم بارك الله فيكم جميعًا . للأهمية القصوى

في انتظار ردكم بارك الله فيكم جميعًا . للأهمية القصوى

في انتظار ردكم بارك الله فيكم جميعًا . للأهمية القصوى

السادة الأفاضل السلام عليكم ورحمة الله وبركاته برجاء التعديل على كود الترحيل على الملف المرفق وبارك الله فيكم جميعًا الترحيل.rar

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

بارك الله في حضرتك وجعل الله جميع أعمالك في موازين حسناتك ...

الأستاذ الفاضل المحترم : سليم حاصبيا بارك الله لك ونفعك بعلمك وزادك من فضله . هذا ما اطلبه بالضبط . شكرا لحضرتك هل من الممكن أن تلتمس لي العذروتسامحني على تعب حضرتك ؟ هل من الممكن تنفيذ نفس الكود ولكن على الورقة الثانية (تسجيل المتقدمين ) ويكون المدى من A1:S1005 ولسادتكم الشكر . مرفق الملف للعمل عليه .... معاينة قبل الطباعة عن طريق الفورم salim.rar

بسم الله الرحمن الرحيم الأخوة والأساتذة الأفاضل .. تحية من عند الله ... وبعد برجاء طلب : التعديل على كود للمعاينة قبل الطباعة حتى اتمكن من عمل المعاينة من على الفورم من أي مكان ومن أي صفحة وتكون المعاينة على الورقة الأولى فقط حتى لو كنت واقف داخل الورقة 2 أو الورقة 3 أو أي مكان ( بمعنى : تحديد ورقة رقم 1 " Sheet1 " لتتم المعاينة على البيانات التي بداخلة فقط ) . مرفق ملف للعمل علية وبارك الله فيكم جميعًا ... معاينة قبل الطباعة عن طريق الفورم.rar

بسم الله الرحمن الرحيم من فضل وكرم السادة المشرفين والسادة الرواد وخبراء الأكسيل مساعدتي في : 1 - عمل الفورم تلقائي الفتح عند فتح الملف حيث يفتح الفوم عند بدء فتح الملف ولا يفتح صفحات الملف . 2 - عمل زر خاص بطباعة الشيت في صفحة بيانات المتقدمين دون فتحها . 3 - عمل زر أخر لطباعة الإقرار من صفحة الإقرار والخاص بالسجل الحالي أو عند البحث عن سجل معين وطباعته من صفحة الإقرار دون فتح الصفحة . عمل نافذة دخول باسم مستخدم وكلمة مرور . علمًا بأن كلمة مرور التعديل على الصفحات هى ( 111 ) وكذلك كلمة مرور محرر الأكواد VBA هى ( 111 ) . ولكم جزيل الشكر والتقدير والاحترام والعرفان .وجعل الله جميع أعمالكم في موازين حسناتكم . الصف الأول تجربة.zip