احمد محمد ماترك

السلام عليكم ورحمه الله وبركاته عند الضغط علي كلمه بحث ووضع اي بيانات يظهرر خطا الملف مرفق

السلام عليكم ورحمه الله وبركاته اريد عمل فلتره بثلاثه شروط بين عمودالتاريخ وعمود الفرع المرسل اليه وعمود توضيح (مرفق الملف للتوضيح) New Microsoft Excel Worksheet.xlsx

بارك الله فيك استاذنا الغالي سليم حاصبيا هذا هو المطلوب وجزاك الله كل خير

السلام عليكم ورحمه الله وبركاته اساتذتي الكرام رواد موقع اوفسينا اسال الله العلي العظيم ان تكونوا في خير حال اريد طريقه لتغيير تاريخ عمود كامل بضغطه واحده والمرفق يوضح ما اريده بالظبط وجزاكم الله كل خيراا New Microsoft Excel Worksheet.rar

استاذ ياسر العربي والله انا مش عارف اقولك ايه .. ربنا يجازيك كل خير .. ونحن تعلمنا منك استاذنا القدير مثال لا تعطني سمكه ولكن علمني كيف اصطاد فأنا هقرأ الموضوع الي حضرتك بعته وهحاول انفذه بنفسي وشكرا ليك استاذي الفاضل .....

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

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

السلام عليكم ورحمه الله وبركاته اساتذتي الافاضل اريد عمل مشاركه لشيت اكسيل في جميع اجهزه الشركه عندي بحيث لو اي موظف ادخل بيانات في هذا الشيت تتغير عند الكل...

Public Sub Ali_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P On Error Resume Next With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True With Sh.Cells .SpecialCells(2).Locked = True .SpecialCells(-4123).Locked = True End With If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub Private Sub Ch_P() Dim Sn As Worksheet For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123" Next End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Ali_Prodc End Sub Private Sub Workbook_Open() STARTUP.Show START1.Show End Sub

لقد تم حل المشكله بعد العديد من المحاولات وده الكود الي استخدمته لتلاشي التكرار وشكراا استاذي الغالي استاذ ياسر ... Public Sub Ali_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P On Error Resume Next With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True With Sh.Cells .SpecialCells(2).Locked = True .SpecialCells(-4123).Locked = True End With If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub Private Sub Ch_P() Dim Sn As Worksheet For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123" Next End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Ali_Prodc End Sub Private Sub Workbook_Open() STARTUP.Show START1.Show End Sub

شكرا استاذنا الغالي استاذ ياسر طيب ازاي ادمج الاكواد؟؟؟؟ والملف ده مساحته 72ميجا فصعب رفعه وانا جربت اشيل الكود المتشابه ده ظهرت الرساله ديه

شكرا يااستاذ ابوعبدالباري فعلا اتحلت المشكله وشكر استاذنا الغالي استاذ ياسر ... انا جيت اطبق الكود علي شيت حسابات عندي ظهرت هذه المشكله ارجو الحل

بتظهر كما بالصوره معرفش ليه

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

السلام عليكم ورحمه الله وبركاته اساتذتي الافاضل اريد حمايه الخلايا التي يتم ادخال البيانات بها فقط وانا لقيت الي انا عاوزه في منتدانا الغالي بس مش عارف اطبقه .... في الملف المرفق ده الكود الي انا عاوزه بس مش عارف اطيقه ازاي علي جميع شيتاتي وشكرااااا cash (1).rar

السلام عليكم ورحمه الله وبركاته اعضاء المنتدي الكرام ليه طلب صغير عاوز اغير الرقم السري بدلا 55555 الي amm بس مش عارف كل ماجي اغيرها يديني غلط والملف المرفق يوضح ما اريد وجزاكم الله كل خير................فورم ELFAR.rarفورم ELFAR.rar فورم ELFAR.rar فورم ELFAR.rar فورم ELFAR.rar

