على عبدالراضى

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

الاخ الفاضل / حمادة عمر لك الف شكر على الافادة تمت التجربة والكود يعمل بنجاح والى الامام وشكرا ولك منى الف تحية وشكر

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

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

الاخ /حمادة السلام عليكم ورحمتة الله وبركاتة الملف ليس بة معلومات سرية ولكن يحتوى على العديد من اوراق الاكسيل وكلما حولت رفعة يخبرنى الموقع بان المساحة المحددة لى 1000 كيلو لذلك انا عملت لسيادتكم صفحة مشابة واريد ان اربط ذلك بافروم الشاشة الافتتاحية واعذرنى لكثرة الاسئلة وارجو ان يكون لى فى سعة صدرك مكان واشكرك على سرعة الرد والاستجابة شكراعلى فكرة الملف لشيت كنترول حيث يوجد بالمدرسة 12 تخصص مختلف وشكرا الملف المرفق 1.rar

الاخ الفاضل / حمادة السلام عليكم ورحمتة اللة وبركاتة اولااحب ان اشكرك على المجهود الذى تبذلة مع الاخوة اعضاءالمنتدى امثالى ممن يحبون العمل على الاكسيل ودائما فى حاجة الى الاخوة المتميزين فى المجال امثال الاخ حمادة ثانيا احب المساعدة منك فى هذا الملف حيث اننى تعلمت من احد الاخوة فى المنتدى هذاالكود Private Sub CommandButton1_Click() If TextBox1 = Sheets("الرصد").Range("cf1").Text Then MsgBox "كلمة السر صحيحة و سينفذ ما طلبت", vbOKOnly, "حسنــــــــــا" Cells.Select Selection.EntireColumn.Hidden = False Rows("10:359").Select Selection.Sort Key1:=Range("b10"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Else MsgBox " العمل غير مشروع ..... كلمة السر خطأ " & Chr(13) & " حاول مرة أخرى ", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "عفــــــــوا" End End If End Sub وعند الانتهاء من العمل وغلق الجهاز وفتحة مرة اخرة وعند فتح البرنامج تخرج رسالة بان هناك خطا كما هو موصح الصورة المرفقة فكيف يمكن تصحيح الخطا صورة.rar واشكرك للمرة الاف على الاهتمام والرد

الاستاذ/ محمدى السلام عليكم ورحمتة اللة وبركاتة انا عضو جديد فى المنتدى وقد اعجبنى العمل الرائع الذى قمت بعملة وهو كود الترحيل ولكن عند محاولة التطبيق لة فقد فشلت لذلك ارجو منك بعد اذنك شرح لبعض النقاط مثل o& m & nماهو المقصود بهم ولوسمحت لى بان تعرفنى معنى المعيار واحب ان اضيف لك اننى لى شيت يحتوى على 16 تخصص مختلف فكيف اعمل لهم كود الترحيل وانا اسف على الاطالة ولكن عملك المتميز هو الذى جعلنى اطلب منك هذا الطلب مرفق ملف به مجموعة من التخصصات وشكرا لكم واسف على الاطالة كنتزول2013.rar

الاخ / حمادة ارجو المساعدة فى حل هذة المشكلة وهى انة كلما عملت ملف اكسيل بة ماكرو واردت ان اغلق الملف ظهرت هدة الرسالة مع كل مرة افتح الملف واغلقة وهذة الرسالة التى تظهر مرفقة مع الملف المرفق وشكرا1.rar

الاستاذ /حمادة عمر بعد السلام عليكم ورحمتة الله وبركاتة احب ان اعبر عن مدى اعجابى باعمالك الرائعة والمتميزة وحقيقة الامر انك تستحق لقب الخبير المتميز فى اعمال الاكسيل ولايوجد كلمات اكثر من بارك الله فيك على هذة الرواع التى تنير الطريق الى الاخرين ليتعلموا منك خير الاعمال ( وخيركم من تعلم العلم وعلمة ) وشكرا

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

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

اين الردود ياخوت خبرا الاكسيل

بعد السلام عليكم ايها الاستاذة الكرام اود ان اشكركم لاننى تعلمت منكم الكثير فى هذا المنتدى المتميز ولكن لى طلب ارجو ممن لدية المعرفة ان يفيدنى وهو اريد كود او ماكرو يقوم باخفاء بضع الاعمدة المتتالية فى ورقة الاكسيل لاخفائها بشرط انها لاتظهر من تنسيق الموجودة فى شريط الادوات وللعلم اننى اعمل على اكسيل 2010 ارجو الافادة لان هذا الامر مهم بالنسبل وشكرا لكل من افادنى فى مشكلتى

السلام عليكم ارجو منكم كود يقوم باخفاء اعمدة فى الاكسيل 2010 ولاتظهر الاعمدة من تنسيق الخلاياء شكرا

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

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

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

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