حمادة عمر

السلام عليكم الاخ الكريم / kingstaitons يجب عليك اخي مراعاة الخطأ في عنوان موضوعك حتي لا يتعرض للقفل او الحذف او عدم الرد طبقا لسياسة المنتدي وقواعده قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

شاهد الرابط التالي اخي الكريم http://www.officena.net/ib/index.php?showtopic=36483&hl=%2B%D9%85%D9%86%D8%B9+%2B%D9%86%D8%B3%D8%AE+%2B%D8%A7%D9%84%D9%85%D9%84%D9%81+%2B%D8%A7%D9%84%D9%8A+%2B%D8%AC%D9%87%D8%A7%D8%B2+%2B%D8%A2%D8%AE%D8%B1

السلام عليكم الاخ الكريم / mka1761975 بارك الله فيك يمكنك تنفيذ طلبك ويتم التغيير في الخلية A1 بالفورم الاول والثاني كما تريد تفضل المطلوب ادخال قيمة معينة في خلية بزر في فورم.rar

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

ملفات مرفقة inv++.rar

السلام عليكم اخي الحبيب / ابراهيم استخدم الكود التالي لتنفيذ البحث المطلوب Private Sub Texinv_Change() On Error GoTo 100 Worksheets("invoice").Activate Columns(2).Find(Texinv, MatchCase:=True).Activate TextBox1 = ActiveCell.Offset(0, 0).Value TextBox2 = ActiveCell.Offset(0, 1).Value TextBox3 = ActiveCell.Offset(0, 2).Value TextBox4 = ActiveCell.Offset(0, 3).Value TextBox5 = ActiveCell.Offset(0, 4).Value TextBox6 = ActiveCell.Offset(0, 5).Value TextBox7 = ActiveCell.Offset(0, 6).Value TextBox8 = ActiveCell.Offset(0, 7).Value TextBox9 = ActiveCell.Offset(0, 8).Value TextBox10 = ActiveCell.Offset(0, 9).Value TextBox11 = ActiveCell.Offset(0, 10).Value TextBox12 = ActiveCell.Offset(0, 11).Value TextBox13 = ActiveCell.Offset(0, 12).Value TextBox14 = ActiveCell.Offset(0, 13).Value TextBox15 = ActiveCell.Offset(0, 14).Value Exit Sub 100: MsgBox ("الرقم غير موجود او خطأ") End Sub

شاهد هذا الرابط لعله يكون المطلوب بعنوان ااحث فى جهازك عن اي ملف عن طريق الاكسل http://www.officena.net/ib/index.php?showtopic=36407&hl=

بارك الله فيك اخي الكريم وتحياتي لاخي الحبيب / عطاء الله

ولاثراء الموضوع وزيادة الافادة اليك اخي الكريم ... كل امتدادت الاكسيل والفرق بينهم XLS تستطيع قرائتها بالإكسل 2003 XLS تستطيع الإحتفاظ بالكود فيها بداية من أوفيس 2007 ، تم استبدال XLS بثلاث إمتدادات xlsb ، xlsx ، xlsm وثلاثتهم لايستطيع الأوفيس 2003 قرائتهم إلا بإضافة أداة جديدة إضافية 1- الإمتداد xlsx لحفظ ملفات الإكسل العادية التي لاتحتوي علي أكواد ، فإن كتبت كود وحفظت الملف بهذا الإمتداد ولم تنتبه لرسالة التنبيه وأغلقت الملف ، فلن تجد الكود مرة أخري عند الفتح 2- الإمتداد xlsm لحفظ ملفات الإكسل التي تحتوي علي أكواد 3- الإمتداد xlsb لحفظ ملفات الإكسل (مع أكوادها) ، ولكن لاتستطيع عمل مشاركة لهذا النوع من الملفات للعمل بأكثر من مستخدم علي الملف في الشبكة ، أي Share وانصح باستخدام xlsb بدلا من xlsm لقلة حجم هذا النوع الملحوظة بالنسبة للآخرين (( إلا في حالة مشاركة الملف علي الشبكة )) ارجو ان اكون قد افدتك ولو قليلا تقبل خالص تحياتي

السلام عليكم الاخ الكريم / م / ياسر فتحى البنا بارك الله فيك بالنسبة لاستفسارك اخي الكريم فانه لا يمكن حفظ ملف اكسل بصيغة xlsx به اكواد حيث يستخدم لحفظ ملفات الاكسل العادية التي لا يوجد بها اكواد وان لم تنتبه لرسالة التنبيه المرفقة في ملفكم وأغلقت الملف ، فلن تجد الكود مرة أخري عند الفتح تقبل خالص تحياتي

السلام عليكم الاخ الكريم / انسان27 بارك الله فيك مرور طيب وكريم اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

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

السلام عليكم اخي الكريم / aburajai بارك الله فيك شاهد اخي هذا المرفق ان شاء الله به المطلوب علي حسب فهمي لطلبك او ارفق ملف اخي الكريم ... فارفاق ملف به شرح مثال لما هو مطلوب يعتبر نصف الحل تقبل خالص تحياتي كود اخر خلية مستعملة.rar

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

الاخ الكريم شاهد المرفق التالي ارجو ان يكون كما تريد طباعة1.rar

عذرا برغم انه ليس موضوعه ولكن لا يمكنني ام اتأخر عنك اخي الفاضل هل البيانات يتم استدعائها من شيت ام انك تقوم بوضعها في الفورم وتريد ماينتها بالشكل المطلوب

ولكن بعد اذنك سوف استخدم هذه الفكرة في موضوع آخر لاخونا الكريم / احمد غانم تقبل خالص تحياتي استاذي الحبيب

الآن اكسيل2003 23 صوت اكسيل 2007 17 صوت اكسيل 2010 13 صوت اكسيل 2013 8 صوت

الاخ الكريم / عبد الغني(aspiran) بارك الله فيك سيتم عما استثناء لك بتغيير تصويتك ... بس اوعي تعملها تاني لما تجرب 2014 .... ههههه تقبل خالص تحياتي

السلام عليكم الاخ الكريم / أبو ليمونه بارك الله فيك مرور طيب وكريم وبرأيك هذا سيتم احتساب الصوت لـ 2013 تقبل خالص تحياتي

السلام عليكم الاخ الفاضل / aburajai بارك الله فيك بالفعل طلبك غير واضح ولكن حسب فهمي لطلبك في مشاركتك الاخيرة وبعد اذن الاساتذة الكبار ... جزاهم الله خيرا الاستاذ / ابو حنين الاستاذ / حمادة باشا الاستاذ / عطاء الله ما فهمته انك تريد عند فتح الشيت الموجود به الخليه المقصودة ان ينتقل بك الشيت تلقائيا الي الاسفل ليتم تنشيط الخلية المذكورة ولتكن مثلا C5000 وبالتالي سيكون الكود بسيط وسهل جدا من سطر واحد يتم وضعه في حدث الشيت الذي تحدده ليكون الكود كالتالي Private Sub Worksheet_Activate() [C5000].Select End Sub وفي انتظار ردك تقبلوا مرور وخالص تحياتي

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

السلام عليكم الاخ الكريم / abdoullah بارك الله فيك والله اسعدتني كثيرا بأنك استفدت ولو معلومة من شرحي المتواضع جدا كلنا هنا اخي الكريم نتعلم ونعلم بعضنا البعض وان شاء الله سأحاول علي تقديم درس آخر في سلسلة خطوة خطوة ان شاء الله يعجبك ولكنها ظروف العمل فقط تقبل خالص تحياتي