جلب التغييرات الحاصلة في الملف

[ريان أحمد]

لديا ملف كل شهر يجري عليه تغيير سواء في في عدد الصفوف أو تغيير في معلومات الخلايا أما في ما يخص عدد الأعمدة فثابت  يتغير

 

أريد إكتشاف التغييرا بمجرد نسخ الملف الجديد في ورقة جديدة ومقارنته بالملف القديم الذي يكون بورقة أخرى

 

 

الورقتين bd1 bd2

Classeur1.rar

[طارق محمود]

السلام عليكم

بالتسيق الشرطي

تفضل

 

Classeur1_2.rar

[ريان أحمد]

أستاذي القدير

 

لم يعمل عندي الملف قمت بنسخ الملف ولم يتغير شيئ

[طارق محمود]

يبدو أنها لاتعمل مع إكسل 2003

إذا عندك 2007 أو مافوقه

ظلل المساحة في الورقة الثانية bd2 من أول خلية A1 حتي آخر خلية بها بيانات ، علي أن تكون الخلية النشطة (التي تبدأ من عندها التظليل) هي A1

ثم ضع الشرط التالي في التنسيق الشرطي

=A1<>'bd1'!A1

أو تفضل الملف xlsx

Classeur1_2.rar

[ريان أحمد]

  بل أعمل على 2003

[ريان أحمد]

للرفع

[ريان أحمد]

كتبت تغييرات

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

[طارق محمود]

السلام عليكم

أخي العزيز

جرب الكود التالي في حدث الورقة bd2

ممكن تغير الرقم 23 لرقم اللون الذي تحب

Private Sub Worksheet_Activate()
For Each ce In Range("A1:" & Cells.SpecialCells(xlCellTypeLastCell).Address)
If ce.Value <> Sheet1.Range(ce.Address) Then
    ce.Interior.ColorIndex = 23
End If
Next
End Sub

أو تفضل المرفق

 

Classeur1_3.rar

[ريان أحمد]

السلام عليكم

جزاك الله كل خير سأجربه وسأعطيك ملاحظاتي

[ريان أحمد]

السلام عليكم

 

ماهو المدى الذي يعمل به الكود ليسجل التغييرات

 

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

[ريان أحمد]

للرفع

[طارق محمود]

السلام عليكم

عفو أخي العزيز

تأخرت عليك

 

ماهو المدى الذي يعمل به الكود ليسجل التغييرات

 

المدي هو كل المدي المستخدم في الورقة الثانية

هذا التعبير

Cells.SpecialCells(xlCellTypeLastCell

يعني الخلية الأخيرة في جميع الخلايا

 

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

 

نعم ينجح فقط تحتاج الخروج ثم الدخول للورقة فقط (وليس الملف)

يعني تذهب مثلا للورقة الأولي ثم تعود للثانية

لأن الكود يتم تفعيله أوتوماتيكيا عند تنشيط الورقة الثانية

Private Sub Worksheet_Activate

[ريان أحمد]

قاعدة البيانات التي عندي فيها 30 ألف يعني  مجرد ـن أذهب إلى bd1 وأرجع إلى bd2يستغرق الملف وقت للعمل لكير الملف ثانيا هو لم يقم يمقارنة  

 

وهذا ما أريده بحيث يقوم بمقارنة مع bd1

[طارق محمود]

أخي الكريم

عندك حلين

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

وإما أن ترسل لي الملف كما هو ، يمكن أري له رأيا آخر

 

ثانيا هو لم يقم يمقارنة وهذا ما أريده بحيث يقوم بمقارنة مع bd1

 

لا ياأخي الملف يعمل جيدا ويبدو أنك لاتستطيع العمل عليه لمشكلة عندك أو في جهازك

أفضل أن ترسل لي الملف كما هو