أبومروان

السلام عليكم ورحمه الله وبركاته برجاء استاذ @sof17 كتابه شرح لما هو مطلوب كما ذكر استاذنا @حسونة حسين راجع الموضوع ادناه قد يفيدك

استاذي @Mohamed Hicham لم اجرب الكود لاني شغال من الهاتف المحمول اعذرني لو فيه خطأ

اسمح لي استاذ @Mohamed Hicham بالمشاركة مع حضرتك Sub SSheet() Dim ws As Worksheet, Data As Worksheet, ShName As String Dim LR As Long, ER As Long, x As Integer Set Data = Sheets("المدخلات") ShName = Data.Range("C2").Text ER = Data.Range("B" & LR).End(xlUp).Row If Not IsEmpty(Data.Range("B10:B20")) Then For x = 10 To ER If Data.Range("B" & x).Value = ShName Then Set ws = Sheets(Data.Range("C" & x).Value) '...rest of code End If Next x End If End Sub

ممكن تستخدم if إذا كان النطاق فارغ يقوم الخروج من الsub كالاتي if sheet1.range("b10:b20"). value then Exide sub end if

السلام عليكم ورحمه الله وبركاته بارك الله فيك وجزاك الله خيرا 🌹 مازال في جُعْبَتِهِ الكثير والكثير

السلام عليكم ورحمه الله وبركاته عمل اكثر من رائع 🌹 وبارك الله فيك وجزاك الله خيرا 🌹 لم اكن اعلم بان مثل هذه الأداة موجود من ذي قبل .

السلام عليكم ورحمه الله وبركاته ممكن تراجع هذا الموضوع أدناه ⬇️ قد يفيدك

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

الله ينور ي استاذ @lionheart كود أكثر من رائع 🌹

ممكن تراجع الموضوع أدناه ⬇️ https://www.officena.net/ib/topic/29848-حذف-الصفوف-و-الاعمدة-الغير-مستخدمة/

السلام عليكم ورحمه الله وبركاته دا كود انشاء صفحات اكسل بناء علي الاسماء الموجوده من الخلايا a1:a200 Sub CreateSheets() Dim sheetName As String Dim currentCell As Range For Each currentCell In Range("A1:A200") sheetName = currentCell.Value Sheets.Add.Name = sheetName Next End Sub

السلام عليكم ورحمه الله وبركاته جرب هذا الكود وعدل عليه Sub HideColumnsByValue() Dim c As Range For Each c In Range("A:Z") If c.Value = "value" Then c.EntireColumn.Hidden = True End If Next c End Sub

السلام عليكم ورحمه الله وبركاته جرب الاتي 1. اذهب الى Start ثم Settings 2 . اختر Control Panel 3. Regional And Language Options 4. من تبويب Advanced في خانة الاختيار اختر اللغة العربية 5. ثم OK إذا كانت المشكلة اللغه في محرر الاكواد من مجرر الأكواد Tools Options Editor Format و اختار اي خط عربي

السلام عليم ورحمه الله وبركاته استاذ @أبو إيمان ارجوا ان تسمح لمشاركتكم بالجواب كود للظهار Private Sub CommandButton1_Click() ActiveWorkbook.Application.DisplayFullScreen = False ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = True ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = True ActiveWorkbook.Application.CommandBars("STANDARD").Visible = True ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = True ActiveWorkbook.Application.DisplayStatusBar = True ActiveWorkbook.Application.DisplayFormulaBar = True End Sub كود للاخفاء Private Sub CommandButton2_Click() ActiveWorkbook.Application.DisplayFullScreen = True ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = False ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = False ActiveWorkbook.Application.CommandBars("STANDARD").Visible = False ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = False ActiveWorkbook.Application.DisplayStatusBar = False ActiveWorkbook.Application.DisplayFormulaBar = False End Sub قد اخذت هذه الاكواد من المضوع ادناه وهذا للافاده والاكواد مرفقه في المرفق New Folder.rar

وعليكم السلام ورحمه الله وبركاته راجع المرفق تم عمل المطلوب ان شاء الله بحث.xls

ممكن تنسخ الكود من زر البحث وضعه في حدث التغير change في textbox التكست بوكس

شوف الموضوع ادناه لعله يقيد حضرتك

السلام عليكم ورحمه الله اتفضل هذا الشيت تحويل المعادله الي كود بطريقه بسيطه وهي تسجيل الماكرو ارجو ان يكون المطلوب ولا يوجد فورم في شيت للعمل عليه في الطلب الثاني ارجو ان يكون الطلوب تحويل معادلة إلى كود.xlsm

راجع الموضوع أدناه ⬇️ لعله يفيدك

السلام عليكم ورحمه الله وبركاته جرب هذا الكود يقوم بحذف الخلايا الفارغه لعله يفيدك Sub DeleteRows() Dim LastRow As Long Dim i As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = LastRow To 1 Step -1 If Cells(i, 1) = "" Then Rows(i).Delete End If Next End Sub

وعليكم السلام ورحمه الله وبركاته اقرا الموضوع أدناه ⬇️لعله تجد ما تريده

جزاك الله خيرا 🌹 وبارك فيك ممكن شرح الاكواد المرفقة في السلسلة

جزاك الله خيرا

لعرض المزيد من البيانات على الشاشة، يمكنك التبديل مؤقتا إلى طريقة عرض ملء الشاشة. تخفي طريقة عرض ملء الشاشة شريط واجهة مستخدم Microsoft Office Fluentشريط الصيغة وشريط المعلومات. للوصول إلى العناصر المخفية مرة أخرى، يجب عليك العودة إلى طريقة عرض الشاشة العادية. للتبديل إلى طريقة عرض ملء الشاشة، اضغط على CTRL+SHIFT+F1. للعودة إلى طريقة عرض الشاشة العادية، اضغط على CTRL+SHIFT+F1 مرة أخرى. https://support.microsoft.com/ar-sa/office/التبديل-إلى-طريقة-عرض-ملء-الشاشة-أو-عرضها-العادي-في-excel-cbf43625-3fbc-48ca-9ed7-1fc678f3a0cc

وعليكم السلام ورحمه الله وبركاته جرب هذه المعادله =COUNTIFS('اجر وظيفي '!$C$4:$C$100, 'الاعداد '!$B$4:$C$4, 'اجر وظيفي '!$E$4:$E$100, B5)