نجوم المشاركات

الملف مرفق رقم الصفوف لكلمة salim.xlsm

السلام عليكم هل تريد انشاء لائحة باسماء الزبائن مرتبة حسب قيمة مجموع الديون على كل شخص(ترتتيب تنازلي) ؟ (اسماء الزيائن يمكن ان تكون مكررة اكثر من مرة و كذلك قيمة الديون) اكسل يفعلها بواسطة المعادلات Name_list by Sum.xlsx

مشكوووور اخى الحبيب وفعلا تمت حل المشكلة بارك الله فى هذا المنتدى الجميل وفى اعضائه الافاضل وشكر خاص لاخى سليم حاصبيا على حله الجميل انا اللى مكنت واخد بالى بارك الله فيكم

أخى معادلة أستاذنا سليم تعمل بكل بكفاءة لعلك غفلت أو نسيت أن تضغط على Ctrl+Shift+Enter فهى معادلة مصفوفة ولكم جزيل الشكر

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

هذه المعادلة مع ( Ctl+Shift+Enter و ليس Enter وجدها) ,واسحب نزولاً =IF(ROWS($A$1:A1)>COUNTIF($B$3:$B$50,$C$2),"",SMALL(IF($B$3:$B$50<>"",IF($B$3:$B$50=$C$2,ROW($B$3:$B$50)-ROW($B$3)+3)),ROWS($A$1:A1)))

وعليكم السلام لقد تم الحل من قبل استاذنا الكبير ياسر خليل فورمة بحث في الشيتات - اظهار المراحل لاختصار طبع الفاتورة.xlsm

وعليكم السلام تفضل نقوم بأنشاء مربع نص n2 ونربطه بالجدول (العائد بعد الاستثمار) ونسمي الاخر n2 وفي حدث عند الخروج للنموذج الفرعي PersonnelSUB نكتب الكد( Me.n2 = Me.n1) الرصيد المتبقي.rar

تفضل أخى كارتة الصنف المعدلة.xlsm

انا حملت البؤنامج وان شاء الله بعد التجريب يكون الرد اجكل واحسن وموفق

من الأفضل تناول نقطة نقطة لأني لا أملك الوقت الآن للعمل على كل النقاط مرة واحدة .. والأفضل إرفاق ملف معبر عن المطلوب كما أخبرتك من قبل الآن تغيرت هيكلة الملف ويوجد تفاصيل جديدة غير موجودة في الملف الأول سأجيبك على نقطة واحدة فقط ألا وهي الصفوف المخفية .. قم باستبدال كلمة rg في السطر التالي rg.EntireRow.Hidden = False بهذه الكلمة ws.Range("A5:F26") كما يفضل أن يكون لكل طلب موضوع مستقل لتجد استجابة أفضل من الأعضاء بالمنتدى تقبل تحياتي

السلام عليكم جرب الكود التالي عله يفي بالغرض .. في ورقة العمل المسماة recycle اجعل عنوان أول فاتورة موجودة في الصف رقم 3 عند التعامل مع ورقة العمل invoice تأكد أن كلمة السر مفعلة .. ولكن قبل ذلك يجب أن تقوم بتغيير خصائص خلايا الإدخال (التاريخ وعمود الكميات) ، وذلك عن طريق تحديد الخلايا ثم كليك يمين ثم Format Cells ثم التبويب Protection وأزل علامة الصح بجانب الخيار Locked .. بحيث تتمكن من عملية الإدخال والورقة محمية الآن بعد ضبط أوراق العمل جرب الكود التالي Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim rg As Range Application.ScreenUpdating = False Set ws = Sheets("invoice") Set sh = Sheets("recycle") Set rg = ws.Range("A5:F26").SpecialCells(xlCellTypeVisible) ws.Protect Password:="11", AllowFormattingRows:=True, UserInterfaceOnly:=True, Contents:=True, Scenarios:=True, DrawingObjects:=False If IsEmpty(ws.Range("D7")) Or Application.WorksheetFunction.CountA(ws.Range("D10:D25").SpecialCells(xlCellTypeVisible)) = 0 Then MsgBox "No Data", vbCritical: Exit Sub sh.Rows(3).Resize(rg.Rows.Count + 3).Insert Shift:=xlDown rg.Copy: sh.Range("A3").PasteSpecial xlPasteValues rg.Copy: sh.Range("A3").PasteSpecial xlPasteFormats sh.Range("A7").CurrentRegion.Interior.Color = xlNone ws.Range("D7").ClearContents ws.Range("D10:D25").SpecialCells(xlCellTypeVisible).ClearContents ws.Range("D5").Value = ws.Range("D5").Value + 1 rg.EntireRow.Hidden = False Application.Goto ws.Range("A26") Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub إذا أدى الكود الغرض لا تنسى الإعجاب وتحديد أفضل إجابة ليظهر الموضوع منتهي تقبل تحياتي