عاطف عبد العليم محمد

وجدت طلب مشابه قبل ذلك ولم يتم الإجابة عليه أرجو ان يتم الاجابة هنا

السلام عليكم ورحمة الله وبركاته كنت استخدم ويندوز 7 وركبت ويندوز 8.1 والأوفيس 2007 وكان 2007 ( غالب ظني ) وكنت اعمل على ملفات بها ماكرو وشغالة تمام الآن الملف تظهر فيه رسالة انه تم تعطيل الماكرو فبعد تمكينه وعند تنفيذ الماكرو يفتح الماكرو ويقف المؤشر عند كلمة في الماكرو وتظهر الرسالة can't find project or library فمثلا يقف عند myworksheets أرجو التفضل بالحل فعملي متوقف الى ان يأتي الحل من فاعل الخير وفقكم الله وجزاكم الله خيرا

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

السلام عليكم ورحمة الله وبركاته لدي كشف حساب يتكرر فيه رقم المستند وأريد منكم التفضل بماكرو لتلوين خلايا كشف الحساب بحيث يكون كل الصفوف التي تحتوى على رقم سند واحد لها لون واحد وهي تأتي متتالية اي لايفصل بينها صفوف تحتوى على رقم سند آخر فمثلا صفوف تحتوى على رقم سند 1 عددها مثلا 3 صفوف ثم صفوف تحتوي على رقم سند 2 عدده 5 صفوف متتالية ثم صفوف تحتوى على رقم سند 3 عدده 1 صف وهكذا تكرار يتغير عشوائيا مع كل كشف حساب يتم اعداده مرفق ملف للتوضيح ويوجد طلب آخر على نفس كشف الحساب إذا تم حل الأول نطرح الثاني إن شاء الله شاكرا لمن يتفضل بالحل عذرا لم استطع رفع الملف ولكن هذا يوضح الرصيد مدين دائن البيان اسم الحساب الفرعي نوع سند القيد رقم السند تاريخ ميلادي تاريخ هجري رقم الحساب 1,375.00 1,375.00 قيد يومية 7887 09/12/2013 09/12/2013 625 1,725.00 350.00 قيد يومية 7887 09/12/2013 09/12/2013 625 9,225.00 7,500.00 قيد يومية 7887 09/12/2013 09/12/2013 680 34,225.00 25,000.00 قيد يومية 7889 09/12/2013 09/12/2013 632 35,725.00 1,500.00 قيد يومية 7889 09/12/2013 09/12/2013 632 53,225.00 17,500.00 قيد يومية 7889 09/12/2013 09/12/2013 632 55,725.00 2,500.00 قيد يومية 7889 09/12/2013 09/12/2013 682 56,175.00 450.00 قيد يومية 7890 09/12/2013 09/12/2013 682 57,675.00 1,500.00 قيد يومية 7890 09/12/2013 09/12/2013 682 57,762.50 87.50 قيد يومية 7890 09/12/2013 09/12/2013 682 82,762.50 25,000.00 قيد يومية 7890 09/12/2013 09/12/2013 682 والسلام عليكم ورحمة الله وبركاته

السلام عليكم بارك الله فيكم أريد كود غلق الجهاز بعد اغلاق ملف الاكسيل

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

وعليكم السلام ورحمة الله وبركاته أخي عباد وجزاك الله خيرا استفدت من ردك فما كنت أعرف تعبير Target.Row والحل بعد تطبيقه هو d = Range("f7", Range("f7").End(xlDown)).Count If Target.Column = 5 And Target.Row > 6 And Target.Row < (d + 7) Then وفقكم الله وغفر الله لنا ولكم ووالدينا ووالديكم ولجميع من في المنتدى عامة ولكل المسلمين

