أ / محمد صالح

تفضل أخي الكريم ضع هذه المعادلة في الخلية I14 =SUM($B14:$H14*TRANSPOSE(B$3:B$9)) ولا تنس أن تضغط CTRL+SHIFT+ENTER لأنها معادلة صفيف وانسخ المعادلة أفقيا ورأسيا

ما هي المشكلة المرفق اللي في المشاركة 4 إزاي حصل اللي فيه ده؟؟؟!!! الطبيعي إن حضرتك جملت الملف المستعمل في المشاركة 4 من المشاركة 3 ولا حضرتك حملته منين بالظبط؟؟!! ...................... الفجوة هنا في المسافة بين تحميلك الملف من المشاركة 3 وتجربتك له وظهور الخطأ معك في جلب البيانات ثم مشاركتك للملف الذي به الخطأ في المشاركة رقم 4 ............ ربنا يهدينا ويهديك لسبب الخطأ ده وأنا متأكد 100% إنه مش في الكود ولا يلزم مراجعة الكود وإنما يلزم مراجعة طريقة استخدام الملف

سبحان الله ما سبب هذه المفاجأة؟؟ إذا حملت الملف المرفق في المشاركة 3 وفتحت الملف ستجد أن الصفحة فارغة ولا يوجد بها غير سطر العنوان والزر وبالضغط على الزر يقوم بجلب البيانات 100% وهذا فيديو يوضح ما يحدث معي فيا ريت تسجل لنا اللي بيحصل معاك ..................... ويا ريت حد من الأعضاء الموقرين يجرب يتعامل مع الملف الموجود في المشاركة 3 بطريقة صحيحة ويوقول لنا هل تم جلب البيانات بطريقة صحيحة ولا هيتفاجئ بحاجات تانية ؟؟؟!!

الكود نفسه يقوم بمسح المحتويات أولا ثم جلب البيانات ثانيا (على نضيف يعني) فلا نحتاج لمسح المحتويات بأنفسنا Range("a2:e" & Range("a1000").End(xlUp).Row + 1).ClearContents وبتجربته مئات المرات لا يوجد مشكلة ولا يعطي الشكل الذي أرفقه الأخ الكريم في المشاركة رقم #4 ولا أدري ما السبب الذي جعل الأخ الكريم يطلب مراجعة الكود (وكأن الكود به خطأ) وأسلوبي الشخصي في الأكواد أن أهتم بالاختصار وما يمكن عمله بسطر واحد لا يجب كتابته في سطرين حيث يستهلك ذلك امكانيات الجهاز .................... وأعتقد ليس من أسلوب الحوار الراقي أن يطلب السائل المراجعة والإفادة وأقوم بالمراجعة والإفادة ولا يقوم هو بالرد

الأخ الكريم أستاذ محمد صالح أشكر حضرتك لاهتمامك الكبير وشكرا على المجهود الفائق للوصول لهذه النتيجة ولكن النتيجة بعد أن تم العمل على الشيت وبعد الضغط على زر جلب البيانات كانت النتائج غير منسقة ولا أدري ما السبب في ذلك ومرفق شكل الشيت بعد أن تم العمل عليه برجاء المراجعة والإفادة وجزاك الله عنا خيرا هل توصلت للسبب الذي جعل نتائج جلب البيانات ليست كما يجب عندك؟؟ حيث أن الكود يجلب البيانات بصورة صحيحة 100% عندي للعلم : بعد مسح جميع محتويات ملفك السابقة والضغط على الزر تم جلب البيانات بصورة صحيحة 100% برجاء مراجعة ما تم عمله من جانبكم حتى يخرج الشكل على غير المطلوب برجاء التكرم بالرد إن أمكن!!! لمعرفة سبب الخطأ الموجود في ملفك

الأخ الكريم أستاذ محمد صالح أشكر حضرتك لاهتمامك الكبير وشكرا على المجهود الفائق للوصول لهذه النتيجة ولكن النتيجة بعد أن تم العمل على الشيت وبعد الضغط على زر جلب البيانات كانت النتائج غير منسقة ولا أدري ما السبب في ذلك ومرفق شكل الشيت بعد أن تم العمل عليه برجاء المراجعة والإفادة وجزاك الله عنا خيرا هل توصلت للسبب الذي جعل نتائج جلب البيانات ليست كما يجب عندك؟؟ حيث أن الكود يجلب البيانات بصورة صحيحة 100% عندي للعلم : بعد مسح جميع محتويات ملفك السابقة والضغط على الزر تم جلب البيانات بصورة صحيحة 100% برجاء مراجعة ما تم عمله من جانبكم حتى يخرج الشكل على غير المطلوب

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

