اسامة ابو عمر قام بنشر أبريل 14, 2016 قام بنشر أبريل 14, 2016 السلام عليكم في الملف وفي الصفحة الرابعه يوجد زر يقوم بنقل المعلومات وتجميعها من ال3 صفحات الاخري ( قام الاخ اخوكم بالله مشكورا بمساعدتي ) الان لدي بعض المشاكل اولا لو قمت بكاتبة سطر واحد فقط بالصفحات الثلاثة وقمت بالصفحة الرابعه بالضغط على زر نسخ سيقوم بنقل البيانات ولو قمت مرة اخرى بضغط الزر فسيقوم بتكرار النسخ فكل ما اضغط على الزر يقوم بتكرار النسخ ثانيا لو قمت بتعبئة سطرين من الصفحة الاولي وسطر باصفحة الثانية وسطر بالصفحة الثالثة فانه سيقوم بنقل سطرين من الصفحة الاولى وسطر من الصفحة الثانية والثالثة وتكرارهما ثالثا انا اريد كل يوم ان اقوم بعملية النسخ لانه كل يوم يحدث تعبئة بيانات فلا اريد ان يحدث تكرار يومي او نسخ مكرر فما هي الالية لهذه العملية ؟؟؟ osamahreport2.rar
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 هل من مساعدة جزاكم الله خير ا ؟؟
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 افهم من كلامك انك تريد نسخ الصفحات الثلاث في الصفحة الرابعة بدون تكرار؟ اذا كان هذا طلبك فهو بسيط ان شاء الله .. فقط اريد التاكيد منك 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 في 16/4/2016 at 08:35, عبدالسلام ابوالعوافي said: افهم من كلامك انك تريد نسخ الصفحات الثلاث في الصفحة الرابعة بدون تكرار؟ اذا كان هذا طلبك فهو بسيط ان شاء الله .. فقط اريد التاكيد منك Expand نعم اخوي الكود جاهز للنسخ لكن كلما اقوم بالضغط على الزر يقوم بتكرار النسخ انا فقط اريد نسخ المعلومات الجديدة
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 Sub Copying() Dim i As Integer Dim LstRow As Integer Dim LstRow1 As Integer LstRow = Sheet4.UsedRange.Rows.Count If LstRow > 2 Then Sheet4.Rows("2:" & LstRow).Delete LstRow1 = 2 For i = 1 To 3 LstRow = Sheets(i).UsedRange.Rows.Count If LstRow > 1 Then Sheets(i).Rows("2:" & LstRow).Copy Sheet4.Cells(LstRow1, 1) LstRow1 = Sheet4.UsedRange.Rows.Count + 1 End If Next i End Sub جرب اخي 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 في 16/4/2016 at 10:46, عبدالسلام ابوالعوافي said: Sub Copying() Dim i As Integer Dim LstRow As Integer Dim LstRow1 As Integer LstRow = Sheet4.UsedRange.Rows.Count If LstRow > 2 Then Sheet4.Rows("2:" & LstRow).Delete LstRow1 = 2 For i = 1 To 3 LstRow = Sheets(i).UsedRange.Rows.Count If LstRow > 1 Then Sheets(i).Rows("2:" & LstRow).Copy Sheet4.Cells(LstRow1, 1) LstRow1 = Sheet4.UsedRange.Rows.Count + 1 End If Next i End Sub جرب اخي Expand للاسف اخوي جربت ووضعت الكود بالموديل وكل ما اضغط الزر بيكرر عملية النسخ لنفس البيانات
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 (معدل) الكود يقوم بالاتي حذف كل الصفوف في الشيت الرابع نسخ الصفوف من كل الشيتات ولصقها في الشيت الرابع هل هذا ماتريد؟ اما اذا كان طلبك شي اخر فهذا يعني ان لم افهم ماتقصد اتمنى التوضيح هل قمت بتغيير الماكرو في المستطيل الي Copying? تم تعديل أبريل 16, 2016 بواسطه عبدالسلام ابوالعوافي 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 في 16/4/2016 at 11:19, عبدالسلام ابوالعوافي said: الكود يقوم بالاتي حذف كل الصفوف في الشيت الرابع نسخ الصفوف من كل الشيتات ولصقها في الشيت الرابع هل هذا ماتريد؟ اما اذا كان طلبك شي اخر فهذا يعني ان لم افهم ماتقصد اتمنى التوضيح هل قمت بتغيير الكود في المستطيل الي Copying? Expand شكرا ليك على اهتمامك اخوي اخي بالمف المرفق باول رد يوجد كود نسخ يقوم بنسخ المعلومات من الصفحات الثالثة الى الصفحة الرابعه لكن المشكلة انه كلما اقوم بضغط الزر يقوم بعملية النسخ وتكرار المعلومات وان الست بحاجه الى عملية التكرار هذه بل انها تسبب مشاكل كبيره
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 في 16/4/2016 at 11:33, عبدالسلام ابوالعوافي said: osamahreport2.rarFetching info... Expand عملية منع التكرار زبطت لكن حدث هناك مشكلة في مكان نقل البينات فعند تعبة سطر من كل شيت يجب ان يتم نسخم بالشيت الرابعه بسطر واحد وليس بثلاث اسطر لان الشيت الاول لها عدد من الاعمدة بالشيت الرابع والضيت الثاني نفس الشيء والثالث نفسي الشيء وهذا الموضوع تم طرحه بالسابق
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 اعتقد ان المشكلة ليست صعبة .. المشكلة في عدم فهمي للسؤال .. لو تدخل بيانات في الشيتات الثلاث الاولي وتدخل النتائج التي تريدها في الشيت الرابع وترفع الملف .. ممكن توضح الصورة اكثر افهم ماتقصد من المكرر
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 في 16/4/2016 at 13:09, عبدالسلام ابوالعوافي said: اعتقد ان المشكلة ليست صعبة .. المشكلة في عدم فهمي للسؤال .. لو تدخل بيانات في الشيتات الثلاث الاولي وتدخل النتائج التي تريدها في الشيت الرابع وترفع الملف .. ممكن توضح الصورة اكثر افهم ماتقصد من المكرر Expand copy.rar
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 تمام اخي الكريم .. لكن لدي سؤال .. ماذا لو كان عدد الصفوف في احدي الشيت الاول اكثر من الصفوف في الشيت الثاني ؟. اليس من المفترج ان يكون فيه عامل مشترك بين الصفوف كاسم الفايل مثلا العمود A 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 في 16/4/2016 at 13:23, عبدالسلام ابوالعوافي said: تمام اخي الكريم .. لكن لدي سؤال .. ماذا لو كان عدد الصفوف في احدي الشيت الاول اكثر من الصفوف في الشيت الثاني ؟. اليس من المفترج ان يكون فيه عامل مشترك بين الصفوف كاسم الفايل مثلا العمود A Expand من الممكن ان يحدث هذا في نظام العمل لدينا لانه عباره عن 3 اقسام وكل قسم قسم قدم خدمات فمن الممكن ان يكون رقم الفاتور 1 موجود بالصفحة 1 والصفحة 3 وغير موجود بالصفحة 2 فيفي الصفحة الرابعه سيقوم بتجميع الفاتورة بالسطر بمكان الصفحة 1 والصفحة 3 ومكان الصفحة 2 سيبقى فارغ لا العميل اخذ خدمتين فقط وليس 3 ولو تلاحظ ان العامود من A ل I مشترك في جميع الصفحات لكن انا ساخذ فقط القيمة هذه من الصفحة الاولى
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 فهمت الان ولم يبقى الا شي واحد .. هل العمود المشترك هو العمود A? ما اقصده .. ماهو الشي المشترك بين الشيتيات الثلاث والذي يعتبر كانه "المفتاح الاساسي" كمافي قواعد البيانات ؟
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 في 16/4/2016 at 13:36, عبدالسلام ابوالعوافي said: فهمت الان ولم يبقى الا شي واحد .. هل العمود المشترك هو العمود A? ما اقصده .. ماهو الشي المشترك بين الشيتيات الثلاث والذي يعتبر كانه "المفتاح الاساسي" كمافي قواعد البيانات ؟ Expand للاسف هذه اكبر مشكلة اواجهها لدرجة انني افكر بانشاء نظام كامل على البي اتش بي لايوجد مفتاح اساسي هنا لانه يمكن ان تتكرر رقم الفاتوره وهو العامود A لكن لو تكررت هنضطر ناخد اول واحد يعني مثل لو تكرر الرقم بالصف 4 والصف 5 والصف6 هناخد المعلومات اللي بتوزي الصف 4 اما 5 و 6 مش حيتم نسخهم في الصفحة الرابعه
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 تمام اخي ... ان شاء الله ارفعه لك اليوم 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 في 16/4/2016 at 13:44, عبدالسلام ابوالعوافي said: تمام اخي ... ان شاء الله ارفعه لك اليوم Expand شكرا اخوي في انتظارك
عبدالسلام ابوالعوافي قام بنشر أبريل 17, 2016 قام بنشر أبريل 17, 2016 اسف علي التاخير .. جرب اخي osamahreport2.rar 1
اسامة ابو عمر قام بنشر أبريل 17, 2016 الكاتب قام بنشر أبريل 17, 2016 في 17/4/2016 at 08:06, عبدالسلام ابوالعوافي said: اسف علي التاخير .. جرب اخي osamahreport2.rarFetching info... Expand شكرا لك اخوي ومعلش غلبتك معايا تقريبا وصلنا للحل بس لسه فيه مشاكل اول حاجه الصفحة التانية بكررها مرتين بالصفحة الرابعه ثاني حاجه لو قمت مثلا بتعبئية بيانات في الصفحة الاولى وثم ضغطت نسخ بالصفحة الرابعه ومن ثم قمت بتعبة بيانات بالصفحة الثانية وضغطت نسخ في الصفحة الرابعه فستري ان البيانات نزلت سطر وماجتش على نفس السطر
عبدالسلام ابوالعوافي قام بنشر أبريل 17, 2016 قام بنشر أبريل 17, 2016 اخي الحبيب .. حتى ابين لك طريقة العمل .. يقوم الكود بالاتي نسخ كل الخلايا من الشيت 1 الي الشيت 4 فحص كل خلية في العمود الاول في الشيت 2 اذا كان نفس الرقم موجود في الشيت الرابع فسيتم اضافة البيانات اذا كان الرقم غير موجود في الشيت الرابع فسيتم اضافة صف جديد وبالمثل للشيت الثالث قمت باعتبار العمود الاول هو المفتاح الاساسي هكذا فهمت طلبك .. 1
اسامة ابو عمر قام بنشر أبريل 17, 2016 الكاتب قام بنشر أبريل 17, 2016 في 17/4/2016 at 10:10, عبدالسلام ابوالعوافي said: اخي الحبيب .. حتى ابين لك طريقة العمل .. يقوم الكود بالاتي نسخ كل الخلايا من الشيت 1 الي الشيت 4 فحص كل خلية في العمود الاول في الشيت 2 اذا كان نفس الرقم موجود في الشيت الرابع فسيتم اضافة البيانات اذا كان الرقم غير موجود في الشيت الرابع فسيتم اضافة صف جديد وبالمثل للشيت الثالث قمت باعتبار العمود الاول هو المفتاح الاساسي هكذا فهمت طلبك .. Expand معلش اخوي ممكن المطلوب سهل بس انا مشعارف اوضح الصورة دلوقتي عندي اربع صفحات حلو ؟ الصفحة الاولى والثانية والثالثة كل واحد منهم تمثل قسم كما هما مسمين قسم الltr وقسم ال lhl وقسم الlfp هذه الاقسام لها فواتير فمثلا العميل احمد صاحب رقم الفاتور 1 قام باأخذ خدمات من الثلاث اقسام فالمعلومات من العامود A الى العمود I في الثلاث صفحات هيا نفسها الاختلاف يبدأ من العمود J الى العمود S لدينا الان العميل سامي ورقم الفاتورة 2 قام باخذ خدمات من القسم الاول والقسم الثالث ولم ياخذ خدمات من القسم الثاني دلوقتي عندنا الصفحة الرابعه وهي صفحة بتجمع البيانات من الصفحات الثلاثة انظر الى المرفق وكيف يجب ان تظهر المعلومات بالصفحة الرابعه تسجد السطر الثاني في الصفحة الرابعه فارغ عند معلومات ال ltr copy.rar
عبدالسلام ابوالعوافي قام بنشر أبريل 17, 2016 قام بنشر أبريل 17, 2016 اعتذر اخي .. يبدو اني ارسلت لك ملف اخر .. جرب هذا copy_2.rar
اسامة ابو عمر قام بنشر أبريل 17, 2016 الكاتب قام بنشر أبريل 17, 2016 في 17/4/2016 at 11:31, عبدالسلام ابوالعوافي said: اعتذر اخي .. يبدو اني ارسلت لك ملف اخر .. جرب هذا copy_2.rarFetching info... Expand شكرا جزيلا لك اخوي تقريبا ممكن وصلنا ل 90% من الحل حقوم الان بتعبئة المعلومات الحقيقة واجرب واشوف النتيجة النهائية بارك الله فيك اخوي وجزاك الله كل خير 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.