استاذنا الفاضل استاذ ياسر اشكرك علي متابعتك المستمره والمتميزه دائما....انا مكررتش مواضيع النت كان بطئ فكن بدوس علي كلمه اضف الموضوع اكثر من مره لاتاكد من نشرها..... والحمد لله تم حل المشكله من شيت في المنتدي واشكرك مره ثانيه علي اجتهادك دائما .......تقبل تحياتي... mahmoudfoxmam form search.rar

السلام عليكم ورحمه الله وبركاته اخواني الاعزاء اسأل الله ان تكونوا في افضل حال..... عندي شيت عملاء به حوالي 100 عميل كن عاوز اعمل فورم للبحث لقيت في المنتدي كتير بس مش عارف اربطه باشيت بتاعي ارجو الحل علما بأن انا عندي في الصفحه مسلسل العميل واسمه ورقم تليفونه ورصيده والملف مقدرتش ارفعه لانه حجمه كبير....... تقبلواااا تحياتي...................

استاذنا الغالي استاذ ياسر انا مش عارف اشكرك ازاي انا واقع في المشكله ديه من 3 ايام وبفضل الله ثم مساعدتك تم حل المشكله ....... وربنا يجازيك كل خير علي هذا المجهود .................... الف الف الف لف الف الف مليون شكر ليك يا استاذنا الفاضل ............

