طلب مساعدة في تعديل كود يعمل عند فتح الاكسل

[ابو ياسر2]

السلام عليكم ورحمة الله وبركاتة

ممكن مساعدتي في تعديل هذا الكود نسخ عمود A الي العمود B   يعمل  تلقائي عند فتح الاكسل

 

 

Private Sub Worksheet_Open()

    If Not stopped Then

        With Range("A1", Cells(Rows.Count, "A").End(xlUp))

            Range("B1").Resize(.Rows.Count).Value = .Value

        End With

       

    End If

End Sub

 

[طارق محمود]

السلام عليكم

أخي الكريم
عدل الكود ليصبح كالتالي

 

Private Sub Worksheet_Activate()
        With Range("A1", Cells(Rows.Count, "A").End(xlUp))
            Range("B1").Resize(.Rows.Count).Value = .Value
        End With
End Sub

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

أخي الكريم

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

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

 

يرجى وضع الكود بين أقواس الكود ليظهر بشكل منضبط كما يتم في مشاركتي بعد قليل

يرجى معرفة مصدر الكود - لأني أول مرة أشوف حاجة اسمها Worksheet_open مفيش حدث اسمه كدا

 

قمت بإزالة الأجزاء الغير ضرورية بالكود والتي ليس لها فائدة والابقاء على ما يؤدي الهدف فقط

جرب الكود التالي

Private Sub Workbook_Open()
    With Range("A1", Cells(Rows.Count, "A").End(xlUp))
        Range("B1").Resize(.Rows.Count).Value = .Value
    End With
End Sub

يوضع الكود في حدث المصنف أي Workbook

 

لا تنسى أن تحدد أفضل إجابة في حالة أن تم حل المشكلة وأن تضغط على كلمة "أعجبني هذا "في حالة أعجبتك المشاركة وأعجبك الحل

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

الباشمهندس الحبيب الغالي المقرب لقلبي طارق

أعتذر لم أرى مشاركتك إلا بعد إضافة مشاركتي ..

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

[طارق محمود]

ولايهمك أبا البراء

كما اتفقنا كثيرا لااعتذار ولايحزنون

المهم السائل يستفيد

=================

عشان مافيش حاجة اسمها Worksheet_open

توقعت ان يكون السائل مبتديء (كما كنا جميعا)

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

ولكن يبدو ان كلامك انت الاصح

تقبل ودي واحترامي

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

أستاذي ومعلمي طارق

أنا مؤمن بمبدأ "إذا حضر الماء بطل التيمم " فإذا حضرت بطل وجودي وأصبح لا قيمة له .. إذ أنه لا قيمة للتلميذ في وجود معلمه

تقبل الله منا ومنكم صالح الأعمال

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

[ابو ياسر2]

ألف شكر علي مساعدتي وانا لسا مبتدي و اسف لو اتعبتكم

اخي طارق محمود عند وضع الكود ظهرت لي رسالة خطاء

 

[ابو ياسر2]

اخي ياسر كيف جعل الكود يعمل مع الورقة  sheet4 

اتمنا تشاهد الملف المرفق

auto copy.rar

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

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

auto copy.rar

[ابو ياسر2]

ألف شكر اخي ياسر

الكود شغال ويعمل بدون مشكلة

[ابو ياسر2]

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

Private Sub Worksheet_Activate()

ActiveSheet.Unprotect Password:="123456"
With Range("AH1", Cells(Rows.Count, "AH").End(xlUp))
Range("AM1").Resize(.Rows.Count).Value = .Value
End With
ActiveSheet.Protect Password:="123456"
End Sub






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

وكيف واضع الكود بين اقواس حتي يظهر كما انت تضعة في الموضوع

تم تعديل يوليو 24, 2015 بواسطه etheer

[ابو ياسر2]

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

sheet 4

وهي مخفية

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

يرجى يرجى يرجى .. وضع الأكواد بين أقواس تنصيص الكود <> ، كما يرجى تغيير اسم الظهور للغة العربية

--------------------

هل تقصد الورقة مخفية أم محمية ؟

الأمر يختلف ..

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

وفي النهاية سطر للإخفاء مرة أخرى

