abouelhassan

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

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

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

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

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

شكر وتقدير وفائق الاحترام :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 شيت اقوم بعمل جمع يدوى لهم كل شهر لاحصل على الاجمالى والله احترامى وانتظرك اخى لان الشهر قرب ان ينتهى واريد ان يتم التنفيذ احترااااااااام من كل القلب

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

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

للرفع رفع الله قدركم احترامى

اشكرك اخى جزيل الشكر ارسلت لحضرتك صورة لكبر حجم الملف وهذا هو الكود المطلوب التعديل عليه Private Sub ComboBox2_Change() On Error Resume Next x = ComboBox2.Value If x = "" Then Exit Sub TextBox13.Value = Sheets(x).Range("I4").Value End Sub Untitled.rar

اشكرك اخى شكرا جزيل بارك الله فيك اخى لدى كومبو بوكس به قائمة منسدلة وبجواره تكست بوكس بالاختيار من الكومبو بوكس تظهر قيمة خلية I4 فى ورقة العمل المحددة الرقم فى I4على هذا الشكل 5,555,555,55 يظهر بالفورم على هذا الشكل 5555555.5499999999999999 اريد الفورم يكون مثل الخلية 5,555,555,55 مع العلم انها قيمة متغيرة ممكن حضرتك تشرحلى ما اضيفه لوتسمح اخى وهذا هو الكود Private Sub ComboBox2_Change() x = ComboBox2.Value If x = "" Then Exit Sub TextBox13.Value = Sheets(x).Range("I5").Value End Sub احترامى

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

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

فتح الله عليكم استاذ باسم سعيد استاذ ابو عبدالله سؤال لدى فورم يجلب قيمة خلية وتظهر الرقم بالتكست بوكس مثلا لو بالخلية 20.20 20.199999999 السؤال ما ذا اضيف للتكست بوكس ليظهر القيمة والتنسيق كما هما بالخلية كما هما دون اى تغير لا فى التنسيق ولا تقريب احترام الشديد جداااااااااااااا

احترام وتقدير من اخيك للرفع رفع الله قدركم احترامى

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

وهذا اخى رابط يشرح ايضا العملية احترامى http://www.officena.net/ib/index.php?showtopic=208