اسامة ابو عمر قام بنشر أبريل 14, 2016 قام بنشر أبريل 14, 2016 السلام عليكم في الملف وفي الصفحة الرابعه يوجد زر يقوم بنقل المعلومات وتجميعها من ال3 صفحات الاخري ( قام الاخ اخوكم بالله مشكورا بمساعدتي ) الان لدي بعض المشاكل اولا لو قمت بكاتبة سطر واحد فقط بالصفحات الثلاثة وقمت بالصفحة الرابعه بالضغط على زر نسخ سيقوم بنقل البيانات ولو قمت مرة اخرى بضغط الزر فسيقوم بتكرار النسخ فكل ما اضغط على الزر يقوم بتكرار النسخ ثانيا لو قمت بتعبئة سطرين من الصفحة الاولي وسطر باصفحة الثانية وسطر بالصفحة الثالثة فانه سيقوم بنقل سطرين من الصفحة الاولى وسطر من الصفحة الثانية والثالثة وتكرارهما ثالثا انا اريد كل يوم ان اقوم بعملية النسخ لانه كل يوم يحدث تعبئة بيانات فلا اريد ان يحدث تكرار يومي او نسخ مكرر فما هي الالية لهذه العملية ؟؟؟ osamahreport2.rar
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 هل من مساعدة جزاكم الله خير ا ؟؟
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 افهم من كلامك انك تريد نسخ الصفحات الثلاث في الصفحة الرابعة بدون تكرار؟ اذا كان هذا طلبك فهو بسيط ان شاء الله .. فقط اريد التاكيد منك 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 49 دقائق مضت, عبدالسلام ابوالعوافي said: افهم من كلامك انك تريد نسخ الصفحات الثلاث في الصفحة الرابعة بدون تكرار؟ اذا كان هذا طلبك فهو بسيط ان شاء الله .. فقط اريد التاكيد منك نعم اخوي الكود جاهز للنسخ لكن كلما اقوم بالضغط على الزر يقوم بتكرار النسخ انا فقط اريد نسخ المعلومات الجديدة
عبدالسلام ابوالعوافي قام بنشر أبريل 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 29 دقائق مضت, عبدالسلام ابوالعوافي 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 جرب اخي للاسف اخوي جربت ووضعت الكود بالموديل وكل ما اضغط الزر بيكرر عملية النسخ لنفس البيانات
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 (معدل) الكود يقوم بالاتي حذف كل الصفوف في الشيت الرابع نسخ الصفوف من كل الشيتات ولصقها في الشيت الرابع هل هذا ماتريد؟ اما اذا كان طلبك شي اخر فهذا يعني ان لم افهم ماتقصد اتمنى التوضيح هل قمت بتغيير الماكرو في المستطيل الي Copying? تم تعديل أبريل 16, 2016 بواسطه عبدالسلام ابوالعوافي 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 7 دقائق مضت, عبدالسلام ابوالعوافي said: الكود يقوم بالاتي حذف كل الصفوف في الشيت الرابع نسخ الصفوف من كل الشيتات ولصقها في الشيت الرابع هل هذا ماتريد؟ اما اذا كان طلبك شي اخر فهذا يعني ان لم افهم ماتقصد اتمنى التوضيح هل قمت بتغيير الكود في المستطيل الي Copying? شكرا ليك على اهتمامك اخوي اخي بالمف المرفق باول رد يوجد كود نسخ يقوم بنسخ المعلومات من الصفحات الثالثة الى الصفحة الرابعه لكن المشكلة انه كلما اقوم بضغط الزر يقوم بعملية النسخ وتكرار المعلومات وان الست بحاجه الى عملية التكرار هذه بل انها تسبب مشاكل كبيره
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 32 دقائق مضت, عبدالسلام ابوالعوافي said: osamahreport2.rar عملية منع التكرار زبطت لكن حدث هناك مشكلة في مكان نقل البينات فعند تعبة سطر من كل شيت يجب ان يتم نسخم بالشيت الرابعه بسطر واحد وليس بثلاث اسطر لان الشيت الاول لها عدد من الاعمدة بالشيت الرابع والضيت الثاني نفس الشيء والثالث نفسي الشيء وهذا الموضوع تم طرحه بالسابق
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 اعتقد ان المشكلة ليست صعبة .. المشكلة في عدم فهمي للسؤال .. لو تدخل بيانات في الشيتات الثلاث الاولي وتدخل النتائج التي تريدها في الشيت الرابع وترفع الملف .. ممكن توضح الصورة اكثر افهم ماتقصد من المكرر
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 4 دقائق مضت, عبدالسلام ابوالعوافي said: اعتقد ان المشكلة ليست صعبة .. المشكلة في عدم فهمي للسؤال .. لو تدخل بيانات في الشيتات الثلاث الاولي وتدخل النتائج التي تريدها في الشيت الرابع وترفع الملف .. ممكن توضح الصورة اكثر افهم ماتقصد من المكرر copy.rar
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 تمام اخي الكريم .. لكن لدي سؤال .. ماذا لو كان عدد الصفوف في احدي الشيت الاول اكثر من الصفوف في الشيت الثاني ؟. اليس من المفترج ان يكون فيه عامل مشترك بين الصفوف كاسم الفايل مثلا العمود A 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 2 دقائق مضت, عبدالسلام ابوالعوافي said: تمام اخي الكريم .. لكن لدي سؤال .. ماذا لو كان عدد الصفوف في احدي الشيت الاول اكثر من الصفوف في الشيت الثاني ؟. اليس من المفترج ان يكون فيه عامل مشترك بين الصفوف كاسم الفايل مثلا العمود A من الممكن ان يحدث هذا في نظام العمل لدينا لانه عباره عن 3 اقسام وكل قسم قسم قدم خدمات فمن الممكن ان يكون رقم الفاتور 1 موجود بالصفحة 1 والصفحة 3 وغير موجود بالصفحة 2 فيفي الصفحة الرابعه سيقوم بتجميع الفاتورة بالسطر بمكان الصفحة 1 والصفحة 3 ومكان الصفحة 2 سيبقى فارغ لا العميل اخذ خدمتين فقط وليس 3 ولو تلاحظ ان العامود من A ل I مشترك في جميع الصفحات لكن انا ساخذ فقط القيمة هذه من الصفحة الاولى
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 فهمت الان ولم يبقى الا شي واحد .. هل العمود المشترك هو العمود A? ما اقصده .. ماهو الشي المشترك بين الشيتيات الثلاث والذي يعتبر كانه "المفتاح الاساسي" كمافي قواعد البيانات ؟
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 1 دقيقه مضت, عبدالسلام ابوالعوافي said: فهمت الان ولم يبقى الا شي واحد .. هل العمود المشترك هو العمود A? ما اقصده .. ماهو الشي المشترك بين الشيتيات الثلاث والذي يعتبر كانه "المفتاح الاساسي" كمافي قواعد البيانات ؟ للاسف هذه اكبر مشكلة اواجهها لدرجة انني افكر بانشاء نظام كامل على البي اتش بي لايوجد مفتاح اساسي هنا لانه يمكن ان تتكرر رقم الفاتوره وهو العامود A لكن لو تكررت هنضطر ناخد اول واحد يعني مثل لو تكرر الرقم بالصف 4 والصف 5 والصف6 هناخد المعلومات اللي بتوزي الصف 4 اما 5 و 6 مش حيتم نسخهم في الصفحة الرابعه
عبدالسلام ابوالعوافي قام بنشر أبريل 16, 2016 قام بنشر أبريل 16, 2016 تمام اخي ... ان شاء الله ارفعه لك اليوم 1
اسامة ابو عمر قام بنشر أبريل 16, 2016 الكاتب قام بنشر أبريل 16, 2016 6 ساعات مضت, عبدالسلام ابوالعوافي said: تمام اخي ... ان شاء الله ارفعه لك اليوم شكرا اخوي في انتظارك
عبدالسلام ابوالعوافي قام بنشر أبريل 17, 2016 قام بنشر أبريل 17, 2016 اسف علي التاخير .. جرب اخي osamahreport2.rar 1
اسامة ابو عمر قام بنشر أبريل 17, 2016 الكاتب قام بنشر أبريل 17, 2016 31 دقائق مضت, عبدالسلام ابوالعوافي said: اسف علي التاخير .. جرب اخي osamahreport2.rar شكرا لك اخوي ومعلش غلبتك معايا تقريبا وصلنا للحل بس لسه فيه مشاكل اول حاجه الصفحة التانية بكررها مرتين بالصفحة الرابعه ثاني حاجه لو قمت مثلا بتعبئية بيانات في الصفحة الاولى وثم ضغطت نسخ بالصفحة الرابعه ومن ثم قمت بتعبة بيانات بالصفحة الثانية وضغطت نسخ في الصفحة الرابعه فستري ان البيانات نزلت سطر وماجتش على نفس السطر
عبدالسلام ابوالعوافي قام بنشر أبريل 17, 2016 قام بنشر أبريل 17, 2016 اخي الحبيب .. حتى ابين لك طريقة العمل .. يقوم الكود بالاتي نسخ كل الخلايا من الشيت 1 الي الشيت 4 فحص كل خلية في العمود الاول في الشيت 2 اذا كان نفس الرقم موجود في الشيت الرابع فسيتم اضافة البيانات اذا كان الرقم غير موجود في الشيت الرابع فسيتم اضافة صف جديد وبالمثل للشيت الثالث قمت باعتبار العمود الاول هو المفتاح الاساسي هكذا فهمت طلبك .. 1
اسامة ابو عمر قام بنشر أبريل 17, 2016 الكاتب قام بنشر أبريل 17, 2016 38 دقائق مضت, عبدالسلام ابوالعوافي said: اخي الحبيب .. حتى ابين لك طريقة العمل .. يقوم الكود بالاتي نسخ كل الخلايا من الشيت 1 الي الشيت 4 فحص كل خلية في العمود الاول في الشيت 2 اذا كان نفس الرقم موجود في الشيت الرابع فسيتم اضافة البيانات اذا كان الرقم غير موجود في الشيت الرابع فسيتم اضافة صف جديد وبالمثل للشيت الثالث قمت باعتبار العمود الاول هو المفتاح الاساسي هكذا فهمت طلبك .. معلش اخوي ممكن المطلوب سهل بس انا مشعارف اوضح الصورة دلوقتي عندي اربع صفحات حلو ؟ الصفحة الاولى والثانية والثالثة كل واحد منهم تمثل قسم كما هما مسمين قسم الltr وقسم ال lhl وقسم الlfp هذه الاقسام لها فواتير فمثلا العميل احمد صاحب رقم الفاتور 1 قام باأخذ خدمات من الثلاث اقسام فالمعلومات من العامود A الى العمود I في الثلاث صفحات هيا نفسها الاختلاف يبدأ من العمود J الى العمود S لدينا الان العميل سامي ورقم الفاتورة 2 قام باخذ خدمات من القسم الاول والقسم الثالث ولم ياخذ خدمات من القسم الثاني دلوقتي عندنا الصفحة الرابعه وهي صفحة بتجمع البيانات من الصفحات الثلاثة انظر الى المرفق وكيف يجب ان تظهر المعلومات بالصفحة الرابعه تسجد السطر الثاني في الصفحة الرابعه فارغ عند معلومات ال ltr copy.rar
عبدالسلام ابوالعوافي قام بنشر أبريل 17, 2016 قام بنشر أبريل 17, 2016 اعتذر اخي .. يبدو اني ارسلت لك ملف اخر .. جرب هذا copy_2.rar
اسامة ابو عمر قام بنشر أبريل 17, 2016 الكاتب قام بنشر أبريل 17, 2016 4 ساعات مضت, عبدالسلام ابوالعوافي said: اعتذر اخي .. يبدو اني ارسلت لك ملف اخر .. جرب هذا copy_2.rar شكرا جزيلا لك اخوي تقريبا ممكن وصلنا ل 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.