Xima Alfadni قام بنشر نوفمبر 1, 2014 قام بنشر نوفمبر 1, 2014 اساتذتى الاعزاء السلام عليكم في الملف المرفق فكرة نسخ بيانات من ملف الى ملف اخر - بدون تحديد المسار فكرة تطويره هو انى وضعت كود Subtotal في الملف الموجود فيه البيانات Book1 ليعطى لنا رقم عدد Rows البيانات ( تحديدا في ملف Book1 صفحة Sheet1 خليه B1 باللون الاصفر ) الفكره ان يدرج مايشير الى الرقم الموجود في هذه الخليه داخل الكود ليكون الكود ديناميكى و يجلب البيانات كلما زادت حاولت ولازلت احاول اكمال هذه الفكره حيث انى لم اجد لها اى مثيل في اى المنتديات العربية و الاجنبية كما انى طرحتها هنا اكثر من مرة في هذا الصرح التعليمى الرائع ولكن دون اى تجاوب نظرا لصعوبتها الواضحة فقط ادعوا للتعاون ممن استطاع ان يساعد بفكره او جزء منها لاتمام هذا الكود و السلام عليكم Get Data From Same Path.zip
عبدالله باقشير قام بنشر نوفمبر 1, 2014 قام بنشر نوفمبر 1, 2014 السلام عليكم حاولت ولازلت احاول اكمال هذه الفكره حيث انى لم اجد لها اى مثيل في اى المنتديات العربية و الاجنبية لو بحثت في منتدانا لوجدت الكثير من هذا واحسن عموما تم تعديل الكود بما يتناسب لطلبك بدون استخدام اي معادلة حيث يقوم الكود بايجاد آخر صف Sub TestCopyFromClosedWB() Dim wb As Workbook Dim rngTarget As Range Dim strSourceWB As String, strSourceWS As String Dim Lr As Long ' اسم الملف الذي تريد الاستيراد منه strSourceWB = ThisWorkbook.Path & "\Book1.xls" ' اسم الورقة مكان الاستيراد strSourceWS = "Sheet1" ' خلية اللصق Set rngTarget = Range("B2") Application.ScreenUpdating = False On Error Resume Next Set wb = Workbooks.Open(strSourceWB, True, True) On Error GoTo 0 If Not wb Is Nothing Then On Error Resume Next With wb.Worksheets(strSourceWS) ' آخر صف في العمود بي في ورقة الاستيراد Lr = .Cells(.Rows.Count, "B").End(xlUp).Row .Range("B2:K" & Lr).Copy rngTarget End With On Error GoTo 0 wb.Close False End If Application.ScreenUpdating = True Set wb = Nothing: Set rngTarget = Nothing End Sub المرفق 2003 Get Data From Same Path.rar تحياتي 2
Xima Alfadni قام بنشر نوفمبر 2, 2014 الكاتب قام بنشر نوفمبر 2, 2014 الاستاذ الخبير شكرا على مجهودكم نعم توجد افكار متشابهة و لكن لا توجد نفس الفكرة المطلوبة اكرر شكرى
ياسر خليل أبو البراء قام بنشر نوفمبر 2, 2014 قام بنشر نوفمبر 2, 2014 بارك الله فيك أستاذي القدير عبد الله باقشير هل يمكن تطوير الكود ليشمل عدة ملفات في نفس المسار وليس ملف واحد مع العلم أن النطاقات المراد نسخ البيانات منها غير ثابتة أي أنها متغيرة من ملف لملف .. ولكن الملفات الموجودة بها نفس اسم الشيت المراد النسخ منه
عبدالله باقشير قام بنشر نوفمبر 2, 2014 قام بنشر نوفمبر 2, 2014 بارك الله فيك أستاذي القدير عبد الله باقشير هل يمكن تطوير الكود ليشمل عدة ملفات في نفس المسار وليس ملف واحد مع العلم أن النطاقات المراد نسخ البيانات منها غير ثابتة أي أنها متغيرة من ملف لملف .. ولكن الملفات الموجودة بها نفس اسم الشيت المراد النسخ منه ان شاء الله ممكن هات ملفاتك للتطبيق
صالح أبو أحمد قام بنشر نوفمبر 2, 2014 قام بنشر نوفمبر 2, 2014 بارك الله فيك أستاذي العزيز / عبد الله باقشير
Xima Alfadni قام بنشر نوفمبر 3, 2014 الكاتب قام بنشر نوفمبر 3, 2014 اساتذتى الكرام بالاستعانة ببعض الافكار الرائعة في هذا المنتدى سوف ازيد الموضوع تعقيدا !! في الملف المرفق 3 ملفات الملف الاول واسمهAFAQ ، و الملف الثانى و اسمه KHMB ، و الملف الثالث و اسمه NMSH يقوم الملف الاول بفتح فورم في الملف الثانى يقوم الملف الثانى بفتح فورم في الملف الثالث بواسطة فورم ادخال بيانات في الملف الثالث يقوم بادخل بيانات في الملف الثانى و الثالث الكود الموجود في فورم الادخال الموجود في الملف الثالث يعمل بطريقة ناجحة عند فتحه من الملف الاصلى وهو الثالث ، ويعمل بنصف كفائته عند فتحه من الملف الاول حيث انه يدرج البيانات في الملف الثالث فقط . و المطلوب : عند فتحه من الملف الاول ان يعمل بنفس الكفاءة + اخفاء الملفين الثانى و الثالث ويوجد عدة طرق اخفاء موجودة في الكود ولكنهم غير مفعلين لان عيبهم هو عند اخفاء الملف لايمكن استعادة اظهاره مرة اخرى و المطلوب هو تمكين اظهاره عند الحاجة . + فكرة تعديل و حذف بيانات فورم غير موجود في نفس الملف . الموضوع معقد ولكنه فرصة تعليمية Copy of TEST.zip
ياسر خليل أبو البراء قام بنشر نوفمبر 3, 2014 قام بنشر نوفمبر 3, 2014 تصدق حسيت إني دخلت متاهة ومش عارف أخرج ممكن أعرف أستاذ عبد العظيم ايه الفكرة من اللفة دي ؟ 1
Xima Alfadni قام بنشر نوفمبر 3, 2014 الكاتب قام بنشر نوفمبر 3, 2014 (معدل) اقول لحضرتك الفكرة ببساطة ان يتم توزيع الادوار في حالة عمل برنامج متكامل كبير بحيث ان هذا سيساعد في ان حجم كل ملف يكون متناسق ، ولا اخفى عليك انى بحاجة الى ان اتعلم الاجابة على هذا السؤال العجيب و المعقد ، وقد تعلمت من هذا المنتدى الرائع افكار رائعة ، ولكن هذه المرة الموضوع يبدو اكثر تعقيدا وربما يحتاج الى كثير من الوقت للحصول على اجابه له ، وجزى الله خير جميع الاخوة الافاضل . و الله المستعان تم تعديل نوفمبر 3, 2014 بواسطه Xima Alfadni 1
محمد لطفى قام بنشر نوفمبر 3, 2014 قام بنشر نوفمبر 3, 2014 السلام عليكم الاستاذ الفاضل / عبد الله دائما مواضيعك عباره عن السهل الممتع جزاك الله خيرا
أسامة عطاالله قام بنشر نوفمبر 3, 2014 قام بنشر نوفمبر 3, 2014 السلام عليكم اذا سمحتوا اريد تنفيذ هذا الكود على الملف الخاص بى صفحة المراد الاستيرداد ( كشف خزينة 1 ) اسم ملف الاستيرداد سبتمبر خزينة عمود البيانات الذى اريد نسخة هو الصافى المستحق ( bz9 ) الملف المراد النسخ الية هو اكتوبر خزينة - الصفحة كشف خزينة 1 عمود المراد نسخ البيانات الية هو الصافى السابق ( cd9 ) الى نهاية العمود الملفين مرفقين ملف مرفق هنا والملف الاخر فى المشاركة التالية لانة لا يريد يرفع فى هذة المشاركة شكرا لسعة صدركم سبتمبر خزينة.rar
Xima Alfadni قام بنشر نوفمبر 4, 2014 الكاتب قام بنشر نوفمبر 4, 2014 الاستاذ / أسامة السلام عليكم انا نزلت الملفين بس ما فهمت ايه المطلوب ؟ حجم البيانات في الشيت الواحد كتير و دا بيكون صعب استخدامه أو حتى طباعته ، انصحك بتجزئة الملفات على اكتر من شيت و استخدم التصفية او الفلاتر و شكرا
أسامة عطاالله قام بنشر نوفمبر 4, 2014 قام بنشر نوفمبر 4, 2014 اخى العزيز / Xima Alfadni شكرا لك لمحاولة مساعدتى بختصار الملف الاول وهو المسمسى باسم سبتمبر خزنة والصفحة اسمها كشف خزينة1 هذا الملف هو المطلوب منة البيانات وتحديدا العمود bz9 الملف الثانى والمسمسى اكتوبر خزينة والصفحة اسمها كشف خزنة 1 هو المطلوب ارسال البيانات الية وتحديد فى العمود cd9 وبالنسبة لكثرة البيانات لا ينفع تجزئتها هل هذا الكود مناسب ام يوجد كود اخر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.