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

[nash60]

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

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

 

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

 

 المطلوب  : ان يتم نسخ اسم الورقة في الخلية B1 مثلا ولكن بزر امر

 

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

تغير اسم ورقة بتغير اسم خلية.rar

[طارق محمود]

السلام عليكم

أخي العزيز

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

 

 

=RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))

[nash60]

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

 

اخي طارق اشكرك على اهتمامك وردك ولكن اريدها بالكود وبحدث عند التغيير بحيث تكون بعمود انا اختاره

 

ومرفق مثال على ما اريد فيه توضيح اكثر .

 

وشكرا مقدما .

نسخ اسم الورقة.rar

[رجب جاويش]

تفضل أخى

هذا الكود فى حدث الورقة كما تريد

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
    If Target = "" Then
        Target.Offset(0, 7) = ""
    Else
        Target.Offset(0, 7) = ActiveSheet.Name
    End If
End If
End Sub

 

نسخ اسم الورقة1.rar

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / رجب جاويش

 

بارك الله فيك

كود رااائع وجميل ... ودائما كعادتك تعلم الجميع

ولكن الاروع هو وجودك وعودتك بيننا

طالت غيبتك استاذنا القدير

كان الله في عونكم

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

[رجب جاويش]

أخى الحبيب / حمادة عمر

شكرا جزيلا أخى الحبيب على كلماتك الطيبة

ومهما طال الغياب لابد من العودة الى منتدانا الحبيب ( منتدى أوفيسنا )

[nash60]

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

 

اخي رجب جاويش اشكرك جزيل الشكر بارك الله فيك

 

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

[رجب جاويش]

أخى الفاضل / nash60

جزاك الله كل خير على هذه الكلمات الطيبة

[أبو محمد عباس]

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

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

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

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

دمتم برعاية الله وحفظه

[aspiran]

السلام عليكم ممكن المرفق بالأوفيس 2003 جربت الكود ولم يعمل

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

[رجب جاويش]

أخى الحبيب / عباس السماوى

كلماتك العطرة ودعائك الطيب من أرقى الأشياء فى هذا المنتدى العريق

جزاك الله كل خير أخى الحبيب

وان شاء الله أكون بين أسرتى الحبيبة ( منتدى أوفيسنا بكل من فيه )

والحمد الله الانشغال قرب على الانتهاء

لأعود الى التواصل المستمر مع أحبابى فى منتدى أوفيسنا

[رجب جاويش]

أخى الفاضل / عبد الغني

تفضل المرفق على أوفيس 2003

 

نسخ اسم الورقة2.rar

[محمد عسكر]

السلام عليكم  يرجي تجربة الكود التالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("a1").Value

End Sub