yara ahmed

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

السلام عليكم اعتذر والله انا اسفة الكود المرفق كتابة وتصميم الاستاذ العبقرى سليم حاصبيا ربنا يحفظه يارب حاولت كثير ولكن فشلت احتاج اضافة عمود الى التقرير ليتم استدعاء بيناته هو العمودd واسمه الرقم المستندى اكرر اعتذارى بارك الله فيك اخى سليم والاخوة الاساتذة المشرفين والاعضاء Yara_WITH DEL_file.xlsm

اخى استاذ سليم حاصبيا تم حذف الصفوف العليا الفارغة بملفى ظهر ايضا نفس الخطأ معلش انا اسفة بس والله هذا ما حدث فى نفس السطر من الكود If Not F_rg Is Nothing And F_rg.Column <= Col Then بارك الله فيك اخى احتاج علاج نهائ لو امكن معلش انا عارفةسهلةعليك ان شاء الله ان اثق فيك تمام الثقة

تفضل اخى استاذ سليم حاصبيا بارك الله فيك Yara_2.xlsm

تم التنفيذ ولا ذال نفس الخطأ والله اخى For i = 5 To ro If sh.Cells(i, 1) = vbNullString Then GoTo next_I Special_SH.Cells(m, 2).Resize(, 2).Value = _ sh.Cells(i, 1).Resize(, 2).Value Set F_rg = sh.Cells(i, 2).Resize(, Col - 1). _ Find("*", after:=sh.Cells(i, 3)) If Not F_rg Is Nothing And F_rg.Column <= Col Then With Special_SH.Cells(m, 4) .Value = F_rg '+++++++++ By choise You can insert _ ' Sheets name or Sheet Number++++++++++++ ' .Offset(, 1) = Arr_Number(t) .Offset(, 1) = sh.Name '++++++++++++++++++++++++++++++++++ .Offset(, 2) = sh.Cells(1, F_rg.Column) .Offset(, -3).Resize(, 6).Interior.ColorIndex = _ IIf(n Mod 2 = 0, 24, 36) End With m = m + 1 End If next_I: Next i n = n + 1 Next t If m > 2 Then With Special_SH.Range("a2:f" & m) .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 14 .InsertIndent 1 ' .Interior.ColorIndex = 35 .Columns(1) = Evaluate("row(1:" & m - 2 & ")") With .Rows(m - 1) .Cells(1) = vbNullString .Cells(5) = "Sum" .Cells(4).Formula = _ "=SUM(D2:D" & m - 1 & ")" .Interior.ColorIndex = 40 .Value = .Value End With End With End If Application.ScreenUpdating = True End Sub

اشكرك اخى فى الله بعد التنفيذ لازال يخرج لى نفس الخطأ هنا If Not F_rg Is Nothing And F_rg.Column <= Col Then بارك الله فيك

الف الف شكر يا باشا دكتور واستاذ ورئيس قسم الاكسيل كده جميل جداااااااااااااااااااااااااااااااااا زادك الله علم ومال من فضله يارب جارى التجربة اشكرك اشكرك اشكرك من كل قلبى الله يسعد قلبك يارب جارى التجربة حبيبى اخى استاذ سليم حاصبيا توقف الكود اخى فى هذا السطر If Not F_rg Is Nothing And F_rg.Column <= Col Then ملحوظة البيانات عندى تبدأ من السطر الخامس هل يؤثر ذلك كذلك اول سطر فارغ هل يؤثر اخى

استاذ سليم حاصبيا الغالى اشكر حضرتك ياباشا والله انا نفذت تمام بس الكود منذ امس وانا بحاول فيه وتعبت جداااا والله وبنسخ اسم الشيت فعلا انا محتاجة تعديل فى الكود بعد اذنك لو امكن انا لا احتاج اسم الشيت بل احتاج الى رقم لو امكن تعديل هذه الجزء فى الكود مثلا ابدأ تنفيذ الكود من sheet7 الشيت انا سميته مثلا ملك انا فى التقرير عايزاه يبدأ منه الاستدعاء بس بدل ما يستدعى اسمه يستدعى رقمه الى هو هيكون1 والشيت الذى يليه ميار هيكون رقم2 والذى يليه ميرنا هيكون 3 يعنى فى التقرير التجميعى فى عمود رقم الشيت لايتم التعامل فى الكود مع اسم الشيت بل نضع له امر ان بدأ من الشيت7 اعطيه رقم1 والذى يليه2 والذى يليه3 وهكذا حتى نهاية الشيتس بالملف يعنى الكود يكون مرن لايتعامل بأسم الشيت اى كان اسم الشيت يضع رقم له بدأ من الشيت7 او مثلا استخدام عمود مساعد يستدعى اسم الشيت ونضع له الشيت ملك=1 والشيت ميار=2 والشيت ميرنا =3 وضعت مثال بالملف المرفق صباحك فل وياسمين بارك الله فيك استاذ سليم تقرير تجميعى.xlsm

