أ / محمد صالح

يمكنك استعمال هذا الكود في حدث عند التغيير في شيت سعد ولمن لا يعرف كيفية إضافة الكود في أحداث الصفحة كلك يمين على اسم الشيت ونختار 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 بالتوفيق

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

عليكم السلام يمكنك استعمال هذه المعادلة في الخلية D8 =IF(OR($B8="",$C8=""),"",IF(D7="",C7,D7)) مع نسخ المعادلة لأسفل ويمكن استعمال هذه في E8 =IF(OR($B8="",$C8=""),"",IF(E7="",C6,E7)) بالتوفيق

حماية ورقة العمل في وندرايف اكسل اونلاين هي نفسها في اكسل سطح المكتب حدد جميع الخلايا ومن تنسيق الخلايا تبويب حماية و اختر مؤمن مخفي واجعل الخلية التي تريد عدم حمايتها العكس ثم من تبويب مراجعة حماية ورقة العمل واكتب كلمة المرور ويفضل التنفيذ من خلال اكسل سطح المكتب بالتوفيق

هذا الكود لوضع معادلات في الأعمدة K:N يمكنك وضع علامة التعليق قبل السطر التالي ليصبح هكذا ' .Value = .Value ثم قم بتشغيل الاجراء بالضغط على f5 ستحصل على المعادلة العادية في الخلايا من k11 إلى n11 وما بعدها بالتوفيق

لا يوجد مشكلة في نسخة الاكسل تنسيق التاريخ يتم تنظيمه من خلال: * تنسيق الخلايا في اكسل إلى date وتختار التنسيق المناسب * تنسيق التاريخ في المنطقة المختارة في لوحة التحكم control panel في الويندوز بالتوفيق

آمين ولك مثل ما دعوت

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

إذا استخدمت البحث كنت ستجد الكثير منها هذه المواضيع https://www.officena.net/ib/search/?&q=حماية الشيتات&type=forums_topic&quick=1&nodes=135&search_and_or=and&sortby=relevancy بالتوفيق

يوجد رموز غير مطبوعة نتيجة اختلاف نظام التشغيل في الأجهزة المستخدمة في تصدير هذه البيانات واستيرادها لحذف هذه الرموز نستعمل هذه المعادلة =SUBSTITUTE(SUBSTITUTE(A1,CHAR(13),""),CHAR(10),"") بالتوفيق

هذا شيء مطلوب نتيجة استعمال trim وإذا أردت حسابها ضمن الفراغات أزل trim من معادلة الفراغات فقط بالتوفيق

جميعا بفضل ربي يبدو أن حضرتك لم تلاحظ هذا السطر For r = 3 To Sheet1.Cells(Rows.Count, 1).End(3).Row الكود يقرأمن الصف 3 إلى آخر صف مكتوب فيه في العمود A في شيت بيانات الموظفين sheet1 يعني سيتم التنفيذ على أي عدد صفوف مكتوب في شيت بيانات الموظفين بالتوفيق

أعتقد انك يمكنك استيراد شيت اكسل وانت في الأكسس

جميعا بإذن الله نفس الكود السابق لي مع تغيير سطر export إلى سطر printout من الإجراء الثاني وإذا كنت تريد تنفيذ الأمرين بضغطة واحدة أضف سطر printout قبل أو بعد سطر export بالتوفيق