السلام عليكم ورحمة الله وبركاته عندي الكود التالي (Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean If Target.Column = 5 Then Call myActiveRow End If End Sub وفيه بالضغط دبل كليك على أي خلية في العمود رقم 5 ( العمود e ) ينفذ الماكرو myActiveRow المطلوب بارك الله فيكم أن يتم ذلك فقط من الصف السابع إلى الصف الذي فيه نهاية التسجيل في العمود 5 d = Range("f7", Range("f7").End(xlDown)).Count أي طالما يتم الضغط فقط على أي صف في المجال d وجزاكم الله خيرا

جزاك الله وإياه وصاحب الكود خيرا ووفقكم الله لما يحب ويرضى

استاذنا الكريم بارك الله فيكم وجزاكم الله خير وجزى صاحب الكود خيرا وجزى من دلني عليه خيرا ـ الاخ رجب جاويش وإذا كان المطلوب الحفظ كل 15 دقيقة مثلا هل يكون السطر كالتالي (Rm = Now + TimeSerial(0, 14, C_Con أم يكون كالتالي Public Const C_Con = 15 (Rm = Now + TimeSerial(0, C_Con, 0 ام كلاهما صواب أم ما الصواب وما معنى هذا ()Private Sub Workbook_Deactivate Call St_A End Sub وفق الله الجميع لما يحبه ويرضاه

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

استاذي العزيز التجربة الثالثة نسخ الملف ولكن لم يتم الأغلاق للملف المنسوخ جزاك الله الف خيرا ، وفقك الله

استاذي العزيز جزاك الله الف خيرا هل السطر الأول مكانه صحيح أم يكون مكانه بعد اسم الماكرو فيكون قبل سطر Old_File = ActiveWorkbook.Name بعد اذنك انا جعلته كذلك ولأن الملف فيه ماكرو فقد غيرت الأمتداد ".xls" إلى "xlsm" التجربة الأولى والثانية للماكرو توقف الإكسيل عن العمل ساغلق الكمبيوتر كاملا ثم اعيد فتحه وأجرب مرة أخرى عسى أن ينفعنا تعبكم معنا جزاكم الله الف خيرا و السلام عليكم ورحمة الله وبركاته

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

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

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

يا سيدي اغفر لي ضعف فهمي وتحملني بارك الله فيك هل في طريقة أخرى لقياس top غير التي استنتجتها وهي عدد الصفوف × ارتفاع الصف

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

استاذنا رجب جاويش وفقك الله وجزاك الله خيرا وبردك على الأخ خالد الشاعر وضحت الأمور اكثر ولكن في الملف الأصلي عندي الغيت الصفوف التي بها الأزرار فبقيت الأزرار وارتفاعها صفر في شرحكم قلتم أما الرقم 120 يعنى أنه اذا كان TOP ( المسافة من الحافة العلوية للشكل الى حافة التطبيق ) للشكل أكبر من 120 يتم حذفه فأنا وضعت =0 بدلا من اكبر من 120 ولم ينفذ الالغاء فما معنى حافة التطبيق واظنها لا تعني الحافة السفلية وأفدنا عن التعديل اللازم بارك الله فيكم وبالمناسبة هل تعرف الشيخ الدكتور سعد جاويش

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

وعليكم السلام ورحمة الله وبركاته استاذنا الكريم مرفق ملف للتوضيح وفقكم الله ، وجزاكم الله خيرا أزرار مطلوب الغائها.rar

ألفت هذا الماكرو ولكنه لا يعمل المطلوب ("For Each Button In Rows("454:460 Button.Select Selection.Cut Next Button هل من معلم يعلمنا ؟ ولزيادة الإيضاح وربما ييسر ذلك الحل الأزرار الموجودة هي لعدد 2 ماكرو فقط ولكن زر كل ماكرو مكرر ربما 40 مرة والمطلوب الغاء الازرار فقط وليس الماكرو وفق الله الجميع لما يحب ويرضى

السلام عليكم ورحمة الله وبركاته لدي عدة أزرار لأكثر من ماكرو في صفوف محددة مثلا الصفوف من 3 الى 5 هل يمكن عمل ماكرو يبحث عن كل زر ويلغيه في هذه الصفوف وشكرا للاساتذة الكرام

أخي الكريم طارق محمود السلام عليكم ورحمة الله وبركاته وجدتها السبب الذي بسببه لا يتم ترحيل بعض الصفحات هو أن الصفحة الأولى عندي كان بها صفوف مخفية ووجدت أنه إذا كانت الصفوف المخفية تشمل إلى نهاية الصفوف التي يسجل بها اسماء الصفحات فلا يتم ترحيل الصفحات المسجلة بالصفوف المخفية أما إذا كانت الصفوف المخفية تشمل بعض الصفوف المسجل بها اسماء الصفحات و آخر الصفوف غير مخفية فترحل الصفحات كلها وقد جربت ذلك على الملف المثال وقد وضعت في Private Sub UserForm_Activate() هذين السطرين Sheets(1).Rows("1:99").EntireRow.Hidden = False Sheets(1).[d1:d99].UnMerge فأصبح الماكرو كالآتي () Private Sub UserForm_Activate Sheets(1).Rows("1:99").EntireRow.Hidden = False Sheets(1).[d1:d99].UnMerge Sheets(1).[d1:d99].ClearContents ListBox1.Clear For i = 1 To Sheets.Count If IsDate(Sheets(i).[E1]) Then ListBox1.AddItem Sheets(i).Name Next End Sub وأظن أنه بذلك انتهت المشكلة أكرر اعتذاري لإشغالكم وتعبكم وأكرر شكري الجزيل لكم وفقكم الله وغفر الله لنا ولكم ولوالدينا ووالديكم ولجميكم المسلمين والسلام عليكم ورحمة الله وبركاته

وعليكم السلام ورحمة الله وبركاته يا سيدي بالفعل اتعبتك معي ـ وبالفعل عدد الشيتات لم يتجاوز 99 هم 28 فقط والترحيل يتم للغالبية العظمى من الشيتات استفدت من ردكم السابق شرح الأكواد الشكر الجزيل لك ويبدو انني لم أصل لتوصيف المشكلة بالطريقة الكافية التي تمكنكم من حلها لذلك فسأمنح نفسي الفرصة والوقت الكافي للتعرف على المشكلة لتحديدها بدقة من خلال اعادة الترحيل اكثر من مرة والتبديل بين اماكن الشيتات فإلى ذلك الحين لك ان تستريح من هذا الموضوع وفقكم الله وجزاكم الله خيرا وغفر الله لوالدينا ووالديكم ولجميع المسلمين ، والسلام عليكم ورحمة الله وبركاته