نور وحيد قام بنشر يونيو 17, 2015 قام بنشر يونيو 17, 2015 الرجاء المساعدة في عملية الترحيل حسب نوع الفاتورة فان كانت الفاتورة مشتروات روحلت الى فاتورة المشتروات وان كانت الفاتورة مبيعات روحلت الى صفحة المبيعات وان كانت الفاتورة مرتجع روحلت الى صفحة المرتجع وفى كل مرة يتم فيها الترحيل تحذف بيانات الفاتورة استعداد لاستقبال فاتورة اخرى وهكذا بالاضافة ان يتم الترحيل بصورة متتالية بعنى اي يتم الترحيل مثلا فى صفحة المشتروات فى فاتورة 1 حتى السطر رقم 5 وترحل فاتورة المشتروات التالية بداية من السطر رقم 6 وهكذا ارجو ان اكون وفقت فى شرح ما اريد وفى النهاية لا يسعنى الا ان اشكر المنتدى و اعضاءة الكرام على ما يبزلونه من مجهود فى مساعدة الاخرين و انتهز الفرصة بتهنئة الجميع بحلول شهر رمضان على الامة الاسلامية اعادة الله على الجميع بالخير دفتر حسابات 2016.rar
أ / محمد صالح قام بنشر يونيو 18, 2015 قام بنشر يونيو 18, 2015 بسم الله الرحمن الرحيم كل عام وجميع من يزور منتدانا الغالي بخير ورمضان كريم ............. تفضل أخي الكريم تم تعديل ملفك حتى يكون عدد الأعمدة متساويا في كل الصفحات والترحيل وحذف بيانات الفاتورة mas_دفتر حسابات 2016.rar
نور وحيد قام بنشر يونيو 18, 2015 الكاتب قام بنشر يونيو 18, 2015 بسم الله الرحمن الرحيم الاخ الكريم الاستاذ/ محمد صالح اشكر لك استجابتك السريعة فى محاوله مساعدتى الا انه هناك بعض الملاحظات اولا عند كتابة فاتورة مبيعات يتم ترحيل ف1 بطريقة سليمه وكذلك ف2 اما ف3 فترحل الى مكان خطأ ثانيا عند ترحيل فاتورة المرتجع او المشتروات لا تقبل الا ترحيل فاتورة واحده فقط و اذا حاولت ترحيل اخرى يظهر رساله وجود خطأ بكود فى الصف الثانى منه ثالثا عند الترحيل يحدث اهتزاز فى الشاشة mas2_دفتر حسابات 2016.rar
أ / محمد صالح قام بنشر يونيو 19, 2015 قام بنشر يونيو 19, 2015 بسم الله الرحمن الرحيم الاخ الكريم الاستاذ/ محمد صالح اشكر لك استجابتك السريعة فى محاوله مساعدتى الا انه هناك بعض الملاحظات اولا عند كتابة فاتورة مبيعات يتم ترحيل ف1 بطريقة سليمه وكذلك ف2 اما ف3 فترحل الى مكان خطأ ثانيا عند ترحيل فاتورة المرتجع او المشتروات لا تقبل الا ترحيل فاتورة واحده فقط و اذا حاولت ترحيل اخرى يظهر رساله وجود خطأ بكود فى الصف الثانى منه ثالثا عند الترحيل يحدث اهتزاز فى الشاشة الكود يعمل 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 بدون حذف
نور وحيد قام بنشر يونيو 19, 2015 الكاتب قام بنشر يونيو 19, 2015 انا اسف ولكنى جديد فى الاكواد الا انة عند التجريب الاحظ وجود مشكلة فى ترحيل الصف الرابع من الفاتورة مع انة يرحل الا انة لا يمسح من الفاتورة mas_دفتر حسابات 2016.rar
ابو محمد نصري قام بنشر يونيو 19, 2015 قام بنشر يونيو 19, 2015 (معدل) اسلام عليكم استاذ محمد صالح ارجو منك وضع هذا الكود علي الملف ده http://www.officena.net/ib/index.php?showtopic=62257&st=0&p=402936 تم تعديل يونيو 19, 2015 بواسطه ابو محمد نصري
أ / محمد صالح قام بنشر يونيو 19, 2015 قام بنشر يونيو 19, 2015 بسم الله الرحمن الرحيم الاخ الكريم الاستاذ/ محمد صالح اشكر لك استجابتك السريعة فى محاوله مساعدتى الا انه هناك بعض الملاحظات اولا عند كتابة فاتورة مبيعات يتم ترحيل ف1 بطريقة سليمه وكذلك ف2 اما ف3 فترحل الى مكان خطأ ثانيا عند ترحيل فاتورة المرتجع او المشتروات لا تقبل الا ترحيل فاتورة واحده فقط و اذا حاولت ترحيل اخرى يظهر رساله وجود خطأ بكود فى الصف الثانى منه ثالثا عند الترحيل يحدث اهتزاز فى الشاشة الكود يعمل 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 بدون حذف انا اسف ولكنى جديد فى الاكواد الا انة عند التجريب الاحظ وجود مشكلة فى ترحيل الصف الرابع من الفاتورة مع انة يرحل الا انة لا يمسح من الفاتورة رغم أنك جديد في الأكواد إلا أنك وضعت الكود الجديد في مكانه والكود عندي يعمل بكفاءة عالية على صف 1 أو 4 أو أكثر ولا يوجد مشكلة .... توضيح بسيط: معنى كود مسح المحتويات أنه يبدأ من الخلية D7 إلى صف آخر خلية في العمود D (الكود) فربما لم يكتب الكود في الصف الرابع لذلك لم يتم حسابه من النطاق
أ / محمد صالح قام بنشر يونيو 20, 2015 قام بنشر يونيو 20, 2015 طبعا ممكن الكود يقوم بنسخ النطاق بداية من b7 إلى صف النهاية السفلية للنطاق d6 (بحيث إذا كانت الفاتورة صف واحد يكون النطاق المنسوخ من b7 إلى m7) ثم يقوم بلصق قيم النطاق المنسوخ في الصفحة الموجودة في الخلية k1 وفي أول خلية فارغة في العمود b ثم يحدد الصفحة المكتوبة في k1 حتى يحدد أول خلية فارغة في العمود d ثم يعود لصفحة الفاتورة ويحدد الخلية d7
أفضل إجابة نور وحيد قام بنشر يونيو 20, 2015 الكاتب أفضل إجابة قام بنشر يونيو 20, 2015 شرح ممتاز و بسيط فى نفس الوقت جزاك الله خيرا استاذ/محمد صالح
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.