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

وهذا من المنتدى هنا

انا بحاول اساعدك بالى اقدر عليه مع الشكر

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