اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by نور وحيد,

الردود الموصى بها

الرجاء المساعدة في عملية الترحيل حسب نوع الفاتورة فان كانت الفاتورة مشتروات روحلت الى فاتورة المشتروات وان كانت الفاتورة مبيعات روحلت الى صفحة المبيعات وان كانت الفاتورة مرتجع روحلت الى صفحة المرتجع وفى كل مرة يتم فيها الترحيل تحذف بيانات الفاتورة استعداد لاستقبال فاتورة اخرى وهكذا بالاضافة ان يتم الترحيل بصورة متتالية بعنى اي يتم الترحيل مثلا فى صفحة المشتروات فى فاتورة 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

رابط هذا التعليق
شارك

 

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information