أ / محمد صالح

الكود يعمل 100% على اعتبار أن صفوف الفاتورة أكثر من صف (صفين أو أكثر) ويوجد ملاحظة أخرى يبدو أنك لم تلاحظها: وهي أن الكود يقوم بمسح محتويات الفاتورة كلها بما فيها المعادلة الموجودة في عمود (الإجمالي) لذا ينبغي تعديل الكود إلى ما يلي: Sub tarheel() Sheets("فاتوره").Range("b7:m" & Range("d6").End(xlDown).Row).Copy Sheets(Sheets("فاتوره").Range("k1").Value).Range("b" & Sheets(Sheets("فاتوره").Range("k1").Value).Range("b10000").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues Sheets(Sheets("فاتوره").Range("k1").Value).Select Range("b" & Range("b10000").End(xlUp).Row + 1).Select Sheets("فاتوره").Range("d7:i" & Range("d6").End(xlDown).Row & ", k7:m" & Range("d6").End(xlDown).Row).ClearContents Sheets("فاتوره").Select Sheets("فاتوره").Range("d7").Select End Sub ما تم تعديله: الرقم 7 إلى 6 وتعديل كود مسح المحتويات ليترك العمود J بدون حذف

بسم الله الرحمن الرحيم كل عام وجميع من يزور منتدانا الغالي بخير ورمضان كريم ............. تفضل أخي الكريم تم تعديل ملفك حتى يكون عدد الأعمدة متساويا في كل الصفحات والترحيل وحذف بيانات الفاتورة mas_دفتر حسابات 2016.rar

بارك الله لك وتقبل الله منا ومنكم صالح الأعمال

ما شاء الله بارك الله لك أخي علي الشيخ وكل عام أنت والأمة الإسلامية بكل خير بمناسبة شهر رمضان

تفضل أخي الكريم ضع هذه المعادلة في الخلية 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 لعرض معلومات عن المرجع جزاك الله كل خير