ياسر خليل أبو البراء

أخي مزيد من التوضيح من فضلك .. في إحدى الورقتين لا توجد كلمة الصندوق أو البنك !! اشرح بشيء من التفصيل إذا أمكن لتجد المساعدة

بفرض أن المبلغ في الخلية A1 جرب هذه المعادلة .. =SUMPRODUCT((A1>{0;30000;40000;50000})*(A1-{0;30000;40000;50000})*{0;5;1;1}%)

عموما اطلع على هذا الملف عله يفيدك البحث عن القيم المتعددة بدون تكرار.rar

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

الملف المرفق لا يحتوي على أي دوال يرجى إرفاق الدالة VLOOK2ALL

أخي الحبيب رفيع سعد في الملف المرفق ...هل لا حظت أني تخلصت من كل النطاقات المسماة واستبدلتها بنطاق واحد مسمى فقط .. راجع Formulas >> Name Manager كما راجع Data >> Data Validation ....... يكفيني منك دعوة بظهر الغيب ..بس يا ريت الدعوة متتوفرش ومتتأجلش (خير الدعوة عاجلها !! مش كدا ولا ايه) حاجة تانية ابقى علم عليها أفضل إجابة (ههههههه) *--------------------------------------------* الحمد لله الذي بنعمته تتم الصالحات

بدل شكرا قول جزاكم الله خيراً (أنا بفضلها ..إذا مكانش فيها تعب عليك) نقطة أخرى اضغط على المشاركة اللي أعجبتك كأفضل جابة تسهيلا للباحث فيما بعد للوصول بسرعة إلى أفضل الحلول ، وعشان آخد منك نقطة هههه تقبل تحياتي

عشان حضرتك توفر تمن النضارة اتفضل الملف التالي وإن شاء الله يفي بالغرض بس متنساش اللي توفره من تمن النضارات تحطه في حسابي Auto Completer Data Validation New.rar

جرب هذا الكود زر الأمر على فورم Private Sub UserForm_Activate() CommandButton1.Caption = "انتقل" & vbNewLine & "للصفحة" & vbNewLine & "الرئيسية" End Sub أما إذا كان زر الأمر مرسوم على ورقة العمل فيكفي بعد كل كلمة أن تضغط إنتر من لوحة المفاتيح أو إذا كان زر الأمر على فورم وتريد عمل ذلك بشكل يدوي قم بالنقر مرة واحدة فقط على زر الأمر ثم انتظر برهة ثم انقر مرة أخرى ستجد أن المؤشر جاهز للكتابة اكتب كلمة "انتقل" ثم اضغط Shift + Enter ثم اكتب الكلمة الثانية "للصفحة" ثم اضغط Shift + Enter ثم اكتب الكلمة الأخيرة "الرئيسية"

فكرة جميلة يا أخ رفيع الملف جميل ..إنت عايز تعدل عليه ؟؟!! ولا هو دا اللي إنت وصلت له أعتقد انه كدا الملف مريح في عملية البحث بالنسبة لك

