نور وحيد قام بنشر يونيو 17, 2015 مشاركة قام بنشر يونيو 17, 2015 الرجاء المساعدة في عملية الترحيل حسب نوع الفاتورة فان كانت الفاتورة مشتروات روحلت الى فاتورة المشتروات وان كانت الفاتورة مبيعات روحلت الى صفحة المبيعات وان كانت الفاتورة مرتجع روحلت الى صفحة المرتجع وفى كل مرة يتم فيها الترحيل تحذف بيانات الفاتورة استعداد لاستقبال فاتورة اخرى وهكذا بالاضافة ان يتم الترحيل بصورة متتالية بعنى اي يتم الترحيل مثلا فى صفحة المشتروات فى فاتورة 1 حتى السطر رقم 5 وترحل فاتورة المشتروات التالية بداية من السطر رقم 6 وهكذا ارجو ان اكون وفقت فى شرح ما اريد وفى النهاية لا يسعنى الا ان اشكر المنتدى و اعضاءة الكرام على ما يبزلونه من مجهود فى مساعدة الاخرين و انتهز الفرصة بتهنئة الجميع بحلول شهر رمضان على الامة الاسلامية اعادة الله على الجميع بالخير دفتر حسابات 2016.rar رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 18, 2015 مشاركة قام بنشر يونيو 18, 2015 بسم الله الرحمن الرحيم كل عام وجميع من يزور منتدانا الغالي بخير ورمضان كريم ............. تفضل أخي الكريم تم تعديل ملفك حتى يكون عدد الأعمدة متساويا في كل الصفحات والترحيل وحذف بيانات الفاتورة mas_دفتر حسابات 2016.rar رابط هذا التعليق شارك More sharing options...
نور وحيد قام بنشر يونيو 18, 2015 الكاتب مشاركة قام بنشر يونيو 18, 2015 بسم الله الرحمن الرحيم الاخ الكريم الاستاذ/ محمد صالح اشكر لك استجابتك السريعة فى محاوله مساعدتى الا انه هناك بعض الملاحظات اولا عند كتابة فاتورة مبيعات يتم ترحيل ف1 بطريقة سليمه وكذلك ف2 اما ف3 فترحل الى مكان خطأ ثانيا عند ترحيل فاتورة المرتجع او المشتروات لا تقبل الا ترحيل فاتورة واحده فقط و اذا حاولت ترحيل اخرى يظهر رساله وجود خطأ بكود فى الصف الثانى منه ثالثا عند الترحيل يحدث اهتزاز فى الشاشة mas2_دفتر حسابات 2016.rar رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 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 بدون حذف رابط هذا التعليق شارك More sharing options...
نور وحيد قام بنشر يونيو 19, 2015 الكاتب مشاركة قام بنشر يونيو 19, 2015 انا اسف ولكنى جديد فى الاكواد الا انة عند التجريب الاحظ وجود مشكلة فى ترحيل الصف الرابع من الفاتورة مع انة يرحل الا انة لا يمسح من الفاتورة mas_دفتر حسابات 2016.rar رابط هذا التعليق شارك More sharing options...
ابو محمد نصري قام بنشر يونيو 19, 2015 مشاركة قام بنشر يونيو 19, 2015 (معدل) اسلام عليكم استاذ محمد صالح ارجو منك وضع هذا الكود علي الملف ده http://www.officena.net/ib/index.php?showtopic=62257&st=0&p=402936 تم تعديل يونيو 19, 2015 بواسطه ابو محمد نصري رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 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 (الكود) فربما لم يكتب الكود في الصف الرابع لذلك لم يتم حسابه من النطاق رابط هذا التعليق شارك More sharing options...
نور وحيد قام بنشر يونيو 19, 2015 الكاتب مشاركة قام بنشر يونيو 19, 2015 انا اسف هل من الممكن شرح الكود رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 20, 2015 مشاركة قام بنشر يونيو 20, 2015 طبعا ممكن الكود يقوم بنسخ النطاق بداية من b7 إلى صف النهاية السفلية للنطاق d6 (بحيث إذا كانت الفاتورة صف واحد يكون النطاق المنسوخ من b7 إلى m7) ثم يقوم بلصق قيم النطاق المنسوخ في الصفحة الموجودة في الخلية k1 وفي أول خلية فارغة في العمود b ثم يحدد الصفحة المكتوبة في k1 حتى يحدد أول خلية فارغة في العمود d ثم يعود لصفحة الفاتورة ويحدد الخلية d7 رابط هذا التعليق شارك More sharing options...
أفضل إجابة نور وحيد قام بنشر يونيو 20, 2015 الكاتب أفضل إجابة مشاركة قام بنشر يونيو 20, 2015 شرح ممتاز و بسيط فى نفس الوقت جزاك الله خيرا استاذ/محمد صالح رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان