محمود أبوالدهب

حتى في دى غلط يظهر انى زهقتك كتير على العموم انا وقفت عملها والكود ظبط معايا وشكرا على ردكم المشرف

يااااااااااااااااه كل ده زعل منى والله ظننت انى قد شرحت بالصتفاضه ولكنى يجب ان اشرح بالتفصيل الممل ولكل لهذا كل اسفي ثانيا انا والله بتعلم منكم اساتذتى ودائما ما يكون الاستاذ طوي البال على تلاميذه لاصال المعلومه لديهم ثالثا بالفعل قرئت موضوع قديم لك كنت عن الامر ولكن لم يظبط الامر معي ولكن لما غير CommandButton الى ليبل ظبط الامر معي فقلت اطرح الموضوع مع العلم انى نفذت ما شرحته لى الان بالضبط ولما ظبط في اليبل غيرت الازرار الى ليبل رابعا كم يشرفنى ان اكون في قائمة الاصدقاء لديك ي بالله عليك كنت طويل البال علي

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

تم التعديل على الموضوع بموضوع جديد بسبب التوصل لجزء من الحل الموضوع الجديد هنا

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

رغم قدم المشاركة وكانت سؤال لك وقد وصلت للحل لكنى احتجتها الان وتعلمت منك شكرا لك اخى خالد ووفقق الله يعمل جيدا ولكن هناك خطأ فى جملة vbyesonly ارجوا من الاخوه الاعضاء تعليل ما السبب في الخطا وشكرا للجميع

شكرا استاذ سليم بس ممكن شرح للكود لى لكى اتعلم من سيادتكم وحتى تزيد المعرفة ايضا

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

اشكرك جزيلا استاذنا ومعلمنا الفاضل ياسر فدائما تكون لنا عونا ولك جزيل الشكر ملحوظة بسيطة دائما وابدا انا متأكد مما تقوله (للايضاح فقط ) .

عند كتابة الكود بالفورم او التعديل عليه مثلا set a as rangeلو حبيت اعدل a الى mah مثلا يقوم الكود كلما اضفت حرف بمسح حرف هكذا set m as range ثم set ma s range ثم set mah range بمعنى لو كتبه حرف يمسح حرف سق ادخالة اعتقد انها من الاعدادات منين وشكرا لكم

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)" Application.DisplayFormulaBar = True ActiveWindow.DisplayHeadings = True Application.DisplayScrollBars = True Application.DisplayStatusBar = True ActiveWindow.DisplayWorkbookTabs = True deleted_all_for_close 'If Me.Saved = False Then Me.Save Application.ScreenUpdating = True ThisWorkbook.Save End Sub Private Sub Workbook_Open() Application.ScreenUpdating = False Application.Visible = False UserForm1.Show Application.OnTime Now + TimeValue("00:00:00"), "inopen" Application.ScreenUpdating = False program.Select Range("b2").Select 'Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)" 'Application.DisplayFormulaBar = False 'ActiveWindow.DisplayHeadings = False 'Application.DisplayScrollBars = True 'Application.DisplayStatusBar = False 'ActiveWindow.DisplayWorkbookTabs = False 'Application.ScreenUpdating = True End Sub مع العلم اخى انى حاطة تلك لاكواد في الفح والغلق للملف

اشكرك شكرا جزيلا معلمنا الفاضل ولاكن بعد اعطاء الموافقة للمكرور بيظهر فورم للشيت انا حاطة ولما بضغط عليه في دخول للشيت الملف يهنج والاكسيل يقفل مع العلم انى حاطيط الكود بمديول لو هناك شرح لضبط الفروم ارجوا التوضيح اكثر لانى لم افهم جيدا من الشرح وشكرا جزيلا لك مع العلم النسخ الى بالمرفق كلها فعلت فيها المرفق ولم تعمل ايضا مع العلم انى اسخدم اوفس 2016 النسخة 64 بت ممكن تكون منه المشكلة

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

بالملف اربعه فورم نرجوا التوضيح اكثر واايضا تحديد ما هي المشكلة بالضبط

