اذهب الي المحتوي
أوفيسنا

إبراهيم ابوليله

المشرفين السابقين
  • Posts

    2,850
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    7

كل منشورات العضو إبراهيم ابوليله

  1. اخى حسين الف مليون مبروك ترقيه مستحقه بإذن الله نتمنى ان نرى فيك الجهد والنشاط المبذول لمساعده الاخرين وفققك الله لما يحبه ويرضاه
  2. أخى ابو حنين كود جميل ورائع بارك الله فيك ولكن ماذا لو كان ادخال البيانات يتم بدايه من العمود الثان اى ان العمود الاول يكون فارغا ليس به اى بيانات كيف سيكون شكل كود ادخال البيانات. وكود الاستدعاء طباعة.rar
  3. اخى حماده بارك الله فيك الكود جميل وبسيط ولكنى اريد عمل ذلك عن طريق Me.Controls("TextBox فهل يمكن عمل ذلك
  4. اخى ابو حنين انت دائما موجود لمساعدة الاخرين كود جميل ورائع بارك الله فيك
  5. اخى ابو حنين ايه الجمال والحلاوه دى اكواد فى غايه الروعه والبساطه يبقى عمل شئ اخر وهو الاستدعاء للبيانات بمجرد الكتابه فى التيكست بوكس الخاصه بالبحث طباعة.rar
  6. اخى ابوحنين مشكورا على الاهتمام ومتابعة الموضوع ولكن يحدث خطأ فى ترحيل الصف الثانى من الفورم ارجو مشاهدة المرفق طباعة.rar
  7. اخى ابو حنين ماذا لو كان هناك اكثر من صف للفاتوره كيف سيتم الترحيل باستخدام Me.Controls طباعة.rar
  8. الاستاذ زياد مجهود كبير بارك الله فيك وجعل اعمالك فى ميزان حسناتك واعزرنى اذا كنت قد اتيت متأخرا
  9. اخى حماده بارك الله فيك ولكنى حاولت سابقا الاستفاده من الكود كالاتى Private Sub TextBox1_Change() Set sh12 = Sheets("1") lr = sh12.[A65000].End(xlUp).Row For Each cl In sh12.Range("A5:B" & lr) Exit Sub If (Val(Me.TextBox1)) = cl Then Me.TextBox2 = cl.Offset(0, 1) Me.TextBox3 = cl.Offset(0, 2) Me.TextBox4 = cl.Offset(0, 3) Me.TextBox5 = cl.Offset(0, 4) Me.TextBox6 = cl.Offset(0, 5) Me.TextBox7 = cl.Offset(0, 6) Me.TextBox8 = cl.Offset(0, 7) Me.TextBox9 = cl.Offset(0, 8) Me.TextBox10 = cl.Offset(0, 9) End If End If Next End Sub وواجهتنى مشكله حاولت حلها ولم استطع وهى ان لوقيمه التيكست بوكس لاتساوى قيمة المتغيرc1 يتم تفريغ جميع التيكست بوكس من البيانات فكيف يتم عمل ذلك
  10. اخى حماده عمر ببارك الله فيك معك كل الحق فى ذلك نتمنى ان نقتدى جميعا بالرسول بالصحابه صلى الله على سيدنا ونبينا محمد وعلى اله وصحبه وسلم
  11. اخى ضاحى مشكورا على الرد ولكنى اكتشفت الخطأ والخطأ يكمن فى Application.ScreenUpdating = False Application.ScreenUpdating = True فلو قمت باضافة الكودين الى يوزر فورم اكتف ستلاحظ حدوث الخطأ بارك الله فيك
  12. اخى ضاحى مشكور على الاهتمام والمتابعه ولكن 1-فى حالة استخدام الامر UNLOADMEيحدث تهنيجه جرب الخروج من الفورم عن طريق زر CLOSE 2-وهذه هى الاهم يوجد مجموعه من الليبول اعلى اليوزر فورم عند الضغط عليها يحدث تهنيجه بسيطه بحيث لايظهر الكلام الا اذا قمت باتأشير عليه ارجو المساعده فى ذلك 3-فى حالة الضغط على ليبلFILE ثم CLOSE يتم الخروج بدون اى مشاكل حيث انه تم استخدام الامر END ملحوظه مرفق صوره لتوضيح الخطا الذى اريد معالجته Copy of ST-5.rar
  13. اخى احى مشكورا على الرد ولكن اليك المرفق حاول استدعاء الفورم ثلاث مرات ستجد انه يحدث مشكله وهى ان الاكسيل يهنج ويغلق نفسه فهل يوجد حل Copy of ST-5.rar
  14. أخي الحبيب أ/ ابراهيم أبوليلة غالي وطلبك من عينيا عاوز الفورم له مقاس اوالوان محددة قولي تصورك للفورم وان شاء الله اعمله لك تقبل تحياتي تفضل اخى ضاحى اخى ضاحى مشكورا على الاهتمام ولكن واضح ان حدث خطأ اثناء رفع الملف فقد تم رفع ملف غير الملف المطلوب ارجو المراجعه
  15. بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم كل الشكر والتقدير والاحترام لعمالقة المنتدى والاساتذه الافاضل سيتم هنا عرض بعض الاكواد التى يتم استخدامها فى الفورم مع التيكست بوكس ثامنا--التعرف على بعض الاكواد الخاصه بالعمليات الحسابيه فى التيكست بوكس الجمع الطرح الضرب القسمه ارجو من الاخوه والاساتذه الافاضل شرح معنىUBound(Filter(Split(arr, ",") TEXTBOX CODES.rar
  16. أخي الحبيب أ/ ابراهيم أبوليلة غالي وطلبك من عينيا عاوز الفورم له مقاس اوالوان محددة قولي تصورك للفورم وان شاء الله اعمله لك تقبل تحياتي تفضل اخى ضاحى Book2.rar
  17. اخى الحبيب ضاحى وعليكم السلام ورحمه الله وبركاته بارك الله فيك اخى واسعدنى وشرفنى مرورك الكريم وكلماتك الاجمل واتمنى ان يكون الموضوع مفيد اشكرك على التشجيع
  18. اخى واستاذنا ضاحى اولا بارك الله فيك ثانيا من قبل ان تصفح البرنامج وانا واثق من ابداعك ومن جمال وعظم البرنامج فانت بالفعل تغييب تغييب ثم تاتى بكل ماهو جميل وهنا تكمن قيمة وجود امثالكم فى هذا المنتدى
  19. اخى عادل بارك الله فيك ومشكورا على الكلمات الجميله اتمنى ان يكون الموضوع مفيد
×
×
  • اضف...

Important Information