الموضوع صعب فى حالتى لان الشيتس كثيرة تخطت 100 هحاول , ربنا يرضى عنك استاذ سليم سطر ال("Sheet1","الرقم 1", "سليم", "الرقم 3")=Array لم يكفى اخى استاذ سليم حاصبيا وانا لسه فى ل=الشيت45 مش عارفة اعمل ايه الكود ما ضبط معايا بكل الطرق اخى توقف عند هذا السطر ولم يعمل على كل الملف If Not F_rg Is Nothing And F_rg.Column <= Col Then

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

الاساتذة الاعزاء احتاج ماكرو استدعاء بيانات من الشيتات الى شيت تقرير تجميعى بداية من الشيت الذى بعد تقرير7 والشرح والنتائج المرغوب الحصول عليها بالملف المرفق بارك الله فيكم مشكورين يا حلوين تقرير تجميعى.xlsm

تعجز الكلمات عن شكرك الف الف شكر جميل جدااااااااااا ربنا يحفظك بارك الله فيك استاذ ابراهيم

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

تسلم استاذ ابراهيم كل شئ ممتاز بارك الله فيك استاذ ابراهيم مدهش والله ورائع وجميل

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

كان الله فى عونكم اتمنى معاونتى أساتذة المنتدى

اخواتى انا اعتذر جداا هذا الكود تصميم استاذ سليم وقد عدله لى اكثر من مرة له خالص الشكر والعرفان منى وخالص الدعاء بس انا فعلا فى ورطة واحتاج هذا التعديل جدااااااااااا والله التعديل باختصار هنا فى هذه الفقرة من الكود Part_sum = Round((Sum_pos * 0.85) + Sum_Neg, 2) المثال للشرح اذاكان التاريخ 1/1/2020 فيه الارقام الموجبة 100 والارقام السالبة 20 وده اول المدة الرصيد=100-(100*85/100)+(20-)=65 اذا كان التاريخ الشهر الذى يليله مثلا 1/3/2020 وليس شرط ان يكون الشهر التالى مباشرة اذتا كان مثلا الارقام الموجبة= 200 والارقام السالبة =30 الرصيد=الرصيد فى الشهر السابق+(الارقام الموجبة الشهر الحالى-(الارقام الموجبة*15/100)+(الارقام السالبة) الرصيد فى شهر3 =رصيد شهر1 65+200 ارقام موجبة شهر3 - 200 ارقام موجبة شهر3*15/100+الارقام السالبة الشهر الحالى 30 الرصيد3=65+200-(200*15/100)+(-30)=265 وهكذا التعديل محتاجة اضافة رصيد الشهر السابق للتاريخ يعنى لو انا مختارة تاريخ من 1/1/2021 الى 30/1/2020 الرصيد السابق يكون رصيد حتى 31/12/2020 اتمنى مساعدتى للاهمية فوق القصوى والله مع الاعتذار وخالص دعاء اختكم Yara_More_Optione.xlsb

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

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

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

الف مبروك بالتوفيق للجميع يارب

اشكر حضرتك جدا استاذ ابراهيم مع الشكر من القلب ربنا يكرمك

احتاج كود اخفاء صفين الصف الذى به اصفار من العمود B :G والصف الذى فوقه مع الشكر hide.xlsm

هذا الموقع يعرض كود ترحيل لملف وهو مغلق عله يفيدك https://stackoverflow.com/questions/29310458/how-to-copy-data-from-closed-workbooks-keeping-them-closed-into-master-workboo وهذا من المنتدى هنا انا بحاول اساعدك بالى اقدر عليه مع الشكر

الف شكر لحضرتك ياباشا