ترحيل بيانات العملاء من ملف رئيسى الى حساب خاص لكل عميل

[ابو جودى]

السلام عليكم و رحمة الله و بركاته ,,,

الى السادة -مديرى و رؤساء الأقسام بالمنتدى - فى البداية أشكر كل من يساهم فى خدمة و نفع المسلمين و هذا إن شاء الله فى ميزان حسناتكم-قرأت بعض الموضوعات و الردود المميزة و كنت أريد المساعدة فى ترحيل البيانات من ملف اكسل يشمل كل بيانات العملا ء لحساب خاص لكل عميل بحيث تظهر فى كل نموذج حسب ما يحتاج منها سواء اسم أو رقم .... كما بالمرفق بمعنى عندما يتم تسجيل بيانات عميل جديد فى الملف الرئيسى يتم ترحيلها الى ملف جديد برقم الوحدة و القطاع .

[طارق محمود]

السلام عليكم

أهلا ومرحبا بك أخي الكريم

بين إخوانك وزملاؤك

مرفق مضغوط لمجلد (فولدر) وبه ملفان

الملف الأول DATA وبه بعض البيانات الافتراضي وبه ايضا كود

الملف الثاني Sample لاتغيره ولاتحركه من هذا المجلد

أولا فك الضغط وخزن المجلد كاملا في المكان الذي تريد

ثانيا إفتح الملف الأول DATA

ثم إضغط علي الزر الأحمر لتشغيل الكود

سيقوم بفتح الملف Sample بعدد مرات العملاء وفي كل مرة ينقل إليه البيانات ويخزنه في نفس المجلد برقم الوحدة والقطاع كما تريد ثم يغلق الملف

تفضل المرفق

a_tolba.rar

[أبو ردينة]

أستاذ طارق لو سمحت

بتجيب الحلويات دي منين

جزاك الله خيرا

و ما أروع أن تكلل إبداعاتك بلمحة إسلامية دائما تطل علينا من شاشات جميلة

[ابو جودى]

ا/طارق محمود -بعد التحية -اشكر اهتمامك و سرعة الرد

قمت باتباع الخطوات لكن المشكلة فى التالى

1 /انه بعد التسجيلفى ملف data و تشغيل كود الترحيل الاحمر تظهر رسالة حفظ التغييرات لكل ملفات العملاء وهذا صعب فى حالى وجود 1500 عميل و كنت اود ظهور الرسالة للملفات التى تم تحديثها فقط .

2/ كيف يتم فتح حساب العميل بهدف عمل فاتورة او التسجيل بكشف الحساب و المطالبات -لا يسمح بذلك فقط تظهر الحسابات عند طلب الحفظ و لا يسمح باى تعديل . فى حين انه قد يكون من المهم فتح حساب العميل لالااستعلام او اصدار فاتورة بدون الرجوع لملف data .

[طارق محمود]

السلام عليكم

1 /انه بعد التسجيلفى ملف data و تشغيل كود الترحيل الاحمر تظهر رسالة حفظ التغييرات لكل ملفات العملاء وهذا صعب فى حالى وجود 1500 عميل و كنت اود ظهور الرسالة للملفات التى تم تحديثها فقط .

لحل هذه النقطة

إما أن تلغي الملفات من المجلد قبل تشغيل الكود

وإما أن نضيف سطرين للكود يجعله يحفظ الملفات محل الموجودة بدون السؤال

أنظر أيهما تفضل

الحل الأول تستطيع عمله

والثاني تستطيع استبدال الكود بالتالي

Sub Create_Files_from_Data()

Application.DisplayAlerts = False


Dim dd(99) As Variant


LR = [B10000].End(xlUp).Row

On Error Resume Next

pt = ActiveWorkbook.Path

For r = 2 To LR

    myname = pt & "\" & Cells(r, "C") & "-" & Cells(r, "D") & ".xls"

    For c = 2 To 21

        dd(c - 1) = Cells(r, c)

    Next c


    Workbooks.Open Filename:=pt & "\sample.xls"

    Sheets("حساب عميل").Activate

        [H2] = dd(1): [C3] = dd(2): [C4] = dd(3): [C2] = dd(4)

        [C5] = dd(5): [C6] = dd(6): [C7] = dd(7): [C8] = dd(8)

        [H4] = dd(9): [H6] = dd(10): [J6] = dd(11): [H7] = dd(12)

        [J7] = dd(13): [E7] = dd(14): [E2] = dd(15): [E3] = dd(16)

        [E4] = dd(17): [E5] = dd(18): [E6] = dd(19): [H8] = dd(20)

    ActiveWorkbook.SaveAs Filename:=myname, FileFormat:=xlExcel8

    ActiveWorkbook.Close

Next r

    MsgBox ("الحمد لله ، تم عمل عدد " & LR - 1 & " ملف جديد" & Chr(10) & "وتم نقل بيانات العملاء إليها وغلقها")

Application.DisplayAlerts = True  

End Sub

أي أنك تضيف سطر في أول الكود لتعطيل عملية رسائل التبيه

ثم سطر قبل الآخر لتفعيلها مرة أخري

Sub Create_Files_from_Data()

Application.DisplayAlerts = False

.......

.........

..........

.....

Application.DisplayAlerts = True

End Sub

