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

abouelhassan

05 عضو ذهبي
  • Content Count

    1,181
  • تاريخ الانضمام

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

  • Days Won

    1

abouelhassan last won the day on ديسمبر 3 2011

abouelhassan had the most liked content!

السمعه بالموقع

121 Excellent

2 متابعين

عن العضو abouelhassan

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب

اخر الزوار

1,549 زياره للملف الشخصي
  1. جرب هذا الحل للاستاذ ياسر خليل ياسر خليل أبو البراء له التحية احترامى med.mashroo3.xlsm
  2. اذا كان الموضوع صعب طيب ممكن تعديل الكود ليستدعى الارقام السالبة فقط وسوف اقوم بعمل صفحة أخرى اضعه بها اذا كانت عملية الاختيار من القائمة المنسدلة صعبة مع خالص تحياتي
  3. السلام عليكم ورحمة الله كل عام وحراتكم بخير هذا الملف تصميم استاذى سليم حاصبيا احتاج تعديل تم عمل قائمة منسدلة بها 3 جمل-كلمات او جملة جمع الكل وفى هذه الحالة الكود يظل كما هو حاليا يؤدى مهمته الحالية 2-الارقام السالبة اريده ان يستدعى الارقام التى اقل من صفر 3-الارقام الموجبة اريده ان يستدعى الارقام اكبر من صفر مع خالص دعائى وشكرى وعرفانى بالجميل اخيكم باحترام Sub Trasfer_data_Special() Dim R As Worksheet, Act_sh As Worksheet Dim k%, col%, Ro% Dim Max_ro%, x%, y% Dim Bol As Boolean Dim ST_Dat As Date Dim End_Dat As Date Dim My_sum# Dim Mot$ Mot = "الاجمالى" Set R = Sheets("Report_Youmi") Ro = R.Cells(Rows.Count, 1).End(3).Row R.Range("C3").CurrentRegion.Resize(Ro - 1).ClearContents R.Cells(3, 9).Resize(Ro - 2).ClearContents ST_Dat = Application.Min(R.Range("I2:J2")) End_Dat = Application.Max(R.Range("I2:J2")) For k = 3 To Ro - 2 Bol = Application.Evaluate _ ("ISREF('" & R.Range("A" & k) & "'!A1)") If Bol Then Set Act_sh = Sheets(R.Range("A" & k) & "") Max_ro = Act_sh.Cells(Rows.Count, 1).End(3).Row For y = 3 To 7 For x = 5 To Max_ro If CDate(Act_sh.Cells(x, 1)) >= ST_Dat And _ CDate(Act_sh.Cells(x, 1)) <= End_Dat And _ Act_sh.Cells(x, 2) <> Mot Then My_sum = My_sum + IIf(IsNumeric(Act_sh.Cells(x, y + 2)), _ Act_sh.Cells(x, y + 2), 0) End If Next x R.Cells(k, y).Value = IIf(My_sum = 0, "", My_sum): My_sum = 0 Next y End If Next k '+++++++++++++++++++++++++++++++++ R.Cells(Ro - 1, 3).Resize(, 5).Formula = _ "=if(COUNT(C$4:C$39)>0,SUM(C$4:C$39),"""")" R.Cells(Ro, 3).Resize(, 5).Formula = _ "=IF(COUNT(C$7:C$17)>0,SUM(C$7:C$17),"""")" R.Cells(4, 9).Resize(Ro - 3).Formula = _ "=IF(COUNT($C4:$G4)>0,SUM($C4:$G4),"""")" R.Range("A3:I" & Ro).Value = _ R.Range("A3:I" & Ro).Value End Sub My_Repport_Updated.xlsm
  4. جميلة جدااا الفكرة دى بس انا كده هحتاج ان اجمع الملفات 6 فى ملف واحتاج تعديل البرنامج وعمل شاشة بها صلاحيات لروية وتعديل وترحيل الى اعمدة محددة لكل صلاحية وتعديل التقرير ليستدعى بصلاحيات محدودة او كل الاعمدة 20 يعنى يستدعى عمود او عدة اعمدة او كل الاعمدة اتمنى من الله ان ياتى يوم وانفذها عموما انا هبحث واحاول وانتظر اراء اخواتى الاساتذة شكر وتقدير واحترام
  5. الاساتذة الافاضل الاخوة بحاجة لفكرة من خبراتكم لتسهل عليا الموضوع الموضوع ان لدى عدد 6 مصنفات كل حياتى بالملفات هذه الملفات ال6 بها نفس الاكواد ونفس التقارير اغلبها من اهداء الاستاذ العبقرى سليم حصبيا الشيتات بكل مصنف هى اسماء حسابات فى 6 مصنفات عدد114 شيت وهى 114 حساب الاعمدة فى ال6 مصفات هى 20 شخص كل مصنف به فى كل شيت عدد 5 اشخاص يوجد حسابات مشتركة فى ال 6 مصنفات عدد 20 حساب مشترك انا اعمل على ال6 مصنفات بحيث ادخل كل شخص سدد مبلغ كام على الحساب من خلال شيت ترحيل واذا طلب اى تقرير اقوم بجمع ال6 تقارير واجمعهم فى تقرير واحد حيث يوجد تقرير به اسماء الحسابات بتاريخ احتاج افكارسهلة انفذها بحيث اجمع ال 114 شيت فى مصنف واحد فى كل شيت 20 عمود بحيث اطلع تقرير مجمع جاهز للطباعة مرفق ملف من 6 ملفات به التقرير الذى اهداه الى اخى فى الله استاذ سليم اعزه الله , m هى اسم الشخص و1و2و3 اسم الحساب شكر وتقدير واحترام My_Repport_Updated.xlsm
  6. والله ربنا يرضى عنك وينجيك ويخليك ويبارك فيك يا استاذ سليم يا ابن الاصول يا محترم يا كريم حاجة خرافية وجميلة الالوان بتوضح لى ربنا يرضى عنك ياسيدى ان شاء الله شكر وتقدير واحترام من اخيك فى الله
  7. جعله الله صدقة جارية لك ولكل من تحب وبارك لك فى عمرك يارب شكر وتقدير واحترام من اخيك
  8. ربنا يكرمك استاذ عبد الفتاح الف الف شكر بارك الله فيك اخى شكر وتقدير واحترام من اخيك
  9. اجابة حضرتك رائعة تسلم ايدك استاذ سليم الف الف الف الف الف الف شكر حضرتك صاحب فضل كبير عليا فى شغلى الصراحة كل التقارير الممتازة الى حضرتك اهدتنى اليها تساعدنى جداااااااا والكثير من الملفات والله انا بدعى لك كل يوم انا عجوز والنظر بعافية شوية مواضيعك ساهمت فى حل اغلب مشاكلى والله الصراحة ربنا يكرمك يارب وان شاء الله ربنا يتقبل دعائى ربنا يرضى عنك
  10. ايه الجمال والحلاوة والاحترافية دى حاجة وهم والله تسلم ايدك ربنا يبارك فى حضرتك اللهم امين يارب باشا الاكسيل والله تسلم يا باشا ربنا يرضى عليك اللهم امين شكر وتقدير واحترام من اخيك
  11. ممتاز استاذ عبد الفتاح يعمل تمام بارك الله فيك شكر وتقدير واحترام من اخيك
  12. بالنسبة للتجميع هذاا الملفل للاستاذ الاسطورة ياسر خليل ابو البراء لعله ينفعك يقوم بتجميع الشيتات مع الشكر Collect Data From Multiple CSV Workbooks Mokhtar V1.rar
×
×
  • اضف...