كما يمكنك تطوير الكود بهذا الشكل ليمكنك من إنشاء الكثير من المجلدات دفعة واحدة حسب القيم في النطاق A1:A5 بهذا الشكل Sub CreateFolder() Dim sPath As String Dim I As Long sPath = GetFolder For I = 1 To 5 If Len(sPath) <> 0 Then If Dir(sPath & "\" & Cells(I, 1).Value, vbDirectory) = vbNullString Then MkDir sPath & "\" & Cells(I, 1).Value End If End If Next I End Sub Function GetFolder() As String Dim dlg As FileDialog Set dlg = Application.FileDialog(msoFileDialogFolderPicker) dlg.InitialFileName = "C:\" If dlg.Show = -1 Then GetFolder = dlg.SelectedItems(1) End If End Function

أخي الكريم محمد إليك الملف التالي ..بالضغط على زر الأمر ستظهر لك نافذة حوارية تختار منها المسار الذي تريد إنشاء المجلد فيه ، ثم تضغط أوك سيقوم الكود بعمل مجلد باسم بناءً على القيمة الموجودة في الخلية A1 أرجو أن يكون هذا هو المطلوب Create Folder Using File Dialog.rar

أخي الفاضل حبذا لو طرحت موضوع جديد بطلبك حتى تكون الموضوعات منفصلة عموما إليك الطريقة من التبويب Developer قم بالنقر على Insert واختر رابع أيقونة من جهة اليسار واسمها Spin Button (Form Button ثم قم برسمها على ورقة العمل كليك يمين عليها واختر Format Control ثم انقر آخر تبويب في النافذة التي ستظهر لك ، ومنها قم بالإعدادات التي تناسبك .. فمثلا لو ضغطت على السهم الأحمر في الحقل المسمى Cell Link لتحدد الخلية التي سيؤثر فيها الزر ..والحقل minimum value لوضع أقل قيمة للخلية والحقل maximum value لوضع أكبر قيمة يمكن أن تصل إليها الخلية من خلال الضغط على الزر ، وأهم حقل هو incremental change حيث يمكن تحديد الزيادة في كل مرة تنقر فيها على الزر ...لو كتبت مثلا 5 ستزيد قيمة الخلية بمقدار 5 في كل مرة تنقر السهم لأعلى وتنقص 5 في كل مرة تنقر فيها السهم لأسفل أرجو أن تكون قد استفدت

أخي رفيع جرب الملف التالي 77.rar

تفضل =SUM(SUMPRODUCT(($A$1:$A$9)*($B$1:$B$9={"طارق","ياسر","سليم","ناصر","ابراهيم"})*($C$1:$C$9)))

أنا لم أفهم مقصودك أخي رفيع ... أي قائمة حروف تقصد ..هل تقصد الحروف التي في ملفك ؟؟ انسخها لو إنت محتاجها

الأخ الفاضل ياسر إليك تصحيح الكود في المشاركة رقم 6 حيث جربت الكود ولم يعمل يقوم الكود بعمل قائمة بأسماء النطاقات الموجودة داخل المصنف في ورقة عمل جديدة Sub ShowNames() Dim X As Worksheet Set X = Worksheets.Add Dim nm As Name Dim I As Long I = 1 With ActiveSheet For Each nm In ThisWorkbook.Names .Cells(I, 1).Value = nm.Name .Cells(I, 2).Value = nm I = I + 1 Next nm .Range("A1:B1").EntireColumn.AutoFit End With End Sub

تفضل أخي محمود جرب الملف التالي Families Data.rar

لو طبقت الخطوات لكان ذلك أفضل الخطوات مرفقة في الملف في المشاركة الأولى يرجى الإطلاع عليها إليك الملف ..قمت بنسخ البيانات الموجودة في ملفك ووضعتها في ملف وعدلت عليه بما يناسبك Auto Completer Data Validation Sa'd.rar

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

أخي الفاضل محمود الترحيل تم بموجب الكود المرفق . بقي فقط نقطة أخيرة ::: هل تريد حذف الصف بالكامل أم مسح محتوياته فقط والإبقاء على الصف كما هو ...؟؟

أخي الحبيب ياسر يا ريت شرح للأكواد عشان الناس تستفيد .. والأفضل إنك ترفق ملف لكل كود وتشرح الهدف منه وكيفية الاستفادة منه بارك الله فيك

أخي الحبيب ابن مصر ..ممكن تعديل على معلومة بسيطة داخل الفيديو انظر لهذا الكود Sub Test() Dim a1, a2, a3 As Integer a1 = 12.5 a2 = 10.1 a3 = 25.3 MsgBox a1 & Space(5) & a2 & Space(5) & a3 End Sub تم الإعلان داخل سطر واحد عن 3 متغيرات ، ولكن هذا لا يعني أن المتغيرات الثلاثة من نفس النوع والدليل هذا الكود فناتج المتغير a3 يساوي 25 فقط لأننا قمنا بالإعلان عنه من النوع Integer أما المتغيرين a1 و a2 فتم الإعلان عنهم من النوع Variant .. وليس كما ورد بالفيديو أن المتغيرات الثلاثة من نفس النوع ..

الأخ الفاضل عزيز هل تقصد فلترة البيانات إذاً ؟؟ حاول أن تحدد طلبك بشكل أدق إذا أمكن لأن اللفظ يختلف في هذه الحالة !!! جرب الملف التالي Search Within Validation List & Filter.rar

أخي الفاضل لا تكثر من الطلبات فينفر الأخوة من الموضوع ..خليك محدد طلب واحد ولما ينتهي الطلب الأول انتقل لطلب ثاني وهكذا.. إليك الطلب الأول شرح الكود Sub حسب_الاختيار() 'الغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'تعريف المتغير Dim c As Range 'مسح نطاق النتائج Sheet2.Range("b7:d300") = Empty For Each c In Sheet1.Range("chose") 'تساوي كلمة نعم[chose]إذا كانت الخلية داخل النطاق المسمى If c.Value = "نعم" Then 'متغير يحمل قيمة آخر صف به بيانات في ورقة النتائج بالعمود الثاني مضافاً إليها رقم 1 استعداداً لبيان جديد lstrow = Sheet2.Range("b20000").End(xlUp).Row + 1 'يساوي نفس النطاق في ورقة الأساسيين[I]إلى العمود[B]النطاق في ورقة النتائج من العمود Sheet2.Range(Sheet2.Cells(lstrow, "b"), Sheet2.Cells(lstrow, "i")) = _ Sheet1.Range(Sheet1.Cells(c.Row, "b"), Sheet1.Cells(c.Row, "i")).Value 'Sheet2.Cells(lstrow, "a") = Z: 'تحديد ورقة الأساسيين Sheets("الأساسيين").Select '[B7]تحديد الخلية Range("b7").Select End If Next c 'رسالة تفيد بانتهاء عملية الترحيل MsgBox ("تم ترحيل الصفوف المحددة بنجاح"), vbDefaultButton1, " تحياتي أ / محـمـود جـمـعـه " 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub