مساعدة في التأكد من الكود الموجود بالبرنامج لنقل البيانات لاول صف فارغ

[سالي]

اخواني الافاضل

بدأ اشكركم كثيرا ولا ابالغ وذكرتها سابقا هنا ليس منتدي بل جامعة الله يوفقكم جميعا

مرفق مشروع برنامج مبيعات ومشتريات وموردين وعملاء وحقيقي تعبت به كثيرا

بالرغم من اني لا ادعي لنفسي عائدية البرنامج لي بل هي عملية تطوير ودمج لمجموعة برامج ومن هنا . من هذا المنتدي او الجامعة الراقية

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

الا ان عثرت علي المايكرو الموجود حاليا بالبرنامج وهو صغير وسريع حيث ينقل البيانات الي اول صف خالي

والمشكلة انه ينقل حجم الفاتورة كاملة 10 صفوف

فاذا كان بالفاتورة صنف واحد يرحله ويبدا بالفاتورة الاخري بالصف رقم 11 وبذلك تكون الصفوف من 2 الي10 فارغة

والمطلوب ان يكون الترحيل بميكرو من الفاتورة الي صفحة المبيعات مثلا متسلسل فيها بدون صفوف خالية كما حاصل الان

والتاكد من الميكرو حيث يعمل في نقل بيانات المبيعات لكن لا ينقل بيانات العميل في حالة البيع الاجل

تحياتي لكم واملي بالاهتمام ولو قليلا

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

والمطلوب هو نقل بيانات مثلا من c9 الي i9 الموجودة بالورقة 1 الي الورقة 2 الي اول خلية فارغة a8 الي g8

ثم نقل المدي c9 لغاية L18 من الورقة 1 الي a10 لفاية k19 الي اول خلية فارغة بالورقة 3 مع ملاحظة ان البيانات ممكن تكون في 3 صفوف او 5 او 10 وفي الثلاث حالات السابقة تكون البيانات في اول خانة فارغة

تم تعديل نوفمبر 16, 2012 بواسطه سالي

[أبو حنــــين]

السلام عليكم

لرفع ملف يجب اولا ضغطه ببرنامج ضغط

عذا مثال على الترحيل كما جاء في المشاركة

ترحيل الى صفحتين.rar

[سالي]

هذا هو المايكرو الذي استخدمته

Sheets("فاتورة المبيعات").Range("w2:aq11").Copy

Sheets("المبيعات").Select

ActiveSheet.Unprotect

ER = Sheets("المبيعات").Range("a2304").End(xlUp).Row + 1

Sheets("المبيعات").Range("a" & ER).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False

Sheets("فاتورة المبيعات").Range("w13:ad13").Copy

Sheets("حركة العملاء").Select

ActiveSheet.Unprotect

ER = Sheets("حركة العملاء").Range("c2304").End(xlUp).Row + 1

Sheets("حركة العملاء").Range("c" & ER).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False

Sheets("فاتورة المبيعات").Select

[أبو حنــــين]

تم عمل المطلوب

[سالي]

حقيقي متشكرة جدا اخي ابو حنين لسرعة الاستجابة

والله لاكتر من ساعة احاول ارفع الشيت وضغطته لكن النت السبب

احتمال ما اكون قدرت اعبر عن المشكلة

ووفق مثال حضرتك انا عايزة الجدول نعتبرة فاتورة والورقة اللي بتتنقل فيها البيانات صفحة المبيعات

وكده معناه استمرار انتقال الفواتير من الورقة الاولي الي الثانية ولاحظ حضرتك ان كل فاتورة تختلف في عدد الاصناف فيها

نقل البيانات بالنسبة لجدول حضرتك كان من الصف 8 الي 17 دي نعتبرها الفاتورة الاولي

الفاتورة الثانية المفروض تكون من الصف 18 وبمقدار اصنافها 1 او 2 او 3 اصناف

الثالثة بعدها من اول صف فارغ وهكذا

الله يبارك بك ويحفظك لحنين ويحفظها لك اخي الفاضل

[سالي]

الحمد لله قدرت ارفع الملف

شكري لكم لمساعدتي سلفا

مخازن.rar

[سالي]

اتمني من الاخوة الافاضل المساعدة

بارك الله فيكم امين