اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

قام بنشر

 

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information