2/ كيف يتم فتح حساب العميل بهدف عمل فاتورة او التسجيل بكشف الحساب و المطالبات -لا يسمح بذلك فقط تظهر الحسابات عند طلب الحفظ و لا يسمح باى تعديل . فى حين انه قد يكون من المهم فتح حساب العميل لالااستعلام او اصدار فاتورة بدون الرجوع لملف data .

لم أفهم جيدا

المفروض أن يسمح بذلك بلامشاكل

إن كنت ترغب في عدم غلق الملفات بعد نقل البيانات إليها مثلا

فقط إحذف السطر

ActiveWorkbook.Close

والموجود بالأواخر قبل سطر

Next r

مباشرة

أو أعد السؤال بصيغة أخري

[طارق محمود]

السلام عليكم

أخي الفاضل والحبيب الغالي / أبوردينة

أستاذ طارق لو سمحت

بتجيب الحلويات دي منين

جزاك الله خيرا

و ما أروع أن تكلل إبداعاتك بلمحة إسلامية دائما تطل علينا من شاشات جميلة

أنت الأحلي

جزاك الله خيرا وجعلني عند حسن ظنكم

[ابو جودى]

السلام عليكم

ا/طارق ارجوا ان لا اطيل عليك لكن هذا العمل سيكون مهم جدا بالنسبة لى بعد الوصول للمطلوب فالسؤال الثانى بطريقة أخرى مطلوب فتح ملف أى عميل و الذى تم تخزينهم من قبل و ليكن رقم الوحدة 12 قطاع 2017

بهدف اصدار فاتورة وتعديل كشف الحساب و اصدار مطالبة و الطباعة -المطلوب كيف يتم استدعاء ملف sample لاى عميل و التعديل عليه بدون فتح ملف ال data . و شكراً

[طارق محمود]

السلام عليكم

مازلت لم أفهم

فالمفروض أنه أولا لم يكن لديك ملفات للعملاء

بعد تشغيل الكود

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

ثم يمكنك غلق ملف Data أو تركه مفتوحا لايهم

وفتح ماتشاء من تلك الملفات للتعديل او الطباعة أو كماتريد

فقط تذكر أن هذه الملفات تم تكوينها بنفس الفولدر الذي به ملف Data

وهي ملفات عادية يتم فتحها بلامشاكل

إن كنت تريد مثلا أن تختار الملف من داخل ملف Data فهذا أيضا ممكن

مثلا (بعد عمل كود آخر) يمكنك بالضغط دبل كليك علي إسم العميل يتم استدعاء الملف الخاص به (يتم فتحه)

أرجو أن تكون الأمور واضحة

[ابو جودى]

السلام عليكم

بعد تشغيل الكود

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

سواء تم غلق ملف Data أو تركه مفتوحا لايهم و لا أجدها

و لا استطيع فتح ما أشاء من تلك الملفات للتعديل او الطباعة أو كماتريد

فقط تذكر أن هذه الملفات تم تكوينها بنفس الفولدر الذي به ملف Data

وهي ملفات عادية يتم فتحها بلامشاكل -المشكلة لا أجدها داخل الفولدر و إلا كنت فتحتها و قمت بالتعديلات المطلوبة

فقط تظهر رسالة تم نقل عدد من ..... الملفات و غلقها بسرعة

وأرى الحل المقترح من حضرتك سيكون مناسب بإذن الله و هو

(أن تختار الملف من داخل ملف Data فهذا أيضا ممكن)

مثلا (بعد عمل كود آخر) يمكنك بالضغط دبل كليك علي إسم العميل يتم استدعاء الملف الخاص به (يتم فتحه)

و شكرأ

[طارق محمود]

السلام عليكم

أخي الكريم

قلت لك في اول مشاركة لي (المشاركة #2)

أولا فك الضغط وخزن المجلد كاملا في المكان الذي تريد

ثانيا إفتح الملف الأول DATA من

المكان الذي

خزنت ،حفظت، المجلد فيه

ثم إضغط علي الزر الأحمر لتشغيل الكود

أنظر الفيديو المرفق

extract.rar

[ابو جودى]

السلام عليكم

ا/ طارق

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

أن ملفات العملاء لا تظهر عندى كما بالفيديو علما بأنى استخدم office 2003 مش عارف ممكن يكون ده السبب و شكراً.

[طارق محمود]

السلام عليكم

عندك حق أخي الكريم

في حالة 2003

لابد من استبدال كلمة

xlExcel8

في الكود بكلمة xlNormal

في السطر

ActiveWorkbook.SaveAs Filename:=myname, FileFormat:=xlNormal

لتصبح نهاية الكود كالتالي

....

....


	ActiveWorkbook.SaveAs Filename:=myname, FileFormat:=xlNormal

	ActiveWorkbook.Close

Next r

	MsgBox ("الحمد لله ، تم عمل عدد " & LR - 1 & " ملف جديد" & Chr(10) & "وتم نقل بيانات العملاء إليها وغلقها")

Application.DisplayAlerts = True


End Sub

[ابو جودى]

_{قمة الروعة والإتقان - الآن يعمل بنجاح}

_{لن أوفيك حقك و أشكرك على الوقت و المجهود}

_{و إلى اللقاء فى موضوع جديد إن شاء الله}

[إبراهيم ابوليله]

الاخ طارق

بارك الله فيك ولكن هل ممكن تنظر فى طلبى

لقد رفعته على المنتدى باسم

كود الترحيل الى صفحات

[عبدالله فتحى]

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