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

السلام عليكم ورحمه الله وبركاته

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

السلام عليكم ورحمه الله وبركاته

اريد عمل فلتره بثلاثه شروط بين عمودالتاريخ وعمود الفرع المرسل اليه وعمود توضيح    (مرفق الملف للتوضيح)

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

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

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