كيف أعرف التغييرات التي جرت على الملف وخروج تقرير

[ريان أحمد]

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

لكن كيف أتمكن من إحصاء ومعرفة جميع التغييرات حتو وإن كانت نقطة

 

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

rr.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / ريان أحمد

بارك الله فيك

شاهد الملف المرفق ... جرب التعديل في الجدول في الشيت dd

وشاهد النتيجة في شيت  ( التعديلات  )

تقبل خالص تحياتي

 

 

 

Nouveau Feuille de calcul Microsoft Exce1l.rar

تم تعديل نوفمبر 13, 2013 بواسطه حمادة عمر

[حمادة عمر]

وايضا للعلم هذه الخاصية موجودة في 2007

وذلك من خلال الخيار ( تعقب التغييرات ) او ( Track Changes  ) كما في الصورة التالية

 

[ريان أحمد]

السلام عليكم

 

شكرا  لكن التغيير لا يتم في نفس الملف   التغيير يتم في ملف خارجي

 

 

 

حيث أنني أحتفظ دائما بالملف القديم قبل إجراء اتغيير ثم أفوم بجلب الملف الجديد وأقوم بنسخه مباشرة فوق القيديم

 

حيث أنني أريد أين تم التغيرر ماهي العناصر التي تم حذفها ماهي العناصر التي تمت إصافتها وكم هو العدد المصاف 

[ريان أحمد]

للرفع

[ريان أحمد]

للرفع

[احمد حبيبه]

كود رائع استاذى الرائع .. حماده ..ولى طلب عندك هل يمكن اضافه عامود يظهر فىه اسم ورقه العمل التى تم بها التعديل كما بالمرفق

Nouveau Feuille de calcul Microsoft Exce1l.rar

 

[ريان أحمد]

للرفع

[ريان أحمد]

up

[ريان أحمد]

للرفع

[حمادة عمر]

كود رائع استاذى الرائع .. حماده ..ولى طلب عندك هل يمكن اضافه عامود يظهر فىه اسم ورقه العمل التى تم بها التعديل كما بالمرفق

Nouveau Feuille de calcul Microsoft Exce1l.rar

 

السلام عليكم

الاخ الحبيب / Ahmed Habiba

بارك الله فيك

يتم تنفيذ طلبك اخي الكريم باضافة سطر بسيط للكود في الملف السابق وهو

        .Cells(LR, 5) = ActiveSheet.Name

ليكون الكود كالتالي كما هو في الملف المرفق

تقبل خالص تحياتي

 

 

Nouveau Feuille de calcul Microsoft Excel.rar

[حمادة عمر]

السلام عليكم

 

شكرا  لكن التغيير لا يتم في نفس الملف   التغيير يتم في ملف خارجي

 

 

 

حيث أنني أحتفظ دائما بالملف القديم قبل إجراء اتغيير ثم أفوم بجلب الملف الجديد وأقوم بنسخه مباشرة فوق القيديم

 

حيث أنني أريد أين تم التغيرر ماهي العناصر التي تم حذفها ماهي العناصر التي تمت إصافتها وكم هو العدد المصاف 

 

السلام عليكم

الاخ الكريم / ريان أحمد

بارك الله فيك

اليك طلبك علي حسب فهمي

قم بالتغيير في الملف الاساسي في المرفق سيتم تسجيل التغييرات في ملف آخر خارجي هو book1 بنفس الطريقة التي عرضتها عليك قبل ذلك

ملحوظة : يجب ان يكون الملف  book1  في نفس مجلد الملف الاساسي اي في نفس المسار

ليكون الكود كالتالي

