كود ترحيل حسب نوع الفاتورة

[نور وحيد]

الرجاء المساعدة في عملية الترحيل حسب نوع الفاتورة فان كانت الفاتورة مشتروات روحلت الى فاتورة المشتروات وان كانت الفاتورة مبيعات روحلت الى صفحة المبيعات وان كانت الفاتورة مرتجع روحلت الى صفحة المرتجع وفى كل مرة يتم فيها الترحيل تحذف بيانات الفاتورة استعداد لاستقبال فاتورة اخرى وهكذا بالاضافة ان يتم الترحيل بصورة متتالية بعنى اي يتم الترحيل مثلا فى صفحة المشتروات فى فاتورة 1 حتى السطر رقم 5 وترحل فاتورة المشتروات التالية بداية من السطر رقم 6 وهكذا ارجو ان اكون وفقت فى شرح ما اريد وفى النهاية لا يسعنى الا ان اشكر المنتدى و اعضاءة الكرام على ما يبزلونه من مجهود فى مساعدة الاخرين و انتهز الفرصة بتهنئة الجميع بحلول شهر رمضان على الامة الاسلامية اعادة الله على الجميع بالخير                             

دفتر حسابات 2016.rar

[أ / محمد صالح]

بسم الله الرحمن الرحيم

كل عام وجميع من يزور منتدانا الغالي بخير 

ورمضان كريم

.............

تفضل أخي الكريم

تم تعديل ملفك حتى يكون عدد الأعمدة متساويا في كل الصفحات

والترحيل وحذف بيانات الفاتورة

mas_دفتر حسابات 2016.rar

[نور وحيد]

بسم الله الرحمن الرحيم

الاخ الكريم الاستاذ/ محمد صالح 

اشكر لك استجابتك السريعة فى محاوله مساعدتى

الا انه هناك بعض الملاحظات اولا عند كتابة فاتورة مبيعات يتم ترحيل ف1 بطريقة سليمه وكذلك ف2 اما ف3 فترحل الى مكان خطأ

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

ثالثا عند الترحيل يحدث اهتزاز فى الشاشة

mas2_دفتر حسابات 2016.rar

[أ / محمد صالح]

بسم الله الرحمن الرحيم

الاخ الكريم الاستاذ/ محمد صالح 

اشكر لك استجابتك السريعة فى محاوله مساعدتى

الا انه هناك بعض الملاحظات اولا عند كتابة فاتورة مبيعات يتم ترحيل ف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 بدون حذف

[نور وحيد]

انا اسف ولكنى جديد فى الاكواد الا انة عند التجريب الاحظ وجود مشكلة فى ترحيل الصف الرابع من الفاتورة مع انة يرحل الا انة لا يمسح من الفاتورة

mas_دفتر حسابات 2016.rar

[ابو محمد نصري]

اسلام عليكم استاذ محمد صالح ارجو منك وضع هذا الكود علي الملف ده

 http://www.officena.net/ib/index.php?showtopic=62257&st=0&p=402936

تم تعديل يونيو 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 (الكود)

فربما لم يكتب الكود في الصف الرابع لذلك لم يتم حسابه من النطاق

[نور وحيد]

انا اسف هل من الممكن شرح الكود

[أ / محمد صالح]

طبعا ممكن
الكود يقوم بنسخ النطاق بداية من b7 إلى صف النهاية السفلية للنطاق d6 (بحيث إذا كانت الفاتورة صف واحد يكون النطاق المنسوخ من b7 إلى m7)

ثم يقوم بلصق قيم النطاق المنسوخ في الصفحة الموجودة في الخلية k1 وفي أول خلية فارغة في العمود b

ثم يحدد الصفحة المكتوبة في k1 حتى يحدد أول خلية فارغة في العمود d

ثم يعود لصفحة الفاتورة ويحدد الخلية d7

[نور وحيد]

شرح ممتاز و بسيط فى نفس الوقت 

جزاك الله خيرا استاذ/محمد صالح