حمادة عمر

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

السلام عليكم الاخ الكريم / krimo145 لتحويل صفحة الاكسيل من اليمين لليسار او العكس ارسلت لك ملف اكسيل به شرح بالصور يوضح عمل ذلك في اكسيل 2003 ، اكسيل 2007 عله يفي بطلبك جزاك الله خيرا Book1.rar

السلام عليكم الاخ الكريم / krimo145 طريقة تغيير اسم الصفحة في الاكسيل لتطابق مع الاسم في الكود كالتالي : قم بالدخول لملف الاكسيل ثم قم بالوقوف علي اسم الصفحة التي تريد تغيير اسمها ثم اضغط كليك يمين تظهر لك قائمة اختار منه Rename ثم ااكتب الاسم الذي تريده مثلا Rechercher وبذلك تكون قد قمت بتغيير اسم الصفحة قم بالدخول الي محرر الاكواد بالضغط علي Alt+F11 والدخول علي الكود والتغيير في السطر Set AHMAD = Sheets("Rechercher") وذلك بكتابة نفس اسم الصفحة الذي قمت بكتابته في في صفحة الاكسيل وهو هنا Rechercher كما في السطر في الكود السابق وبذلك يتطابق اسم الصفحة مع اسم الكود جزاك الله خيرا

السلام عليكم الاخ الكريم / فضل 1 كل الشكر والاحترام علي كلماتك الرائعة والتي هي كبيرة علي فمازلت احبو لطريق العلم الصحيح ولكني احب افيد الكل بكل معلومة احصل عليها ردا للجميل لخبراء واساتذة هذا الصرح العملاق اما بخصوص ملاحظتك فهي ملاحظة رائعة وجميلة وتستحق كل التقدير والاحترام ولكن علي حسب معلوماتي انه لا يوجد نظام حماية متكامل لملفات الاكسيل ومنع المستخدم من الدخول في حين تعطيل الماكرو حيث انه اذا اردت ان يتم ذلك يتم بربط الملف بأحد ملفات الريجستري في النظام وهو موضوع معقد وصعب بعض الشئ بالرغم من ان الخبراء والاساتذة لهم باع طويل فيه وهناك موضوعات كثيرة تناولت ذلك ولكن ليس هذا كل شئ فقد قدم لنا الاستاذ القدير العلامة الخبير / عبد الله باقشير طريقة اخري للحفاظ علي الملف من هذه الصغرة وهو موضوع كامل ومتكامل وهو موضوع عدم ظهور نافذة ملف الاكسل في حالة تعطيل الماكرو وذلك علي الرابط التالي .... واظن ان بذلك لن تكون هناك ثغرات http://www.officena.net/ib/index.php?showtopic=42107 ارجو ان اكون قد وفقت ولو بعض الشئ اخي الكريم جزاك الله خيرا

السلام عليكم الاخت الفاضلة / سحابة خير الكود بدون رسالة سيكون كالتالي ملحوظة : ( الكود المستخدم هو احد اكواد الاستاذ / عبد الله المجرب وتم تعديله ليتناسب مع طلبك ) وذلك لعدم ضياع الحقوق Private Sub Worksheet_Change(ByVal Target As Range) If Me.[a1] <> "" Then Exit Sub If Not Application.Intersect(Target, Range("b2")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub وبخصوص ظهورة في الطباعة فقط فهذا موضوع آخر ( وان شاء ساقوم بالعمل عليه ) جزاك الله خيرا

السلام عليكم الاخ الكريم / حسين العصلوجى بالنسبة للكود المرفق في المشاركة الاولي سيكون كالتالي لاتمام العملية بمنع ادخال ارقام سالبة في التكست بوكس سيكون الكود Private Sub TextBox1_Change() If Me.TextBox1.Value < 0 Then MsgBox "must be positive number ", vbOKOnly, "error" Me.TextBox1.Value = 0 End If End Sub وبالنسبة لعملية الضرب سيكون الكود مع الكود السابق ولكن في حدث الفورم كالتالي Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox3.Value = Val(TextBox1) * Val(TextBox2) * (0.85) End Sub وبذلك تتم عملية الضرب عند تحريك الماوس للانتقال الي التكست الآخر انظر الملف المرفق جزاك الله خيرا Book11111.rar

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

السلام عليكم الاخ الكريم / krimo145 قمت ببعض التعديلات علي ملفك ليتناسب مع الكود فقد كان يجب عليك اولاً تسمية الصفحة بنفس الاسم الموجود بالكود فقد كنت تسمي الصفحة بالاكسيل Rechercher واسمها بالكود USERFORM1 ولكن يجب ان يكون اسم الصفحة مطابق تماماً لما هو موجود بالكود والموجود بالسطر التالي Set AHMAD = Sheets("Rechercher") حيث هنا في هذا السطر وكما هو موضح بالشرح يتم وضع اسم الصفحة التي نريد البحث فيها وقمت بتعديل التنسيق ليبدأ من العمود A وذلك حيث انك في ملفك بدأت العمل بالعمود M والصفحة لديك من من اليمين لليسار وبالتالي كان الموضوع معكوس حيث انك جعلت M بعدها L ثم K وهكذا والعكس هو صحيح فبدأت من العمود A وبذلك يتغير السطر الموجود بالكود ليكون LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row بدلا من السطر في ملفك المرسل LastRow = .Cells(.Rows.Count, "M").End(xlUp).Row ثم بعد ذلك تقوم بتحديد الصف الذي يبدأ من عنده البحث Set Q = .Range("A8:A" & LastRow).Find(M) وهنا هو السطر رقم 8 حيث بداية البيانات واليك الملف المرفق هو ملفك ولكن بعد عمل التعديلات المطلوبة ليعمل معك اتمني ان يكون الشرح واضح ويفيدك ولو بشئ بسيط جزاك الله خيرا Book22222.rar

السلام عليكم الاخ الكريم / حسين العصلوجى اليك ايضا اخي الكريم رابط الموضوع الاساسي للاستاذ العبقري / عماد لحسامي بعنوان ( ( موضوع مميز ) ملف كامل عن كيفية استحدام ال UserForm والتعامل مع كافة جوانبه ) الدروس الستة موجودة بالمشاركة رقم 12# اليك الرابط http://www.officena.net/ib/index.php?showtopic=34088 اظن انك ستستفيد منه كثيرا جزاك الله خيرا

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

السلام عليكم الاخ الكريم / krimo145 الاكواد وشرحها موجود بالملف الموجود في المشاركة رقم 1 ( العمل + الشرح ) لفتح محرلار الاكواد قم بالضغط علي Alt +F11 واضغط كليك يمين علي الفورم واختار view code وللعلم وضعت لك في الآتي ارقام المشاركات التي بها اكمال الموضوع وشرحه والتعديل فيه في الموضوع الاساسي للاستاذ / احمد حمور فالموضوع عبارة عن 5 صفحات وهي كالآتي : المشاركة رقم 1 المشاركة رقم 17 بها استفسار للاخ / لسعد عابد المشاركة رقم 20 المشاركة رقم 22 توسعه مجال الداتا في الليست بوكس المشاركة رقم 34 شرح كيفية اظهار الداتا داخل صناديق الادخال بعد تحديد الليست بوكس المشاركة رقم 37 المشاركة رقم 63 طريقة التعديل المشاركة رقم 64 عسي الله ان ينفعه به جزاك الله خيرا اخي الكريم واحيي فيك روح الاصرار علي التعلم وبالفعل هو اول الطريق الصحيح وفقك الله لما تحبع وترضاه

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

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

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

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

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

السلام عليكم الاستاذ القدير / عبدالله المجرب اقل ما يقال عنك وعن اعمالك كلها انه هو (( الابداع ذاته )) جزاك الله خيرا استاذنا

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

السلام عليكم الاخ الكريم / احمد مجدى لي بعض الملاحظات في طلبك في المرفق احب توضيحها وهي : 1- هل تريد ان يكون الكود من عمود 31 كما طلبت عندما تكتب الرقم اوتختاره يحضر اسم الصنف في الفاتورة ... ان كان كذلك فهل اسم الصنف هو العمود رقم 2 في نفس الصفحة ... ام ماذا ؟؟ 2- ماذا تقصد بأن يكون العدد في الكمية افتراضيا اي قابل للتعديل هل تقصد عمود الـ count الموجود في الفاتورة حيث ان هذا العمود يقبل الارقام كما تريد !!! 3- اما بالنسبة للبحث والاستدعاء والتعديل فيمكن عمل ذلك وذلك اما عن طريق الملف المرسل منكم قبل ذلك والخاص بالعلامة / عبد الله باقشير listbox او بطريقة اخري ولكن بعد الانتهاء والاتفاق علي الشكل النهائي والطريقة النهائية للفاتورة جزاك الله خيرا

السلام عليكم الاخ العزيز / ابوميار بوركت اخي الكريم وبارك الله فيك علي كلماتك الرقيقة الجميله سأعمل كل ما بوسعي في طلباتك الاخيرة ولكن ذكرت ان في البند ( 6-مرفق بالشكل جل الملاحظات ) فلا يوجد مرفقات ارجو ارفاقها بالموضوع لتكون الصورة اوضح جزاك الله خيرا

السلام عليكم الاخ العزيز الرابط الذي ذكرته به شرح للطريقة جزاك الله خيرا

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

السلام عليكم فكرتك اخي الكريم وصلت ولكن دعنا من الاقساط الآن واحتاج الآن الي شرح منكم عن بداية العمل اولاً : استفسار عن السلع هل لكل سلعة كود لا يتغير تقم انت بادخالة ام ليس لها كود .... ( ياريت لو هناك كود سيجعل العمل اسهل وذلك لعدم تكرار السلع ) ثانياً : وصول السلع من ( المورد ) ـــــــ البيان الذي يتم تسلم السلع من المورد عليه ... ما هو شكله ؟؟ ماهي آليه العمل من بداية وصول السلع من المورد الي ( المخزن اولاً - ام الي المحل ) هل هناك اكواد للمورد حيث سيتم العمل بها كأساس للموردين ؟ جزاك الله خيرا

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

السلام عليكم الاخ الكريم / احمد عبد الناصر رائع جدا جدا الكود جميل ورائع وسوف استخدمه كثيرا جزاك الله خيرا