مساعده (تعديل ماكرو يقوم بنسخ زر معين من شيت محدد الي باقي الشيتات )

[الجموعي]

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

إليكم كود الماكرو التالي

Sub Macro1()

    ActiveSheet.Shapes.Range(Array("Button 10")).Select
    Selection.Copy
    Sheets("2005").Select
    Range("D2").Select
 ActiveSheet.Paste
   Range("D2").Select
End Sub

هذا الماكرو مرتبط بشيت  2005 وأنا أريده على كل الشيتات

وبارك الله فيكم

macro.rar

 

 

[رجب جاويش]

أخى الفاضل / الجموعي

الأفضل ارفاق ملف حتى يتم التنفيذ عليه مظبوط

مع تحياتى

[وليد فتحي]

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

ولكن جرب هذا الكود لعله طلبك

Sub Macro1()
On Error Resume Next
    ActiveSheet.Shapes.Range(Array("Button 10")).Select
    Selection.Copy
    For i = 1 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Paste
    Next i
    Range("D2").Select

End Sub

[الجموعي]

أخى الفاضل / الجموعي

الأفضل ارفاق ملف حتى يتم التنفيذ عليه مظبوط

مع تحياتى

تم إرفاق الملف

[الجموعي]

 

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

ولكن جرب هذا الكود لعله طلبك

Sub Macro1()
On Error Resume Next
    ActiveSheet.Shapes.Range(Array("Button 10")).Select
    Selection.Copy
    For i = 1 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Paste
    Next i
    Range("D2").Select

End Sub

شكرا أخي وليد فتحي

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

[وليد فتحي]

Sub Macro1()
On Error Resume Next
    ActiveSheet.Shapes.Range(Array("Button 10")).Select
    Selection.Copy
    For i = 2 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Paste
    Next i
    Range("D2").Select

End Sub

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

[وليد فتحي]

أخي الحبيب الجموعي

الكود الاول كان بيحسب من اول شيت وبالتالي هينسخ المفتاح باول شيت

انا عدلت الكود التالي بحيث انه يبدأ من تاني شيت

هذا السطر يخلي الكود يبدا من الشيت الاول
  For i = 1 To Sheets.Count
هذا السطر يخلي الكود يبدا من الشيت التاني
  For i = 2 To Sheets.Count

تقبل مروري

[الجموعي]

Sub Macro1()
On Error Resume Next
    ActiveSheet.Shapes.Range(Array("Button 10")).Select
    Selection.Copy
    For i = 2 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Paste
    Next i
    Range("D2").Select

End Sub

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

 

شكرا أخي وليد

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

[رجب جاويش]

بعد اذن أخى الفاضل / وليد فتحى

أخى الفاضل / الجموعى

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

Sub Macro1()
Dim ws As Worksheet
ActiveSheet.Shapes.Range(Array("زر 10")).Select
Selection.Copy
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "2004" Then
        ws.Select
        Range("D2").Select
        ws.Paste
        Range("D1").Select
    End If
Next
End Sub

macro.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / وليد فتحي

بارك الله فيك

لاتوجد لدي من الكلمات الا كلمة (( رااائع ))

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

[وليد فتحي]

 

Sub Macro1()
On Error Resume Next
    ActiveSheet.Shapes.Range(Array("Button 10")).Select
    Selection.Copy
    For i = 2 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Paste
    Next i
    Range("D2").Select

End Sub

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

 

شكرا أخي وليد

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

 

 

اخي الجموعي الشكر لله

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

وانت بتقول للكود انسخ من الشيت الثاني

اتمني التوضيح اكثر

[وليد فتحي]

السلام عليكم

الاخ الحبيب / وليد فتحي

بارك الله فيك

لاتوجد لدي من الكلمات الا كلمة (( رااائع ))

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

 

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

اخي في الله أبو سما

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

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

[الجموعي]

 

بعد اذن أخى الفاضل / وليد فتحى

أخى الفاضل / الجموعى

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

Sub Macro1()
Dim ws As Worksheet
ActiveSheet.Shapes.Range(Array("زر 10")).Select
Selection.Copy
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "2004" Then
        ws.Select
        Range("D2").Select
        ws.Paste
        Range("D1").Select
    End If
Next
End Sub

ماشاء الله

شكرا أستاذي رجب جاويش على التعديل

بارك الله فيك

الله يعطيك العافية

