مساعدة في عملية النسخ

[اسامة ابو عمر]

السلام عليكم

في الملف وفي الصفحة الرابعه يوجد زر يقوم بنقل المعلومات وتجميعها من ال3 صفحات الاخري ( قام الاخ اخوكم بالله مشكورا بمساعدتي )

الان لدي بعض المشاكل 

اولا لو قمت بكاتبة سطر واحد فقط بالصفحات الثلاثة  وقمت بالصفحة الرابعه بالضغط على زر نسخ سيقوم بنقل البيانات ولو قمت مرة اخرى بضغط الزر فسيقوم بتكرار النسخ فكل ما اضغط على الزر يقوم بتكرار النسخ 

ثانيا لو قمت بتعبئة سطرين من الصفحة الاولي وسطر باصفحة الثانية وسطر بالصفحة الثالثة فانه سيقوم بنقل سطرين من الصفحة الاولى وسطر من الصفحة الثانية والثالثة وتكرارهما

ثالثا انا اريد كل يوم ان اقوم بعملية النسخ لانه كل يوم يحدث تعبئة بيانات فلا اريد ان يحدث تكرار يومي او نسخ مكرر فما هي الالية لهذه العملية ؟؟؟

osamahreport2.rar

[اسامة ابو عمر]

up

[اسامة ابو عمر]

هل من مساعدة جزاكم الله خير ا ؟؟

[عبدالسلام ابوالعوافي]

افهم من كلامك انك تريد نسخ الصفحات الثلاث في الصفحة الرابعة بدون تكرار؟

اذا كان هذا طلبك فهو بسيط ان شاء الله .. فقط اريد التاكيد منك

[اسامة ابو عمر]

49 دقائق مضت, عبدالسلام ابوالعوافي 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

جرب اخي

[اسامة ابو عمر]

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

جرب اخي

للاسف اخوي جربت ووضعت الكود بالموديل وكل ما اضغط الزر بيكرر عملية النسخ لنفس البيانات

[عبدالسلام ابوالعوافي]

الكود يقوم بالاتي 

حذف كل الصفوف في الشيت الرابع 

نسخ الصفوف من كل الشيتات ولصقها في الشيت الرابع 

هل هذا ماتريد؟ 

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

اتمنى التوضيح

هل قمت بتغيير الماكرو في المستطيل الي Copying?

 

تم تعديل أبريل 16, 2016 بواسطه عبدالسلام ابوالعوافي

[اسامة ابو عمر]

7 دقائق مضت, عبدالسلام ابوالعوافي said:

الكود يقوم بالاتي 

حذف كل الصفوف في الشيت الرابع 

نسخ الصفوف من كل الشيتات ولصقها في الشيت الرابع 

هل هذا ماتريد؟ 

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

اتمنى التوضيح

هل قمت بتغيير الكود في المستطيل الي Copying?

 

 شكرا ليك على اهتمامك اخوي

اخي بالمف المرفق باول رد يوجد كود نسخ يقوم بنسخ المعلومات من الصفحات الثالثة الى الصفحة الرابعه

لكن المشكلة انه كلما اقوم بضغط الزر يقوم بعملية النسخ وتكرار المعلومات وان الست بحاجه الى عملية التكرار هذه بل انها تسبب مشاكل كبيره

[عبدالسلام ابوالعوافي]

osamahreport2.rar

[اسامة ابو عمر]

32 دقائق مضت, عبدالسلام ابوالعوافي said:

osamahreport2.rar

عملية منع التكرار زبطت 

لكن حدث هناك مشكلة في مكان نقل البينات

فعند تعبة سطر من كل شيت يجب ان يتم نسخم بالشيت الرابعه بسطر واحد وليس بثلاث اسطر

لان الشيت الاول لها عدد من الاعمدة بالشيت الرابع والضيت الثاني نفس الشيء والثالث نفسي الشيء وهذا الموضوع تم طرحه بالسابق 

 

