انشاء صفحة مراقبة

[رشبد]

بسم الله الرحمن الرحيم

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

الادارة.rar

[سليم حاصبيا]

جرب هذا الملف

و حاول تغيير اي بيانات في اي صفحة وانظر الى الصفحة "مراقبة"

الادارة salim.rar

[رشبد]

هذا جميل جميل رائع بس اريد تعديل بسيط 

عند ادخال اي بيان جديد لااريد ان ينشط صفحة المراقبة

وفقك الله لما فيه الخير للامة الاسلامية

تم تعديل أغسطس 25, 2016 بواسطه رشبد

[أبوعيد]

جرب هذا المرفق

 

الإدارة1.rar

[رشبد]

نعم اخي هذا ما اريد اتمنى لك التوفيق في عملك وعلمك

ان اتضح لي شيء ما  في الموضوع ساخبرك

تشكر

[رشبد]

استاد ابو عيد

كود منع تحديد خلايا هل ضروري في هذا الملف؟

مششكووووووور

 

تم تعديل أغسطس 25, 2016 بواسطه رشبد

[أبوعيد]

تم التعديل على الملف حتى تتمكن من تحديد عدة خلايا

جرب المرفق

الإدارة2.rar

[رشبد]

شكرا استاذ 

ادامكم الله وسسدد خطاكم

 

[أبوعيد]

عفوا أخ رشيد 

ظهر خطأ في المرفق الأخير تم تصحيحه هنا

تفضل

الإدارة3.rar

تم تعديل أغسطس 26, 2016 بواسطه أبوعيد

[وليد عبدالغني]

الاستاذ / أبوعيد

هل يمكن ان تتكرم فى ملف الادارة 3 وتحدد لي اسم الصفحة  التي يعمل عليها الكود

حيث اني حاولت ولم يوفقني الحظ ودائما يتم المراقبة الصفحة الاخيرة بصرف النظر عن الاسم

ولكم جميعا جزيل الشكر

[ياسر خليل أبو البراء]

أخي الكريم وليد عبد الغني

يرجى تغيير اسم الظهور للغة العربية

 

بعد إذن أخونا عيد قمت ببعض التعديلات الطفيفة على الكود ..

قم بالذهاب لمحرر الأكواد وفي نافذة المشروع انقر دبل كليك على الكائن ThisWorkbook وامسح الأكواد الموجودة وضع الكود التالي

Const sSheet As String = "Watch"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Ws      As Worksheet
    Dim LR      As Long
    
    If Sh.Name <> sSheet Then
        With Sheets(sSheet)
            LR = .Cells(Rows.Count, "A").End(xlUp).Row + 1

            If Target.Column < 10 And Target.Row > 1 Then
                .Cells(LR, 1) = ActiveSheet.Name
                .Cells(LR, 4) = Target.AddressLocal
                .Cells(LR, 7) = Target.Value
                .Cells(LR, 6) = .Cells(1, Columns.Count)
                .Cells(LR, 5) = Application.UserName
                .Cells(LR, 2) = Format(Date, "dd-mm-yyyy")
                .Cells(LR, 3) = Format(Now, "h:mm:ss")
            End If
        End With
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sheets(sSheet).Cells(1, Columns.Count).Value = ActiveCell.Value
End Sub

يمكنك تغيير اسم ورقة العمل المراد عملها كورقة مراقبة من خلال تغيير الاسم الموجود في السطر الرابع Watch إلى اسم ورقة العمل المطلوبة ، ولا تنسى أن تضع عناوين للورقة في الصف الأول

أرجو أن يفي هذا بالغرض

تقبل تحياتي

[وليد عبدالغني]

الاستاذ / ياسر خليل أبو البراء

جزيل الشكر علي سرعة الرد دوما جزاك اللة خيرا

لكن الملف يعطي خطا عند تعديل الكود

-2الإدارة3.rar

[أبوعيد]

[ياسر خليل أبو البراء]

الأخ وليد يبدو أنني نسيت أن هناك من الناس مازال متمسك بالأوفيس 2003 ..إلى الآن ..

عموماً يمكن استخدام أي عمود بعيد عن مجال البيانات ..أو الأفضل أن يكون الكود مرن ويتعامل مع أي نسخة للأوفيس

حتى لا أغرق الموضوع بمشاركات وأكواد يتوه فيها الأعضاء قمت بتعديل الكود السابق ، بحيث يصبح آخر عمود هو مرجع وحامل للخلية النشطة بصرف النظر عن الإصدار

جرب الكود مرة أخرى من المشاركة السابقة ...

[رشبد]

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

[ياسر خليل أبو البراء]

1 ساعه مضت, رشبد said:

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

وفقك الله أخي الكريم

يبدو أن اسم الظهور باللغة العربية لم يكتب بشكل صحيح تماماً أو أن عيني أصبحت لا ترى جيداً

وفقك الله أخي رشيد ودمت بود