اسامة ابو عمر

up

up

السلام عليكم

في الملف المرفق ادناه

لدي جدول حضور يومي

يتم ادخال الحضور والغياب بشكل دائم كل يوم خميس

اريد عند انتهاء يوم الخميس ان لايستيطع احد ادخال او تعديل القيم التى ادخلت قبل هذا التاريخ

يعني مثلا عندي احد واثنين وثلاثاء واربعاء وخميس بعد انتهاء يوم الخميس لا يستطيع احد التعديل او الادخال وهكذا في كل اسبوع 

مادة الحاسب الآلي القاضي.rar

14 ساعات مضت, سليم حاصبيا said:

انسخ هذه المعادلة الى j2  واسحب نزولاً

=IF(ISNA(MATCH($J2,$E$2:$E$669,0)),"",F2)

 

شكرا لك اخي سليم على المساعدة وبارك الله فيك

السلام عليكم

عندي اربع اعمدة E F G L 

اريد ان اقوم بمقارنة بين  العامود j والعامود E وفي حال تطابق القيم نسخ القيمة في العامود F بالعامود L 

حاولت استخدام الدالة 

=INDEX(F:F,MATCH(E:E,J:J,0))

لكن لم تنجح المحاولة

الملف مرفق 

vlookup.rar

شكرا اخوي على هذا البرنامج الرائع

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

up

up

هل من الصعب تطيبق المطلوب برمجيا على اكسل ؟؟؟

up

السلام عليكم

الملف والمرفق وبعد مساعدة الاخ عبد السلام أبو العوافي يوجد اربع صفحات

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

وهذه المعلومات سيتم  نسخها في الصفحة الرابعه في الاماكن المخصصة لها عن طريق زر نسخ

يعني بناخد من الصفحات  الشكل التالي 

أول حاجه من الصفحة الاولى اللي اسمها LFP  من العامود J الى العامود  S وانسخهم بصفحة ال IPD على نفس مكان الاعمدة

تاني حاجه من الصفحة الثانية اللي اسمها LTR من العامود T الى العامود  AB وانسخهم بصفحة ال IPD على نفس مكان الاعمدة

ثالث حاجه من الصفحة الثالثة اللي اسمها LHL من العامود AC الى العامود  AKوانسخهم بصفحة ال IPD على نفس مكان الاعمدة 

المشكلة ان البيانات مش مرتبة بالصفحات الثالثة دول 

يعني مثلا السطر الاول بالصفحة الاول ويحمل رقم الفاتور 30581 موجود بالصفحة الاولى بالسطر 4 انما بالصفحة الثانية وجوده بالسطر 41 بينما بالصفحة الثالثة مش موجود 

فانا عايز يتم نسخ البيانات  بناء على رقم الفاتورة اللي هو عامود A ولو فيه تكرار ياخد اول قيمة مكررة ويسنخها

new reoprt impo.rar

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

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

copy_2.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

حلو ؟

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

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

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

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

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

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

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

copy.rar

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

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

osamahreport2.rar

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

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

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

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

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

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

شكرا اخوي

في انتظارك

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

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

A?

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

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

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

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

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

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

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

العمود A

 

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

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

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

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

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

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

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

copy.rar

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

osamahreport2.rar

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

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

جرب اخي

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

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

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

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

نعم اخوي

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

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

up

ما شاء الله اخي ابو البراء 

مبدع دائما

جزاك الله كل خير