ابو جودى قام بنشر مايو 1, 2012 قام بنشر مايو 1, 2012 السلام عليكم و رحمة الله و بركاته ,,, الى السادة -مديرى و رؤساء الأقسام بالمنتدى - فى البداية أشكر كل من يساهم فى خدمة و نفع المسلمين و هذا إن شاء الله فى ميزان حسناتكم-قرأت بعض الموضوعات و الردود المميزة و كنت أريد المساعدة فى ترحيل البيانات من ملف اكسل يشمل كل بيانات العملا ء لحساب خاص لكل عميل بحيث تظهر فى كل نموذج حسب ما يحتاج منها سواء اسم أو رقم .... كما بالمرفق بمعنى عندما يتم تسجيل بيانات عميل جديد فى الملف الرئيسى يتم ترحيلها الى ملف جديد برقم الوحدة و القطاع .
طارق محمود قام بنشر مايو 2, 2012 قام بنشر مايو 2, 2012 السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك وزملاؤك مرفق مضغوط لمجلد (فولدر) وبه ملفان الملف الأول DATA وبه بعض البيانات الافتراضي وبه ايضا كود الملف الثاني Sample لاتغيره ولاتحركه من هذا المجلد أولا فك الضغط وخزن المجلد كاملا في المكان الذي تريد ثانيا إفتح الملف الأول DATA ثم إضغط علي الزر الأحمر لتشغيل الكود سيقوم بفتح الملف Sample بعدد مرات العملاء وفي كل مرة ينقل إليه البيانات ويخزنه في نفس المجلد برقم الوحدة والقطاع كما تريد ثم يغلق الملف تفضل المرفق a_tolba.rar 1 1
أبو ردينة قام بنشر مايو 2, 2012 قام بنشر مايو 2, 2012 أستاذ طارق لو سمحت بتجيب الحلويات دي منين جزاك الله خيرا و ما أروع أن تكلل إبداعاتك بلمحة إسلامية دائما تطل علينا من شاشات جميلة
ابو جودى قام بنشر مايو 2, 2012 الكاتب قام بنشر مايو 2, 2012 ا/طارق محمود -بعد التحية -اشكر اهتمامك و سرعة الرد قمت باتباع الخطوات لكن المشكلة فى التالى 1 /انه بعد التسجيلفى ملف data و تشغيل كود الترحيل الاحمر تظهر رسالة حفظ التغييرات لكل ملفات العملاء وهذا صعب فى حالى وجود 1500 عميل و كنت اود ظهور الرسالة للملفات التى تم تحديثها فقط . 2/ كيف يتم فتح حساب العميل بهدف عمل فاتورة او التسجيل بكشف الحساب و المطالبات -لا يسمح بذلك فقط تظهر الحسابات عند طلب الحفظ و لا يسمح باى تعديل . فى حين انه قد يكون من المهم فتح حساب العميل لالااستعلام او اصدار فاتورة بدون الرجوع لملف data .
طارق محمود قام بنشر مايو 2, 2012 قام بنشر مايو 2, 2012 السلام عليكم 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 مباشرة أو أعد السؤال بصيغة أخري
طارق محمود قام بنشر مايو 2, 2012 قام بنشر مايو 2, 2012 السلام عليكم أخي الفاضل والحبيب الغالي / أبوردينة أستاذ طارق لو سمحت بتجيب الحلويات دي منين جزاك الله خيرا و ما أروع أن تكلل إبداعاتك بلمحة إسلامية دائما تطل علينا من شاشات جميلة أنت الأحلي جزاك الله خيرا وجعلني عند حسن ظنكم
ابو جودى قام بنشر مايو 2, 2012 الكاتب قام بنشر مايو 2, 2012 السلام عليكم ا/طارق ارجوا ان لا اطيل عليك لكن هذا العمل سيكون مهم جدا بالنسبة لى بعد الوصول للمطلوب فالسؤال الثانى بطريقة أخرى مطلوب فتح ملف أى عميل و الذى تم تخزينهم من قبل و ليكن رقم الوحدة 12 قطاع 2017 بهدف اصدار فاتورة وتعديل كشف الحساب و اصدار مطالبة و الطباعة -المطلوب كيف يتم استدعاء ملف sample لاى عميل و التعديل عليه بدون فتح ملف ال data . و شكراً
طارق محمود قام بنشر مايو 3, 2012 قام بنشر مايو 3, 2012 السلام عليكم مازلت لم أفهم فالمفروض أنه أولا لم يكن لديك ملفات للعملاء بعد تشغيل الكود سيتكون لديك في نفس الفولدر الذي به ملف Data عدد من الملفات حسب البيانات التي بملف Data ثم يمكنك غلق ملف Data أو تركه مفتوحا لايهم وفتح ماتشاء من تلك الملفات للتعديل او الطباعة أو كماتريد فقط تذكر أن هذه الملفات تم تكوينها بنفس الفولدر الذي به ملف Data وهي ملفات عادية يتم فتحها بلامشاكل إن كنت تريد مثلا أن تختار الملف من داخل ملف Data فهذا أيضا ممكن مثلا (بعد عمل كود آخر) يمكنك بالضغط دبل كليك علي إسم العميل يتم استدعاء الملف الخاص به (يتم فتحه) أرجو أن تكون الأمور واضحة
ابو جودى قام بنشر مايو 3, 2012 الكاتب قام بنشر مايو 3, 2012 السلام عليكم بعد تشغيل الكود لا يتكون لديك في نفس الفولدر الذي به ملف Data عدد من الملفات حسب البيانات التي بملف Data سواء تم غلق ملف Data أو تركه مفتوحا لايهم و لا أجدها و لا استطيع فتح ما أشاء من تلك الملفات للتعديل او الطباعة أو كماتريد فقط تذكر أن هذه الملفات تم تكوينها بنفس الفولدر الذي به ملف Data وهي ملفات عادية يتم فتحها بلامشاكل -المشكلة لا أجدها داخل الفولدر و إلا كنت فتحتها و قمت بالتعديلات المطلوبة فقط تظهر رسالة تم نقل عدد من ..... الملفات و غلقها بسرعة وأرى الحل المقترح من حضرتك سيكون مناسب بإذن الله و هو (أن تختار الملف من داخل ملف Data فهذا أيضا ممكن) مثلا (بعد عمل كود آخر) يمكنك بالضغط دبل كليك علي إسم العميل يتم استدعاء الملف الخاص به (يتم فتحه) و شكرأ
طارق محمود قام بنشر مايو 3, 2012 قام بنشر مايو 3, 2012 السلام عليكم أخي الكريم قلت لك في اول مشاركة لي (المشاركة #2) أولا فك الضغط وخزن المجلد كاملا في المكان الذي تريد ثانيا إفتح الملف الأول DATA من المكان الذي خزنت ،حفظت، المجلد فيه ثم إضغط علي الزر الأحمر لتشغيل الكود أنظر الفيديو المرفق extract.rar
ابو جودى قام بنشر مايو 3, 2012 الكاتب قام بنشر مايو 3, 2012 السلام عليكم ا/ طارق بالفعل قمت بالخطوات بشكل صحيح كما شاهدتها بالفيديو المرفق لكن المشكلة أن ملفات العملاء لا تظهر عندى كما بالفيديو علما بأنى استخدم office 2003 مش عارف ممكن يكون ده السبب و شكراً.
طارق محمود قام بنشر مايو 5, 2012 قام بنشر مايو 5, 2012 السلام عليكم عندك حق أخي الكريم في حالة 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
ابو جودى قام بنشر مايو 5, 2012 الكاتب قام بنشر مايو 5, 2012 قمة الروعة والإتقان - الآن يعمل بنجاح لن أوفيك حقك و أشكرك على الوقت و المجهود و إلى اللقاء فى موضوع جديد إن شاء الله
إبراهيم ابوليله قام بنشر مايو 13, 2012 قام بنشر مايو 13, 2012 الاخ طارق بارك الله فيك ولكن هل ممكن تنظر فى طلبى لقد رفعته على المنتدى باسم كود الترحيل الى صفحات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.