abouelhassan

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

الاساتذة الافاضل اسعد الله اوقاتكم بالخير بحاجة لكود لفورم به 2 تكست بوكس الاولى نضيف رقم مثلا 10 الثانية تظهر رقم الخلية a2 فلو التكست الثانية تظهر رقم الذى بالخلية( a2) وهو 500 وكتابنا بالاولى 10 تتغير التكست الثانية التى بها a2 الى 490 اى التكست بوكس الثانية تتطرح بالفورم على طول دون اعادة فتح الفورم ما يتم كتابته بالاولى يتم طرحه من الثانية ه a.rar

ملحوظة للتحويل pdf لايعمل على اوفيس 2003 احترام من القلب

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

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

احترام من القلب اخيك

شكر وتقدير واحترام استاذ نا اخيك باحترام

شكر وفائق التقدير والاحترام من اخيك استاذ احمد بارك الله فيك

معكم اخوانى احترام

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

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

شكر وتقدير واحترام من اخيك

شكر وتقدير واحترام شديد

شكر وتقدير واحترام

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

شكر وتقدير وفائق الاحترام :fff: استاذ بارك الله فيك اخى مشكور جدا تم العمل الحمد لله اشكرك

شكر وتقدير وفائق الاحترام استاذ ali بارك الله فيك تم اخى تعديل كود حضرتك لانى اريده يكتب كلمة الاجمالى فقط ليصبح Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal lngWinIdx As Long, ByVal dwNewLong As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Dim hWnd As Long: Const GWL_STYLE = -16: Const WS_SYSMENU = &H80000 Private Sub CommandButton1_Click() On Error Resume Next Application.ScreenUpdating = False Application.EnableEvents = False For sh = Text_ِali To Text_ِali1 + 1 If Text_ِali.Text = Empty Or Text_ِali1.Text = Empty Then MsgBox "يرجاء تحديد أرقام الأوراق": Exit Sub With Sheets(sh) T = .Range("b15000").End(xlUp).Row + 1 .Cells(T, "b") = "الاجمالى" End With Next sh Application.ScreenUpdating = True Application.EnableEvents = True End Sub المطلوب ان يكون عدد الاوراق 39 ورقة بداية من الورقة2 وحتى 39 بعداذنك اخى وبارك الله لنا فيك اخى فى الله

احتاج اخى لكود يضيف كلمة الاجمالى للصفحات بعد اخر صف مستخدم فى العمود B من خلال فورم ولو امكن اخى امكانية اختيار الصفحات او الاضافة لكل الصفحات يخيرنى وبكده اكون انتهيت تمام من البرنامج بفضل الله وفضلكم اخوانى الافاضل

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

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

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

تم عمل التقرير تمام المشكلة كانت كما اوضحتها سيادتك صح وضعت الشي للتقرير بأول صفحة ويعمل 100% الحمد لله بفضل الله وفضلك اخى بقى الجمع فقط ارجوا من مساعدتى بالله العظيم احترامى الشديددددددد جداااا لشخصك الفوق الكريم

ممكن اخى حضرتك تضيف لى الكود والجمع فى الملف مع اعتبار ان صفحة 1 والتقرير بينهما 39 شيت اخر ممكن اخى احترامى

والله اخى واستاذنا باشمهندس طارق انت على راسى بس والله الملف كبير والله مش عارف ارفعه لبطئ النت لدى والله انا احلف بالله العظيم بس هو ده الملف والتغير ان هناك 39 شيت اضافى الى هذه الشيت ولوتريد ارسل لك اسماء الشيتات وبنفس الشيت اخى يتم الاكمال شهر 8 وشهر 9 وشهر 10 وشهر 11 بنفس الترتيب بس ساعدنى اخى ارجوك لعمل الجمع لاننى تخيل 40 شيت اقوم بعمل جمع يدوى لهم كل شهر لاحصل على الاجمالى والله احترامى وانتظرك اخى لان الشهر قرب ان ينتهى واريد ان يتم التنفيذ احترااااااااام من كل القلب

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