Private Sub Worksheet_Change(ByVal Target As Range)
Dim File As String
''''''''''''''''
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 _
Or Target.Column = 4 Or Target.Column = 5 Or Target.Column = 6 _
Or Target.Column = 7 Or Target.Column = 8 And Not IsEmpty(Target) Then
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
'==============================
    File = ActiveWorkbook.Path & "\" & "book1.xls"
    Workbooks.Open File
LR = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1
  With Sheets("Sheet1")
        .Cells(LR, 1) = Target.Value
        .Cells(LR, 2) = Format(Now, "h:mm:ss")
        .Cells(LR, 3) = Format(Date, "dd-mm-yyyy")
        .Cells(LR, 4) = Target.AddressLocal
        .Cells(LR, 5) = ActiveSheet.Name
    End With: End If
   
   ActiveWorkbook.Save
   ActiveWorkbook.Close
'==============================
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

ارجو ان يفي بطلبك

تقبل خالص تحياتي

 

 

 

تتبع التغيرات في ملف وتسجيلها في ملف آخر.rar

تم تعديل نوفمبر 24, 2013 بواسطه حمادة عمر

[ريان أحمد]

السلام عليكم

 

الملف الذي أرفقته لك هو كمثال لكن الملف الأصلي الذي لدي  نطاقة من 1a لإلى bl 41000

 

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

[احمد حبيبه]

استاذى الكبير

حمادة عمر

اشكرك جدا فدائما رائع ومميز وفريد ... وايضا مبدع فى كل اعمالك

صديقى العزيز .. التعدل فى صفحة dd  يتم تسجيله بكفاءه لكن لماذا لا يتم تسجيل التعديلات التى تحدث فى الصفحات الاخرى

[حمادة عمر]

استاذى الكبير

حمادة عمر

اشكرك جدا فدائما رائع ومميز وفريد ... وايضا مبدع فى كل اعمالك

صديقى العزيز .. التعدل فى صفحة dd  يتم تسجيله بكفاءه لكن لماذا لا يتم تسجيل التعديلات التى تحدث فى الصفحات الاخرى

 

اخي الكريم

الكود الموجود بالمرفق يعمل فقط علي الصفحة المذكورة وليس علي كامل الملف

تقبل خالص تحياتي

[ريان أحمد]

up

[حمادة عمر]

اخي ريان

هل شاهدت الملف في المشاركة رقم 12

أو ارفق مثال لما تريد

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى حماده

دائما لديك حلول

جزاك الله خير على كل معلومه واضافه

سلمت يداك

[حمادة عمر]

السلام عليكم

اخى حماده

دائما لديك حلول

جزاك الله خير على كل معلومه واضافه

سلمت يداك

 

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

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

[احمد حبيبه]

 

 

اخى الحبيب حماده عمر

هل يمكن ضبط هذا الكود الرائع بحيث يتم معرفة التعديلات في اعمده معينة  وليست متتالية .... مثلا الاعمدة A. ; g ,k , y , z

تم تعديل يناير 10, 2014 بواسطه Ahmed Habiba

[حمادة عمر]

السلام عليكم

الاخ الكريم / Ahmed Habiba

بارك الله فيك

يمكنك تنفيذ ذلك اخي الكريم بوضع ارقام الاعمدة التي تريدها في الكود .. كما يلي

ولتنفيذ طلبك

قم باستبدال الكود الموجود لديك ( في المشاركة رقم  11 # ) بالكود التالي لتنفيذ طلبك

Private Sub Worksheet_Change(ByVal Target As Range)
LR = Sheets("تعديلات").Cells(Rows.Count, "A").End(xlUp).Row + 1
If Target.Column = 1 Or Target.Column = 7 Or Target.Column = 11 _
Or Target.Column = 25 Or Target.Column = 26 And Not IsEmpty(Target) Then
  With Sheets("تعديلات")
        .Cells(LR, 1) = Target.Value
        .Cells(LR, 2) = Format(Now, "h:mm:ss")
        .Cells(LR, 3) = Format(Date, "dd-mm-yyyy")
        .Cells(LR, 4) = Target.AddressLocal
        .Cells(LR, 5) = ActiveSheet.Name
    End With: End If
End Sub

تقبل خالص تحياتي

[احمد حبيبه]

اخى العزيز... رجاء ضبط الكود كما  بالمرفق ..... وشكرا لك

الملف الاساسي.rar

[احمد حبيبه]

Up

[احمد حبيبه]

Up

[احمد حبيبه]

up