عبد الرحمن الحمصي

up pls

تفضل أخي رجب شكرا لمساعدتك قائمة منسدلة مع تصفية.rar

ألف مبروك

لا اعرف لماذا لم يتم رفع الملف عذرا

السلام عليكم أخوتي الأفاضل لدي معادلة لقائمة منسدلة Date Validation وهي جيدة حيث نقوم تلقائيا بإضافة أي بيانات جديدة مدخلة إلى القائمة المنسدلة ( بدون جلب الخلايا الفارغة ) . السؤال هو هل يمكن ادخال تعديل عليها بحيث ( عند وضع حرف ( م ) مثلا يقوم بتصفية كل الأسماء التي تبدء بحرف ( م ) لتسهيل الإختيار و اختصار الوقت في البحث وخصوصا إذا كانت بيانات القائمة كثيرة الكود هو : =OFFSET('Data Entry'!$L$1,0,0,COUNTA('Data Entry'!L:L),1) الملف في المرفقات ولك جزيل الشكر

بارك الله بك أخي رجب وصلت الفكرة أيضا لك كل المودة و التقدير

وصلت الفكرة أخي الحبيب رجب بارك الله بك و أرضاك

أخي رجب شكرا جزيلا أصبح الكود على الشكل التالي : A = 1 Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Select حيث 3 هي العود C ماشاء الله عليك جعلها الله في ميزان حسناتك

أخي الفاضل رجب سأقوم بتجريبها و أعود إليك شكرا على المساعدة الطيبة

Sub H() Range("B" & [B10000].End(xlUp).Row + 1).Select End Sub أخي ابراهيم هل تقصد ب B1000 أنه يمكن تطبيق المعادلة على 10000 صف فقط لإن ورقة العمل عندي أكثر من 20000 صف شكرا

أخي ابراهيم بارك الله بك على هذه المشاركة القيمة و لك كل الشكر و التقدير

شكرا لك أخي رجب ماذا تقصد برقم العمود أرجو التوضيح لإني وضعت مثلا C يقوم بتطبيق الكود على العمود A هل يوجد يوجد خطأ أقوم به ولك جزيل الشكر

السلام عليكم هل يوجد كود خفيف للذهاب إلى أول خليه فارغة في عمود معين Go to first empty cell in a specific column ولكم جزيل الشكر

شكرا لك أخي هشام على هذه الإفادة الرائعة جعلها الله في ميزان حسناتك

شكرا أخي أبو عيد على هذا المجهود الطيب , حاولت تشغيل الملف لم يعمل

أخي ابو عيد شكرا على تفاعلك سوف احاول التعديل بعض الشيء على الملف و ارساله إليك أرجو أن تتفقد هذا الكود الذي وضعه أحد الاخوه في المنتدى هل يمكن استخدامه مع جميع المعادلات : Option Explicit Sub Kh_Formula_To_Value() Dim MyCalcu As XlCalculation With Application MyCalcu = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With '===================================== '////////////////////////////////////// '===================================== ' هنا تضع النطاق والمعادلة التي تريد تحويلها قيم ' Formula_To_Value باستخدام '===================================== ' T هنا المعادلة اللي في العمود Formula_To_Value Range("T5:T30"), "=RC[-2]*RC[-1]" ' x هنا المعادلة اللي في العمود ' مثل عمل كود الاخ كيماس Formula_To_Value Range("X5:X30"), "=IF(COUNTIF(RC16:R30C16,RC16)=1,SUMPRODUCT((R5C16:R1500C16=RC16)*(R5C20:R1500C20)),"""")" ' Y هنا المعادلة اللي في العمود Formula_To_Value Range("Y5:Y30"), "=SUMPRODUCT((R5C16:R1500C16=RC16)*(R5C20:R1500C20))" '===================================== '////////////////////////////////////// '===================================== With Application .ScreenUpdating = True .Calculation = MyCalcu End With End Sub Sub Formula_To_Value(MyRng As Range, MyFormula As Variant) With MyRng .ClearContents .Formula = MyFormula .Cells = .Value End With End Sub

أخي أبو عيد ما هي أفضل طريقة لتحويل المعادلات إلى أكواد ؟

up

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

سؤال مهم فعلا و أنا ابحث عن اجابة وافية لهذا السؤال

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

بسم الله الرحمن الرحيم أخوتي الأفاضل لدي بعض الإستفسارات لأصحاب الخبرة : - ماهي أفضل طريقة لتسريع عمل مصنف اكسل يوجد به معادلات كبيرة و أكثر من عشرين ألاف صف مع استخدام دوال مثل sum ifs و countif و vlookup وغيرها من المعادلات المشابهة - هل عندما نقوم بتحويل المعادلات العادية إلى أكواد VBA يختلف أداء عمل المصنف إلى الأفضل - هل يمكن الاعتماد على اكسل كواجهة للقيام بالحسابات و عرض النتائج لقاعدة بيانات موجودة في ملف اكسس ( هل يمكن الربط بينهما ) . أتمنى من الجميع المشاركة ولكم كل المودة و التقدير

شكرا أخي الكريم لك وللأخ جمال الذي أفادنا بمعادلة سلسة و الاهم أنها تدعم الترقيم المتعدد في عمود واحد Multiple autonumbering in a column شكرا لك على تفاعلك بارك الله بك و جزاك كل الخير

شكرا بارك الله بك

تماما أخي جمال أجريت تعديل بسيط و أصبح على الشكل التالي : =IF(B2<>"","PO"&"-"&COUNTIF($B$2:$B2,$B2),"") لك جزيل الشكر و التقدير يا غالي