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

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

السلام عليكم ورحمة الله وبركاته

كنت استخدم ويندوز 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

والحل بعد تطبيقه هو  

السلام عليكم ورحمة الله وبركاته 

عندي الكود التالي 

(Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean

جزاك الله وإياه وصاحب الكود خيرا 

ووفقكم الله لما يحب ويرضى

استاذنا الكريم 

بارك الله فيكم  وجزاكم الله خير 

وجزى صاحب الكود خيرا 

وجزى من دلني عليه خيرا  ـ الاخ  رجب جاويش

وإذا كان المطلوب الحفظ كل 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

السلام عليكم ورحمة الله وبركاته 

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

وشكرا للاساتذة الكرام

أخي الكريم طارق محمود 

السلام عليكم ورحمة الله وبركاته

وجدتها

السبب الذي بسببه لا يتم ترحيل بعض الصفحات هو أن

 الصفحة الأولى عندي كان  بها صفوف مخفية

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

وقد جربت ذلك على الملف المثال 

وقد وضعت  في

 Private Sub UserForm_Activate()

     هذين السطرين 

Sheets(1).Rows("1:99").EntireRow.Hidden = False

وأظن أنه بذلك انتهت المشكلة  

 أكرر اعتذاري لإشغالكم وتعبكم

وأكرر شكري الجزيل لكم 

وفقكم الله وغفر الله لنا ولكم ولوالدينا ووالديكم ولجميكم المسلمين 

والسلام عليكم ورحمة الله وبركاته 

وعليكم السلام ورحمة الله وبركاته 

 

السلام عليكم

أخي الكريم

 

 

أول سطر كنت أفترض فيه أن عدد الشيتات لن يتجاوز 99

For rw = 1 To Sheets(1).[D99].End(xlUp).Row

لذلك تجاوز عدد الشيتات التي ستختارها للترحيل رقم الـ 99

فستكون الخلية D99 بها بيانات نتيجة عمل كود Private Sub Label1_Click() الذي سبق شرحه

 

وتكون نتيجة الأمر 

.[D99].End(xlUp).Row 

دائما 1 ، حيث يقف المؤشر علي الخلية D99 التي بها بيانات ويقفز للأعلي حيث يجد خليه ليس بها بيانات ، فلن يجد ويقف عند آخر خليه بالأعلي الخلية D1 ولن يرحل إلا شيت واحد فقط

وكنت أقصد بــ "فقط يمكنك تغيير الـ 99 بـ 999 "

أن تغير بالكود كل 99 إلي 999

 

أرجو أن يكون الأمر واضح

ولاتتردد في أي سؤال

 

يا سيدي  بالفعل اتعبتك معي ـ  وبالفعل عدد الشيتات لم يتجاوز 99 هم 28 فقط  والترحيل يتم للغالبية العظمى من الشيتات 

استفدت من ردكم السابق شرح الأكواد  الشكر الجزيل لك 

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

فإلى ذلك الحين لك ان تستريح من هذا الموضوع 

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