أ / محمد صالح

الكود يقوم بترتيب النطاق المسمى sheet حسب العمود E تصاعدي ثم العمود F تصاعدي ما المطلوب ؟

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

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

جميعا بإذن الله تعالى

جميعا بإذن الله

بعض الناس تريد أن تتعلم وبعضهم للأسف يريد الحل جاهزا تم عمل المطلوب بالمرفق بالتوفيق ‏‏برنامج تقييم الزيارات عن بعد للوحدات مكرر - نسخة.xlsb

ينغي فك الدمج في جميع الخلابا المدمجة قبل استعمال الفرز أو الترتيب بعد فك الدمج في الأعمدة وتحديد أول صف قبل البيانات والضغط على زر التصفية filter في تبويب بيانات data (رمز القمع) سيتحقق المطلوب بإذن الله

جميعا بإذن الله

إذا ساعدك أحدهم في تنفيذ كل هذا فماذا أبقيت لنفسك حتى تطبق ما تعلمته أخي الكريم ؟؟؟ إذا استخدمت البحث ستجد الكثير من الموضوعات التي تفيدك في تنفيذ برنامجك وهذه بعضها https://www.officena.net/ib/search/?q=فورم بحث تعديل حذف&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and&search_in=titles عليك بالبدء في تنفيذ برنامجك وإذا وقفت في نقطة أو اثنتين يمكن عرضها في موضوع جديد بالتوفيق

هذه معادلة البحث بشرطين باستخدام index match إن شاء اللّه تكون المطلوب بالتوفيق اظهار الاستقطاع على اساس الرقم التعريفي ورقم المستند.xlsx

الشكر لله الذي وفقنا جميعا للخير

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

يمكنك استعمال هذا الكود في حدث عند التغيير في شيت سعد ولمن لا يعرف كيفية إضافة الكود في أحداث الصفحة كلك يمين على اسم الشيت ونختار view code بالعربي عرض التعليمات البرمجية ثم نلصق الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$5" Then Sheet24.Range("b10:i1000").ClearContents For r = 3 To Sheet14.Cells(Rows.Count, 2).End(3).Row If Sheet14.Range("n" & r) = Target Then lr = Sheet24.Cells(Rows.Count, 2).End(3).Row + 1 cols = Array(3, 2, 9, 10, 11, 5, 14, 15) For n = 2 To 9 Sheet24.Cells(lr, n) = Sheet14.Cells(r, cols(n - 2)) Next n: End If: Next r MsgBox "Done by mr-mas.com" End If End Sub بالتوفيق

الشكر لله الذي وفقنا

🙄🤔 بالتوفيق

شكرا لكلماتك الطيبة

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

إذا كنت تقصد كود زر الإضافة لا يتم الترحيل إلى. B2 وإنما إلى B50 وذلك بسبب قراءتك لآخر صف في sheet2 باسمها الكودي والتي تشير إلى شيت final والصواب Last = ورقة3.Range("B304").End(xlUp).Row + 1 بالتوفيق

الشكر لله الذي وفقنا

جميعا بإذن الله

لا يمكن حسابها بمعادلة في مكانها سينتج خطأ المرجع الدائري يمكنك استعمال هذه المعادلة في العمود BK مثلا =BF9-FLOOR(BF9,0.05) مع نسخ المعادلة لأسفل وقبل الطباعة يتم نسخ بيانات هذا العمود ( ctrl+c ) ولصقها في المكان المطلوب كقيم (كلك يمين ثم نختار الزر المكتوب عليه 123 ) بالتوفيق

يبدو أن حضرتك ما قرأت هذا السطر يعني بعد تنفيذ الإجراء نذهب إلى الخلية K11 ستجد بها المعادلة بصورتها الطبيعية المعروفة التي يمكن فهما بصورة عادية أرجو أن يكون الأمر اتضح وتم تفسير الغموض وإذا كنت تريد قراءتها بالصورة العادية في الكود يمكنك تغيير سطر المعادلة .FormulaR1C1 بهذا السطر .Formula = "=IF(COUNT($J11:J11)=0,IF(IF(AND(IF(K$2="""",TRUE,$C11=K$2),IF(K$3="""",TRUE,$D11=K$3),IF(K$4="""",TRUE,$E11=K$4),IF(K$5="""",TRUE,$F11=K$5),IF(K$6="""",TRUE,$G11=K$6),IF(K$7="""",TRUE,$H11=K$7)),COUNT(K$10:K10)+1,"""")>K$9,"""",IF(AND(IF(K$2="""",TRUE,$C11=K$2),IF(K$3="""",TRUE,$D11=K$3),IF(K$4="""",TRUE,$E11=K$4),IF(K$5="""",TRUE,$F11=K$5),IF(K$6="""",TRUE,$G11=K$6),IF(K$7="""",TRUE,$H11=K$7)),COUNT(K$10:K10)+1,"""")),"""")" وهي نفسها المعادلة الموجودة في K11 بالتوفيق

هل تقصد نسخ البيانات من الشيتات المحددة إلى شيت مجمع شيتات؟ وإذا كان هذا هو المقصود فيمكنك استعمال هذا الكود Sub getdata2() Sheet1.Range("a3:o" & Sheet1.Cells(Rows.Count, 2).End(3).Row + 2).ClearContents mysh = Array("1", "2", "3", "4", "هناء", "مني") For Each n In mysh lr = Sheets(n).Cells(Rows.Count, 2).End(3).Row If lr > 2 Then lr2 = Sheet1.Cells(Rows.Count, 2).End(3).Row + 1 lr2 = IIf(lr2 < 3, 3, lr2) Sheet1.Range("b" & lr2 & ":o" & lr2 + lr - 3).Value = Sheets(n).Range("b3:o" & lr).Value End If: Next n Sheet1.Range("A3").Value = 1 Sheet1.Range("A3").AutoFill Destination:=Range("A3:A" & lr2 + lr - 3), Type:=xlFillSeries Sheet1.Range("A3").Select MsgBox "Done by mr-mas.com" End Sub الكود يقوم بنسخ بيانات الشيتات الموجودة في المصفوفة إلى شيت مجمع شيتات ويقوم بوضع مسلسل للكل مع ضرورة تنسيق الأعمدة حسب نوع البيانات التي ستكون فيها مثل التواريخ والأرقام الكبيرة والنصوص بالتوفيق

يمكنك استعمال هذا الكود Sub MoveData22() lr = Sheets("بيانات الموظفين").Cells(Rows.Count, 2).End(3).Row For n = 3 To lr - 1 Sheets("الإحصائية").Cells(n, Sheets("جدول الإجازات").Range("C5") + 4) = Sheets("جدول الإجازات").Range("AN" & n + 6) Next n Range("E9:AI" & lr + 5).ClearContents End Sub مع ملاحظة lr هو رقم آخر صف مكتوب فيه في شيت بيانات الموظفين ورقم العمود في شيت الاحصائية هو نفس رقم الشهر + 4 بالتوفيق

جميعا بإذن الله