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

الاخ طلعت وبعد اذن اخى ابو حنين اسمح لى بالاجابه توفيرا لوقتك ومجهودك اخى ابو حنين اخى طارق فقط قم بتغير السطر التالى UserForm1.Label1.Caption = Format(Hanine, "h:m:s") الى UserForm1.Label1.Caption = Format(Hanine, "hh:mm:ss")

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

الاخ ابوحنين بارك الله فيك كود رائع وجميل

الاخ قنديل معلومات جميله بارك الله فيك

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

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

للرفع

اخى ياسر فقط قم بتغير هذا السطر If Me.TextBox1.Value = Sheet3.[b2].Text And Me.TextBox2.Value = Sheet3.[b3].Text Then فقد كان الخطأ فى انك 1-قمت بكتابة انه هناك تيكست بوكس3 والصح انها تيكست بوكس2 2-قمت بكتابة الكود على ان قيمة التسكت بوكس3بتاوى الخليه B3 فى الشيت رقم 2 والصح انها قيمة التيكست بوكس2 والخليهB3 فى شيت3 جرب عمل ذلك اتمنى ان اكون قد وفقت

اخى الفاضل مجدى اسعدنى جدا مرورك الطيب وكلماتك الجميله بارك الله فيك

اخى قنديل هديه مقبوله ومجهود مبذول لتوصيل المعلومه بارك الله فيك

الاخوه الافاضل لدى فورم ويوجد داخل الفورم فرام وانا اريد وضع حوالى2000 تيكست بوكس داخل الفرام فيحدث خطأ OUT OF MEMORY فهل هناك حل Book1.rar

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

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

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

اخى واستاذنا عبداالله مجهود كبير يأتى بعمل عظيم بارك الله فيك

الاخ رضا هذه محاولة بسيطه منى ارجو ان يكون هذا هو المطلوب Book1(2).rar

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

الاخت ام عبدالله معادلة ممتاذه وفى غاية الذكاء وفققك الله لما يحبه ويرضاه

اخى ياسر بالنسبه لعمل ذلك على الشيت الاخر لابد ان تتعلم كيف تفعل ذلك 1-قم بتحديد الخلايا التى تريد تطبيق الكود عليها 2-اذهب الى formulas--ثم name manager--ثم new--ثم قم بكتابة اى اسم فى name وليكن yaser 3-قم بالضغط على زر ok 4- اذهب الى vba 5-قم بفتح ناذة الشيت vba المطبق عليه الكود لتأخذه كوبى 6-قم بفتح نافذة الشيتvba الذى تريد تطبيق الكود عليه ثم قم بالصاق الكود المأخوذ من الشت الاخر 7- قم بتغير كلمة MYRANGEالى كلمه yaser [جرب بعد ذلك ادخال البيانات فى الشيت ستجد الكود بإذن الله يعمل جيدا مرفق فيدو يوضح الطريقه as.rar

اخى ياسر اليك التعديل Achievement_3.rar

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

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

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

اخى ياسر تفضل اتمنى ان يكون هذا هو المطلوب Achievement.rar

الاخ عبد الغنى اتمنى ان اكون قدمت شيئا مفيدا