استاذنا الغالي استاذ ياسر انا مش عاوز اجمع بشروط انا عاوز اجمع خليه ثابته في جميع الشيتات والمعادله اهي =SUM(Sheet1:Sheet4!A1) بس انا عندي اسماء الشيتات مكتوبه كالاتي (عميل رقم(1) وو عميل رقم2() وهكذا بس انا عاوز اكتبها بالطريقه الصحيحه انا لا اعرف اكتب معادلات...... وبالنسبه لرفع الملف (حجمه 50 ميجا فلن استطيع رفعه) وشكراا استاذنا الغالي للمتابعه .................

استاذ ياسر انا لقيت المعادله ديه بس مش عارف اطبقها ازاي عندي =SUM(Sheet1:Sheet4!A1) total.rar

السلام عليكم ورحمه الله وبركاته اخي الكريم استاذ ياسر اشكرك علي متابعتك للموضوع وبالنسبه لطلبي انا لقيت حل ومش عارف اطبقه وهي معادله جمع بسيطه كل ماجي اطبقها تديني الرساله ديه معرفش ليه....... والمعادله اهو معرفش ايه الغلط فيها =SUM('عميل رقم1 (2)'!FD18;'عميل رقم1 (3)'!FD18;'عميل رقم1 (4)'!FD18;'عميل رقم1 (5)'!FD18;'عميل رقم1 (6)'!FD18;'عميل رقم1 (7)'!FD18;'عميل رقم1 (8)'!FD18;'عميل رقم1 (9)'!FD18;'عميل رقم1 (10)'!FD18;'عميل رقم1 (11)'!FD18;'عميل رقم1 (12)'!FD18;'عميل رقم1 (13)'!FD18;'عميل رقم1 (14)'!FD18;'عميل رقم1 (15)'!FD18;'عميل رقم1 (16)'!FD18;'عميل رقم1 (17)'!FD18;'عميل رقم1 (18)'!FD18;'عميل رقم1 (19)'!FD18;'عميل رقم1 (20)'!FD18;'عميل رقم1 (21)'!FD18;'عميل رقم1 (22)'!FD18;'عميل رقم1 (23)'!FD18;'عميل رقم1 (24)'!FD18;'عميل رقم1 (25)'!FD18;'عميل رقم1 (26)'!FD18;'عميل رقم1 (27)'!FD18;'عميل رقم1 (28)'!FD18;'عميل رقم1 (29)'!FD18;'عميل رقم1 (30)'!FD18;'عميل رقم1 (31)'!FD18;'عميل رقم1 (32)'!FD18;'عميل رقم1 (33)'!FD18;'عميل رقم1 (34)'!FD18;'عميل رقم1 (35)'!FD18;'عميل رقم1 (36)'!FD18;'عميل رقم1 (37)'!FD18;'عميل رقم1 (38)'!FD18;'عميل رقم1 (39)'!FD18;'عميل رقم1 (40)'!FD18;'عميل رقم1 (41)'!FD18;'عميل رقم1 (42)'!FD18;'عميل رقم1 (43)'!FD18;'عميل رقم1 (44)'!FD18;'عميل رقم1 (45)'!FD18;'عميل رقم1 (46)'!FD18;'عميل رقم1 (47)'!FD18;'عميل رقم1 (48)'!FD18;'عميل رقم1 (49)'!FD18;'عميل رقم1 (50)'!FD18;'عميل رقم1 (51)'!FD18;'عميل رقم1 (52)'!FD18;'عميل رقم1 (53)'!FD18;'عميل رقم1 (54)'!FD18;'عميل رقم1 (55)'!FD18;'عميل رقم1 (56)'!FD18;'عميل رقم1 (57)'!FD18;'عميل رقم1 (58)'!FD18;'عميل رقم1 (59)'!FD18;'عميل رقم1 (60)'!FD18;'عميل رقم1 (61)'!FD18;'عميل رقم1 (62)'!FD18;'عميل رقم1 (63)'!FD18;'عميل رقم1 (64)'!FD18;'عميل رقم1 (65)'!FD18)

يااخونا ساعدوني انا فعلا احترت في المعادله ديه انا عدد الصفحات عندي 50 صفحه عاوز اجمع من الخليه e11 الي الخليه e41 في الخمسين صفحه بس يعني المطلوب اكيد مش صعب عليكم وياريت تردوا عليه لاني انا واقف علي المعادله ديه وجزاكم الله كل خير

توضيح اكثر انا عملت زرار ينسخ الشيت عادي عاوز اعمم الكود ده علي كل الشيتات الجديده (كل الشيتات تصب في هذه الخليه) Sub Ma() ' ' Ma Macro ' ' Sheets("Sheet1").Select ActiveCell.FormulaR1C1 = "=SUM('Úãíá ÑÞã1'!R[10]C[4]:R[40]C[4])" Range("A2").Select End Sub

السلام عليكم ورحمه الله وبركاته استاذنا الفاضل استاذ ياسر انا عاوز اعمل زار نسخ للشيت(لان الشيت ده خاص بعميل انا عاوز زرار اضيف بيه العملاء بدل ما انسخ الشيت يدوي) تاني حاجه الشيت الي هيتنسخ يصب في صفحه المندوب تلقائي بدل مااقعد اربط كل صفحه عميل جديده بصفحه المندوب وخصوصا انا العملاء عندي كتير والغرض من ربط صفحه العميل بصفحه المندوب هي اني عاوز اعرف اجماي مبيهات المندوب من كل صنف علشان اعرف احاسب كل اخر شهر والملف المرفق يوضح الرؤيه اكثر وشكراا للاهتمام استذنا الفاضل .............................................. السلام عليكم ورحمه الله وبركاته استاذنا الفاضل استاذ ياسر انا عاوز اعمل زار نسخ للشيت(لان الشيت ده خاص بعميل انا عاوز زرار اضيف بيه العملاء بدل ما انسخ الشيت يدوي) تاني حاجه الشيت الي هيتنسخ يصب في صفحه المندوب تلقائي بدل مااقعد اربط كل صفحه عميل جديده بصفحه المندوب وخصوصا انا العملاء عندي كتير والغرض من ربط صفحه العميل بصفحه المندوب هي اني عاوز اعرف اجماي مبيهات المندوب من كل صنف علشان اعرف احاسب كل اخر شهر والملف المرفق يوضح الرؤيه اكثر وشكراا للاهتمام استذنا الفاضل ..............................................