[عبدالسلام ابوالعوافي]

اعتقد ان المشكلة ليست صعبة .. المشكلة في عدم فهمي للسؤال .. لو تدخل بيانات في الشيتات الثلاث الاولي وتدخل النتائج التي تريدها في الشيت الرابع وترفع الملف .. ممكن توضح الصورة اكثر افهم ماتقصد من المكرر

[اسامة ابو عمر]

4 دقائق مضت, عبدالسلام ابوالعوافي said:

اعتقد ان المشكلة ليست صعبة .. المشكلة في عدم فهمي للسؤال .. لو تدخل بيانات في الشيتات الثلاث الاولي وتدخل النتائج التي تريدها في الشيت الرابع وترفع الملف .. ممكن توضح الصورة اكثر افهم ماتقصد من المكرر

 

copy.rar

[عبدالسلام ابوالعوافي]

تمام اخي الكريم .. لكن لدي سؤال .. ماذا لو كان عدد الصفوف في احدي الشيت الاول اكثر من الصفوف في الشيت الثاني ؟. اليس من المفترج ان يكون فيه عامل مشترك بين الصفوف كاسم الفايل مثلا

العمود A

 

[اسامة ابو عمر]

2 دقائق مضت, عبدالسلام ابوالعوافي said:

تمام اخي الكريم .. لكن لدي سؤال .. ماذا لو كان عدد الصفوف في احدي الشيت الاول اكثر من الصفوف في الشيت الثاني ؟. اليس من المفترج ان يكون فيه عامل مشترك بين الصفوف كاسم الفايل مثلا

العمود A

 

من الممكن ان يحدث هذا في نظام العمل لدينا

لانه عباره عن 3 اقسام وكل قسم قسم قدم خدمات

فمن الممكن ان يكون رقم الفاتور 1 موجود بالصفحة 1 والصفحة 3 وغير موجود بالصفحة 2 

فيفي الصفحة الرابعه سيقوم بتجميع الفاتورة بالسطر بمكان الصفحة 1 والصفحة 3 ومكان الصفحة 2 سيبقى فارغ لا العميل اخذ خدمتين فقط وليس 3 

ولو تلاحظ ان العامود من A ل I مشترك في جميع الصفحات لكن انا ساخذ فقط القيمة هذه من الصفحة الاولى

[عبدالسلام ابوالعوافي]

فهمت الان ولم يبقى الا شي واحد .. هل العمود المشترك هو العمود 

A?

ما اقصده .. ماهو الشي المشترك بين الشيتيات الثلاث والذي يعتبر كانه "المفتاح الاساسي" كمافي قواعد البيانات ؟

[اسامة ابو عمر]

1 دقيقه مضت, عبدالسلام ابوالعوافي said:

فهمت الان ولم يبقى الا شي واحد .. هل العمود المشترك هو العمود 

A?

ما اقصده .. ماهو الشي المشترك بين الشيتيات الثلاث والذي يعتبر كانه "المفتاح الاساسي" كمافي قواعد البيانات ؟

للاسف هذه اكبر مشكلة اواجهها لدرجة انني افكر بانشاء نظام كامل على البي اتش بي

لايوجد مفتاح اساسي هنا لانه يمكن ان تتكرر رقم الفاتوره وهو العامود A  

لكن لو تكررت هنضطر ناخد اول واحد

يعني مثل لو تكرر الرقم بالصف 4 والصف 5 والصف6 هناخد المعلومات اللي بتوزي الصف 4  اما 5 و 6 مش حيتم نسخهم في الصفحة الرابعه

[عبدالسلام ابوالعوافي]

تمام اخي ... ان شاء الله ارفعه لك اليوم

[اسامة ابو عمر]

6 ساعات مضت, عبدالسلام ابوالعوافي said:

تمام اخي ... ان شاء الله ارفعه لك اليوم

شكرا اخوي

في انتظارك

[عبدالسلام ابوالعوافي]