vba ام اكسيل 2017 مش فاهم واحدث اوفس هو 2016 او 360

اشكرك استاذنا العزيز مجدى يونس

تكون التسمية كالاتى نحدد مجموعة الخلايا المراد تحديدها كنطاق وليكن كما بالصورة من c3:c7 ثم نذهب لرقم اتنين كما بالصورة والتحديد مازال موجود ولم يتم الغائة ثم نقوم بها بكتابت ما نريد ثم نظغط انتر كمابالصورة الثانية وهذا هو القائمة الجديده او 1- بتحدد الخلايا 2- قائمة صيغ 3- تعريف باسم 4- لاحظ ان الى تم تحديده مكتوب بها وممكن تغير فيه عادى للنطاق الى حبه 5- اكتباسم النطاق 6- تضغط موافق

؟

طيب ممكن تجرب على اوفس 64 بت كدا نشوف ممكن تكون منه

تفضل اخى ملف مرفق 01.rar

ارجوا فقط ان اعرف هل من حل ام الخطأ ليس من الكود وشكرا جزيلا

ارجوا فقط ان اعرف هل من حل ام هذا هو الصحيح وشكرا جزيلا

الشرح للمطلوب بالفديو واختصار انا عامل اخفاء لشريط الادوات ولما بيعمل برنت برفيو بيظهره تانى علشان المستخدم يدخل اعدادات الورقة الى حببها وبعد الطباعه بيخفية تانى بيجيلي شاشة سودة اثناء البرنت برفيو بتروح لما اضغط عى ايقونة اعدادات الطباعة فما هو السبب شرح بالفديو الكود هو Sub print_benood() On Error Resume Next Application.ScreenUpdating = False program.Select 'hiden_ma3ashat_sabqa Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)" program.Range("a16:l42").Select program.PageSetup.PrintArea = "$a$16:$l$42" Application.ScreenUpdating = True ActiveWindow.SelectedSheets.PrintPreview Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",FALSE)" 'unhiden_ma3ashat_sabqa Application.ScreenUpdating = True Range("h41").Select End Sub شكرا للمساعده

قمت ايضابتعديل الكود حتى لا يترك المستخدم بعض الخانات فارغة اثناء الادخال وهو كالتالى Private Sub CommandButton7_Click() Me.ComboBox1.Value = "" Dim ws As Worksheet, x As Integer, C As Range Set ws = Worksheets("ss") x = WorksheetFunction.CountIf(ws.Range("A101:A100000"), CDate(Me.TextBox2.Value)) If x > 0 Then MsgBox "تاريخ العلاوة سبق ادراجه من قبل" Exit Sub End If For Each C In ws.Range("A101:A100000") If CDate(Me.TextBox2.Value) < C.Value Then MsgBox "تاريخ العلاوة اصغر من اخر تاريخ علاوة سبق ادخالة" Exit Sub End If Next C If Me.TextBox2.Value = "" Then MsgBox "برجاء ادخال تاريخ العلاوة" Exit Sub End If If Me.TextBox5.Value = "" Then MsgBox "برجاء ادخال النسبة المئوية" Exit Sub End If If Me.TextBox6.Value = "" Then MsgBox "برجاء ادخال اختصار السنة اساسي" Exit Sub End If If Me.TextBox7.Value = "" Then MsgBox "برجاء ادخال اختصار السنة متغير" Exit Sub End If If CheckBox1.Value = False And CheckBox2.Value = False Then MsgBox "تحسب العلاوة على ماذا" Else iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = CDate(Me.TextBox2.Value) ws.Cells(iRow, 2).Value = Me.TextBox3.Value ws.Cells(iRow, 3).Value = Me.TextBox4.Value ws.Cells(iRow, 4).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value If CheckBox1.Value = True Then ws.Cells(iRow, 5).Value = True If CheckBox1.Value = False Then ws.Cells(iRow, 5).Value = False Exit Sub End If End Sub ولكنى حاسه تقيل اثناء الادخال لكتر المعادلات الى فيه بس بيشتغل تمام فلو هناك اي تعديل فيه اكون شاكرا جدا ولكم جزيل الشكر