ولكن السؤال ... الذي يجب أن نفكر فيه كيف سيتم تنفيذ الكود وتنفيذ الكود مرتبط بتنشيط ورقة العمل وورقة العمل مخفية

 

إذاً أعتقد أنك تقصد أن الورقة محمية والكود الذي أرفقته يفي بالغرض في هذه الحالة

Private Sub Worksheet_Activate()
    ActiveSheet.Unprotect Password:="123456"
    With Range("AH1", Cells(Rows.Count, "AH").End(xlUp))
        Range("AM1").Resize(.Rows.Count).Value = .Value
    End With
    ActiveSheet.Protect Password:="123456"
End Sub

يرجى مراعاة الدقة في اللفظ لتتضح الأمور

[ابو ياسر2]

الورقة مخفية هل يوجد حل لتعديل الكود بحيث يعمل مع الورقة المخفية ؟

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

أخي الكريم

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

 

ارفق الملف الأصلي المعبر عن الطلب للإطلاع عليه وعمل اللازم ...

 

بالنسبة لطلبك كيف سيتم تنفيذ الكود في حالة أن الورقة مخفية ؟؟؟إذاً لا سبيل إلى ذلك إلا بوضع الكود في حدث فتح المصنف والإشارة إلى الورقة المطلوب العمل عليها

لذا ارفق ملفك

[ابو ياسر2]

هذا الملف المرفق فية الورقة Sheet4 مخفية

 

auto copy sheet4.rar

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

أخي الكريم هل اسمك الحقيقي أبو ياسر أم أنه مجرد اسم ؟؟

عموماً تم عمل المطلوب ووضع الكود في حدث فتح المصنف

فكرة الكود تعتمد على إظهار الورقة المخفية ثم تنفيذ المطلوب ثم إخفاء الورقة مرة أخرى

 

يمكنك تجربة الكود بهذا الشكل لترى إذا كان يعمل بشكل جيد أم لا

قم بإظهار الورقة المخفية وامسح العمود الثاني وأخفي الورقة واحفظ المصنف وأغلقه

قم بفتح المصنف وأظهر الورقة المخفية لترى النتيجة المطلوبة

 

لا تنسى ان تحدد أفضل إجابة ليظهر الموضوع منتهي ومجاب عليه

كما لا تنسى أن تضغط "أعجبني هذا" إذا أعجبتك المشاركة

تقبل تحياتي

Auto Copy Sheet4 V2.rar

[ابو ياسر2]

ألف الف شكر اخي ياسر الكود يعمل الان 100% و الورقة مخفية بارك الله فيك علي ما تقدمة من خدمة لكل الناس ولا تطلب سوي الدعاء

 

اسم ابني ياسر و الاسم الحقيقي حسن

[ابو ياسر2]

اخي ياسر حصلت معي مشكلة لما عدلت النسخ و الصق  بدل العمود A و B

الي  

النسخ من العمود AH  والصق في العمود AM  توقف الكود عن العمل رغم انني معدلة صح

 

<

Private Sub Workbook_Open()

    With Sheet4

        .Visible = True

            With .Range("AH1", .Cells(Rows.Count, "AH").End(xlUp))

                .Range("AM1").Resize(.Rows.Count).Value = .Value

            End With

        .Visible = False

    End With

End Sub

 

> 

 

حاولت اضع الكود بين أقواس تنصيص الكود <> لكن يظهر بهذا الشكل

Auto Copy Sheet4 V3.rar

تم تعديل يوليو 25, 2015 بواسطه ابو ياسر2

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

أخي الكريم

أقواس الكود توجد في محرر الكتابة عند عمل مشاركة بهذا الشكل <> ... تعمل على العلامة دي كليك وتلصق الكود فيها

 

جرب الكود بهذا الشكل

Private Sub Workbook_Open()
        Sheet4.Visible = True
            With Sheet4.Range("AH1", Sheet4.Cells(Rows.Count, "AH").End(xlUp))
                Sheet4.Range("AM1").Resize(.Rows.Count).Value = .Value
            End With
        Sheet4.Visible = False
End Sub

[ابو ياسر2]

الف شكر اخي ياسر الان صار يعمل  100%

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