[حمادة عمر]

تم تعديل العنوان

 

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

الادارة

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

[وليد فتحي]

 

بعد اذن أخى الفاضل / وليد فتحى

أخى الفاضل / الجموعى

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

Sub Macro1()
Dim ws As Worksheet
ActiveSheet.Shapes.Range(Array("زر 10")).Select
Selection.Copy
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "2004" Then
        ws.Select
        Range("D2").Select
        ws.Paste
        Range("D1").Select
    End If
Next
End Sub

 

اخي واستاذي الفاضل رجب جاويش

جزاك الله كل خير وزادك من علمه

[رجب جاويش]

أخى الفاضل / الجموعي

شكرا جزيلا لك

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

[رجب جاويش]

خى الفاضل / وليد فتحى

شكرا جزيلا لك

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

[رجب جاويش]

والشكر موصول لأخى الحبيب / أبو سما

[الجموعي]

 

 

Sub Macro1()
On Error Resume Next
    ActiveSheet.Shapes.Range(Array("Button 10")).Select
    Selection.Copy
    For i = 2 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Paste
    Next i
    Range("D2").Select

End Sub

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

 

شكرا أخي وليد

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

 

 

اخي الجموعي الشكر لله

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

وانت بتقول للكود انسخ من الشيت الثاني

اتمني التوضيح اكثر

 

أخي وليد تفضل المرفق التالي

للتوضيح ليس إلا

عند إضافة صفحة جديده يتم نسخ زر التحكم للصفحة الجديده

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

تم حل المشكلة بكود الأستاذ رجب جاويش

ماكرو وليد.rar

[الجموعي]

السلام عليكم

الاخ الحبيب / وليد فتحي

بارك الله فيك

لاتوجد لدي من الكلمات الا كلمة (( رااائع ))

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

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

بارك الله فيك

[حمادة عمر]

والشكر موصول لأخى الحبيب / أبو سما

 

لك مني ارق التحيات واعلي التقديرات

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

[وليد فتحي]

 

أخي وليد تفضل المرفق التالي

للتوضيح ليس إلا

عند إضافة صفحة جديده يتم نسخ زر التحكم للصفحة الجديده

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

تم حل المشكلة بكود الأستاذ رجب جاويش

ماكرو وليد.rar

 

 

جزاك الله كل خير اخي الجموعي انت والاستاذ رجب جاويش

ولكن الكود يقوم بنسخ المفتاح فوق المفتاح

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

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

Sub Macro1()
    On Error Resume Next
    ActiveSheet.Shapes.Range(Array("ÒÑ 10")).Select
    Selection.Copy
    For i = 2 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Shapes.Range(Array("ÒÑ 10")).Delete
    Range("D2").Select
    ActiveSheet.Paste
    
    Next i
    Range("D2").Select

End Sub

macro_11.rar

[الجموعي]

 

 

أخي وليد تفضل المرفق التالي

للتوضيح ليس إلا

عند إضافة صفحة جديده يتم نسخ زر التحكم للصفحة الجديده

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

تم حل المشكلة بكود الأستاذ رجب جاويش

ماكرو وليد.rar

 

 

جزاك الله كل خير اخي الجموعي انت والاستاذ رجب جاويش

ولكن الكود يقوم بنسخ المفتاح فوق المفتاح

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

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

Sub Macro1()
    On Error Resume Next
    ActiveSheet.Shapes.Range(Array("ÒÑ 10")).Select
    Selection.Copy
    For i = 2 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Shapes.Range(Array("ÒÑ 10")).Delete
    Range("D2").Select
    ActiveSheet.Paste
    ActiveSheet.Shapes.se
    Next i
    Range("D2").Select

End Sub

ماشاء الله عليك أخي وليد فتحي

تمكن من الأكواد جعلها الله في موازين حسناتك

ربي يحفظك

[وليد فتحي]

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

والحمد لله انه تم الوصول لطلبك

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

تقبل تحياتي

[الجموعي]

 

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

والحمد لله انه تم الوصول لطلبك

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

تقبل تحياتي

 

الحمد لله بفضل الله ثم بفضلكم تم الوصل إلى المطلوب

أخي وليد ياريت مساعدتي في هذا الموضوع إذا عندك متسع من الوقت

ارجو ألا أكون قد أثقلت عليك بطلبي

تقبل خالص ودي وتقديري