اسف علي التاخير .. جرب اخي

osamahreport2.rar

[اسامة ابو عمر]

31 دقائق مضت, عبدالسلام ابوالعوافي said:

اسف علي التاخير .. جرب اخي

osamahreport2.rar

شكرا لك اخوي ومعلش غلبتك معايا

تقريبا وصلنا للحل بس لسه فيه مشاكل

اول حاجه الصفحة التانية بكررها مرتين بالصفحة الرابعه

ثاني حاجه لو قمت مثلا بتعبئية بيانات في الصفحة الاولى وثم ضغطت نسخ بالصفحة الرابعه ومن ثم قمت بتعبة بيانات بالصفحة الثانية وضغطت نسخ في الصفحة الرابعه فستري ان  البيانات نزلت سطر وماجتش على نفس السطر

[عبدالسلام ابوالعوافي]

اخي الحبيب .. حتى ابين لك طريقة العمل .. يقوم الكود بالاتي

 نسخ كل الخلايا من الشيت 1 الي الشيت 4

فحص كل خلية في العمود الاول في الشيت 2 

اذا كان نفس الرقم موجود في الشيت الرابع فسيتم اضافة البيانات 

اذا كان الرقم غير موجود في الشيت الرابع فسيتم اضافة صف جديد

وبالمثل للشيت الثالث

قمت باعتبار العمود الاول هو المفتاح الاساسي 

هكذا فهمت طلبك .. 

 

[اسامة ابو عمر]

38 دقائق مضت, عبدالسلام ابوالعوافي said:

اخي الحبيب .. حتى ابين لك طريقة العمل .. يقوم الكود بالاتي

 نسخ كل الخلايا من الشيت 1 الي الشيت 4

فحص كل خلية في العمود الاول في الشيت 2 

اذا كان نفس الرقم موجود في الشيت الرابع فسيتم اضافة البيانات 

اذا كان الرقم غير موجود في الشيت الرابع فسيتم اضافة صف جديد

وبالمثل للشيت الثالث

قمت باعتبار العمود الاول هو المفتاح الاساسي 

هكذا فهمت طلبك .. 

 

معلش اخوي ممكن المطلوب سهل بس انا مشعارف اوضح الصورة

دلوقتي عندي اربع صفحات

حلو ؟

الصفحة الاولى والثانية والثالثة  كل واحد منهم تمثل قسم كما هما مسمين

قسم الltr وقسم ال lhl وقسم الlfp

هذه الاقسام لها فواتير فمثلا العميل احمد صاحب رقم الفاتور 1 قام باأخذ خدمات من الثلاث اقسام فالمعلومات من العامود A الى العمود I  في الثلاث صفحات هيا نفسها الاختلاف يبدأ من العمود J الى العمود S 

لدينا الان العميل سامي ورقم الفاتورة 2 قام باخذ خدمات من القسم الاول والقسم الثالث ولم ياخذ خدمات  من القسم الثاني

دلوقتي عندنا الصفحة الرابعه وهي صفحة بتجمع البيانات من الصفحات الثلاثة 

انظر الى المرفق وكيف يجب ان تظهر المعلومات بالصفحة الرابعه

تسجد السطر الثاني في الصفحة الرابعه فارغ عند معلومات ال ltr

copy.rar

[عبدالسلام ابوالعوافي]

اعتذر اخي .. يبدو اني ارسلت لك ملف اخر .. جرب هذا

copy_2.rar

[اسامة ابو عمر]

4 ساعات مضت, عبدالسلام ابوالعوافي said:

اعتذر اخي .. يبدو اني ارسلت لك ملف اخر .. جرب هذا

copy_2.rar

شكرا جزيلا لك اخوي 

تقريبا ممكن وصلنا ل 90% من  الحل

حقوم الان بتعبئة المعلومات الحقيقة واجرب واشوف النتيجة النهائية

بارك الله فيك اخوي وجزاك الله كل خير