تفضل أخي الكريم أتمنى أن يكون هذا هو المطلوب تم عمله بالكود مع ملاحظة عدم ترك بيانات فارغة في صفحة الإدخال كما هو موجود في الملف حيث يوجد الفرع والحركة والأصناف ولا يوجد التاريخ والكود يجلب البيانات الكاملة وكل عام أنتم جميعا بكل خير mas_Recipe YasserKhalil.rar

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

أتمنى أن يكون هذا هو المطلوب للعلم يجب تغيير الخلية B3 إلى تاريخ حتى يتم المطلوب وإلا سينتج أرقام عشرية mas_حساب الايام مابين تاريخيين.rar

أي توضيح أكثر الذي تقصده أخي الكريم؟؟!! خلينا واحدة بواحدة * في الخلية L3 مكتوب (من هذا الصف يحتسب 21 يوم فقط ابتداء من 02/02/2011) هل معنى هذا أنك تريد معرفة التاريخ الذي يأتي بعد 2/2/2011 بواحد وعشرين ويوم وهو 23/2/2011 أم ماذا؟؟!! * ما المقصود بالمهمة المذكورة في K9 ؟؟!! * في الخلية L11 ما التاريخان المقصودان؟ وأين النطاق الذي تريد عدم احتساب تواريخه؟؟!! ما معنى الأرقام التي مجموعها 300؟؟!! وعلى أي اساس هي الصواب بدلا من 354؟؟ ................... أين تريد وضع المعادلة المطلوبة؟ وماذا تريدها أن تفعل بالتفصيل الممل؟؟!!

يمكنك تغيير السطر التاسع إلى WS.Cells(iRow, 1).Value = CDate(Me.TextBox1.Value)

كل عام وانت طيب يا ابا البراء ولإثراء الموضوع وهذه صورة مجمعة للخطوات كل عام أنتم جميعا بخير

جزاك الله خيرا أخي الكريم وكل عام وجميع زوار وأعضاء ومشرفي أوفيسنا بكل خير ولكن ماذا لو أردنا تشغيل الفيديو بمجرد فتح النموذج؟؟ وهل كل الأجهزة لديها مشغل الفلاش؟؟

الأخ الكريم لو دققنا النظر في المعادلة سنجد أنها تقوم بجلب الصف الذي يحتوي على أكبر قيمة في المدى في العمود H العمود الحالي وتقوم بتحويله إلى عنوان وليس رتبة من خلال الدالة address وإذا تغير مكان الخلية التي تحتوي على المعادلة ينبغي تغيير column إلى column+1 أو أي رقم آخر .................. على العموم هذا ما طلبته في ملفك المرفق وعليك أن تستخدم الطريقة في الوصول لما تريد وإن لم تستطع فحدد مطلوبك تماما وستجد بإذن الله ما يسرك

ما شاء الله رائع أخي محمد ويا حبذا لو تم جمع الأرقام بقيمها يعني 125+125+123=373 أنا عملتها بس بالكود لو أمكن بالمعادلات تبقى فلة ومرجع لكل الأحباب

تفضل أخي الكريم عنوان أكبر قيمة =ADDRESS(MATCH(MAX(H1:H31),H1:H31,0),COLUMN()) وأصغر قيمة =ADDRESS(MATCH(MIN(H1:H31),H1:H31,0),COLUMN())

سعيد بتواصلك أخي الكريم هل ترميز الموقع UTF-8 الترميز العالمي الموحد أم ترميزه للعربي WINDOWS-1256 ؟ تأكد من هذه المعلومة أولا وبعدها يمكن تغيير ترميز النصوص في الملف إلى ما يوافق الموقع

يا ريت مزيد من التوضيح أين ترفع هذا الملف؟ وهل الرسالة عندالرفع أم داخل الملف؟ .............. عموما جرب تعديل اسم الملف باللغة الإنجليزية وليس تعديل محتويات الملف

نفس المعادلة تفي بالغرض حيث يتعامل اكسل مع التاريخ والوقت كأرقام

ما شاء الله بارك الله لك أخي ياسر توظيف رائع لماكرو get.cell لعرض معلومات عن المرجع جزاك الله كل خير

رغم إني مش فاهم بس ممكن يكون ده المطلوب ترتيب حسب مجموعة عبارات وتاريخ.rar

يا ريت توضح أكتر لو كان قصدك تعملها بالكود يمكنك استعمال هذا الماكرو Sub Macro1() ' ' Macro1 Macro ' ' Range("G2").Select ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("G1:G150"), _ SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "الاقامة منتهية,الاقامة انتهت اليوم,الاقامة قاربت على الانتهاء", DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("F1:F150"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("1").Sort .SetRange Range("C1:G150") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("G1").Select End Sub ولا تنس حفظ الملف بصيغة تدعم الماكرو xlsm xlsb

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

أي كود؟؟!! هذه معادلة تقوم بالمطلوب الذي تريده توضع في الخلية G2 أو أي خلية في الصف الثاني وتعتمد في حسابها على العمود F ولم يتم التطرق للكود نهائيا