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