اذهب الي المحتوي
أوفيسنا

yara ahmed

03 عضو مميز
  • Posts

    215
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو yara ahmed

  1. والله العظيم انا اشكرك والله واعتذر هو العمود c بس انا كنت مستعجلة انا اسفة بارك الله فيك اخى والله انت رائع ربنا ما يحرمنى منك ابداااااااسليم حاصبيا بارك الله فيك يارب
  2. السلام عليكم اعتذر والله انا اسفة الكود المرفق كتابة وتصميم الاستاذ العبقرى سليم حاصبيا ربنا يحفظه يارب حاولت كثير ولكن فشلت احتاج اضافة عمود الى التقرير ليتم استدعاء بيناته هو العمودd واسمه الرقم المستندى اكرر اعتذارى بارك الله فيك اخى سليم والاخوة الاساتذة المشرفين والاعضاء Yara_WITH DEL_file.xlsm
  3. اخى استاذ سليم حاصبيا تم حذف الصفوف العليا الفارغة بملفى ظهر ايضا نفس الخطأ معلش انا اسفة بس والله هذا ما حدث فى نفس السطر من الكود If Not F_rg Is Nothing And F_rg.Column <= Col Then بارك الله فيك اخى احتاج علاج نهائ لو امكن معلش انا عارفةسهلةعليك ان شاء الله ان اثق فيك تمام الثقة
  4. تم التنفيذ ولا ذال نفس الخطأ والله اخى 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
  5. اشكرك اخى فى الله بعد التنفيذ لازال يخرج لى نفس الخطأ هنا If Not F_rg Is Nothing And F_rg.Column <= Col Then بارك الله فيك
  6. الف الف شكر يا باشا دكتور واستاذ ورئيس قسم الاكسيل كده جميل جداااااااااااااااااااااااااااااااااا زادك الله علم ومال من فضله يارب جارى التجربة اشكرك اشكرك اشكرك من كل قلبى الله يسعد قلبك يارب جارى التجربة حبيبى اخى استاذ سليم حاصبيا توقف الكود اخى فى هذا السطر If Not F_rg Is Nothing And F_rg.Column <= Col Then ملحوظة البيانات عندى تبدأ من السطر الخامس هل يؤثر ذلك كذلك اول سطر فارغ هل يؤثر اخى
  7. استاذ سليم حاصبيا الغالى اشكر حضرتك ياباشا والله انا نفذت تمام بس الكود منذ امس وانا بحاول فيه وتعبت جداااا والله وبنسخ اسم الشيت فعلا انا محتاجة تعديل فى الكود بعد اذنك لو امكن انا لا احتاج اسم الشيت بل احتاج الى رقم لو امكن تعديل هذه الجزء فى الكود مثلا ابدأ تنفيذ الكود من sheet7 الشيت انا سميته مثلا ملك انا فى التقرير عايزاه يبدأ منه الاستدعاء بس بدل ما يستدعى اسمه يستدعى رقمه الى هو هيكون1 والشيت الذى يليه ميار هيكون رقم2 والذى يليه ميرنا هيكون 3 يعنى فى التقرير التجميعى فى عمود رقم الشيت لايتم التعامل فى الكود مع اسم الشيت بل نضع له امر ان بدأ من الشيت7 اعطيه رقم1 والذى يليه2 والذى يليه3 وهكذا حتى نهاية الشيتس بالملف يعنى الكود يكون مرن لايتعامل بأسم الشيت اى كان اسم الشيت يضع رقم له بدأ من الشيت7 او مثلا استخدام عمود مساعد يستدعى اسم الشيت ونضع له الشيت ملك=1 والشيت ميار=2 والشيت ميرنا =3 وضعت مثال بالملف المرفق صباحك فل وياسمين بارك الله فيك استاذ سليم تقرير تجميعى.xlsm
  8. الموضوع صعب فى حالتى لان الشيتس كثيرة تخطت 100 هحاول , ربنا يرضى عنك استاذ سليم سطر ال("Sheet1","الرقم 1", "سليم", "الرقم 3")=Array لم يكفى اخى استاذ سليم حاصبيا وانا لسه فى ل=الشيت45 مش عارفة اعمل ايه الكود ما ضبط معايا بكل الطرق اخى توقف عند هذا السطر ولم يعمل على كل الملف If Not F_rg Is Nothing And F_rg.Column <= Col Then
  9. ربنا يبارك فيك استاذ سليم والله حضرتك وحشتنى جدااااااااسليم حاصبيا الله يرضى عنك وعن والديك يارب كل شئ جميل جداااااااااا جدداا عدا شيئان سامحنى بالنسبة لاسماء الشيتات لدى باللغة العربية اريد ان تتحول الى رقم فى التقرير من بعد التقرير 7 يعنى استثناء الشيتس الستة الاولى واول شيت من بعدهم مهما كان اسمه فى التقرير يكون رقم 1 والذى يليه 2 وهكذا عايزة الكود لا ينظر الى اسم الشيت بل هو يسميه فى التقرير 1 والذى يليه2 وهكذا اتمنى انى اكون اوضحت لحضرتك يعنى اسم الشيت من بعد تقرير7 الكود فى التقرير يكتب اسمها واحد والذى يليه2 وهكذا بس ميغيرش الاسم فاهمن استاذى شكرا جدا ليك بارك الله فيك استاذ سليم الغالى
  10. الاساتذة الاعزاء احتاج ماكرو استدعاء بيانات من الشيتات الى شيت تقرير تجميعى بداية من الشيت الذى بعد تقرير7 والشرح والنتائج المرغوب الحصول عليها بالملف المرفق بارك الله فيكم مشكورين يا حلوين تقرير تجميعى.xlsm
  11. تعجز الكلمات عن شكرك الف الف شكر جميل جدااااااااااا ربنا يحفظك بارك الله فيك استاذ ابراهيم
  12. استاذ ابراهيم الحداد بارك الله فيك ممكن مسح كافة التكست بعد الترحيل بارك الله فيك اخى
  13. تسلم استاذ ابراهيم كل شئ ممتاز بارك الله فيك استاذ ابراهيم مدهش والله ورائع وجميل
  14. السلام عليكم احتاج مساعدة فى فورم ادخال بيانات لشيت اكسيل لتسهيل عملية الادخال الفورم بالشيت مشكورين يا اساتذة فورم ترحيل للشيت.xlsm
  15. كان الله فى عونكم اتمنى معاونتى أساتذة المنتدى
  16. اخواتى انا اعتذر جداا هذا الكود تصميم استاذ سليم وقد عدله لى اكثر من مرة له خالص الشكر والعرفان منى وخالص الدعاء بس انا فعلا فى ورطة واحتاج هذا التعديل جدااااااااااا والله التعديل باختصار هنا فى هذه الفقرة من الكود 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
  17. الله يعزك بين العباد هذا ضرب من الخيال والله انت مدهش ربنا يبارك لك فى حياتك يارب كل شئ ممتاز ربنا يسلمك يارب من اى شر ويديك الصحة والعافية ودائما فى تقدم يارب انا متشكرة جداااااااااااااااااااااااااااااااااااااااااااا
  18. والله العظيم تحفة جدا اجمل مما كنت اتخيل وعمرى ماكنت اتخيل التقرير بالجمال ده تسلم وتعيش اخويا الغالى سليم حاصبيا ليا طلب اخير عايزة جمع للاعمدة فى اخر صف وتنسيق الجدول الكود يعمله الف شكر ربنا ما يحرمنى منك ابدااااااااااااااااا
  19. احتاج مساعدة اخواتى احتاج كود استدعاء بيانات من شيتس الى صفحة تقرير انا فكرت كثير فى تصميم للتقرير وتوصلت الى الموجود بالمرفق يمكن تغير فى التصميم اذا كان هناك حاجة لذلك النتائج المرجو الحصول عليها موجودة بالمرفق حبى وشكرى لكم التقرير النهائى.xlsm
  20. اشكر حضرتك جدا استاذ ابراهيم مع الشكر من القلب ربنا يكرمك
  21. احتاج كود اخفاء صفين الصف الذى به اصفار من العمود B :G والصف الذى فوقه مع الشكر hide.xlsm
  22. هذا الموقع يعرض كود ترحيل لملف وهو مغلق عله يفيدك https://stackoverflow.com/questions/29310458/how-to-copy-data-from-closed-workbooks-keeping-them-closed-into-master-workboo وهذا من المنتدى هنا انا بحاول اساعدك بالى اقدر عليه مع الشكر
×
×
  • اضف...

Important Information