تغيير اسم ورقة اكسل من قيمة خليتيين

[m.y.a]

الاخوة الاعزاء في هذا المنتدى الرائع

سؤالي اذا كان لدي ورقة عمل تحتوي عدة معلومات من ضمنها خلية تحوي اسم مثلا ( احمد سليم ) وخلية اخرى تحوى تاريخ ( 30/5/2008 )

فهل استطيع عن طريق الكود ضمن زر امر مثلا عندما اضط عليه يتحول اسم الورقة الى احمد سليم 30-5-2008 طبعا فواصل التاريخ ستكون - لأن الاكسل لا يقبل /

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

[عادل حنفي]

اخي قد يفيدك هذا

Book11.rar

[m.y.a]

شكراً لك اخي ساقوم بتجربتها واجابتك لأنه يوجد عندي استفسار آخر لو سمحت

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

[m.y.a]

الاخ العزيز aah_aah2008

شكرا استجابتك السريعة

لقد ارفقت صورة توضح المطلوب تماما

معالشكر الجزيل لك ولكل اعضاء هذا المنتدى الرائع

[m.y.a]

الاخ aah_aah2008 انا بانتظار ردك لو تكرمت

مع الشكر

[m.y.a]

الاخوة اعضاء المنتدى بانتظار ردكم الكريم

والله الموضوع يستاهل ومفيد

[ابو اسامة العينبوسي]

السلام عليكم

هنا حل مشكله التاريخ

Private Sub CommandButton1_Click()
 Dim MyDate As String
 MyDate = Format(Range("b1"), "mm-dd-yyyy")
 ActiveSheet.Name = Cells(1, 1).Value & " " & MyDate
End Sub

السؤال التانى ارفق له ملف

Book11.rar

[عادل حنفي]

اخي اعذرني

فلم اكن موجودا

واخي ابو اسامه بارك الله له قام بحل مشكلة التاريخ

اما الطلب الاخر اخي انه غير واضح لي تماما فحسب مافهمت ارسلت لك

هذا الملف ارجو ان ان يفي طلبك

و الا ارجو الشرح الوافي لما تريده

تحياتي

Book22.rar

تم تعديل مايو 31, 2008 بواسطه aah_aah2008

[m.y.a]

الأخ aah_aah2008 والأخ أبو أسامة كل الشكر لتجاوبكم معي

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

أما بالنسبة للمشكلة الثانية فسوف اشرح المطلوب على الشكل التالي :

عندي في الخلية A3 اسم زبون يتغير باستمرار وفي الخلية B3 تاريخ شراء هذ الزبون

ما اريده انني عندما أكون ضمن أي خلية واضغط زر تثبيت

يقوم الاكسل بنسخ محتويات A3 الى الخلية المحددة وكذلك محتويات الخلية B3 الى الخلية التي تكون جانب الخلية التي انا بها ... مثال :

محتويات الخلية A3 مثلا : حسن سالم

محتويات الخلية B3 مثلا : 29/5/2008

وانا قمت بتحديد الخلية مثلا U9 وضغطت زر تثبيت بعدها

فتصبح قيمة لخلية U9 هي حسن سالم وقيمة لخلية V9 29/5/2008

وانا قمت بتحديد الخلية مثلا U11 وضغطت زر تثبيت بعدها

فتصبح قيمة الخلية U11 هي حسن سالم وقيمة لخلية V11 29/5/2008

اخي aah_aah2008 ان ملفك الذي ارفقته يحتوي الحل لكنه يقوم بالنسخ الى خلية محددة وما اريده ان يقوم بنسخ الاسم من A3 الى الخلية المحددة وان ينسخ التاريخ من الخلية B3 الى الخلية التي بجانب الخلية المحددة...

ارجو ان تكون الفكرة قد وصلت

وشكرا لكم سلفاً

[عادل حنفي]

اخي الموضوع يحتاج شوية تركيز و تفكير

اعذرني فنحن في نهاية الشهر

و انا في شدة ضغط العمل والتركيز عندي لاي شيئ مفقود

الا في اتجاه العمل

و لكني معك و سنحلها ان شاء الله ولكن صبرا

تحياتي

تم تعديل يونيو 1, 2008 بواسطه aah_aah2008

[عادل حنفي]

اخي العزيز

وفقني الله لايجاد الحل

و اعتقد ان شاء الله سيكون المطلوب

حدد الخليه( اي خليه او اي عدد من الخلايا) التي تريد النسخ اليها

ثم اضغط علي زر الاسم او التاريخ

وساعرض هذا في موضوع مستقل ان شاء الله

ولك خالص شكري

Copy_cell_.rar

تم تعديل يونيو 1, 2008 بواسطه aah_aah2008

[m.y.a]

اخي aah_aah2008 شكرا لردك ..

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

اي عند الضغط على هذا الزر يقوم بنسخ الاسم على الخلية التي تم تحديدها ومن ثم فورا نسخ التاريخ لى الخلية التي بيسارها

اخي اذا رجعت الى الصورة التي ارفقتها في ردودي السابقة ستصلك الفكرة اسرع....

بانتظار ردك والسلام عليكم...

[ابو اسامة العينبوسي]

السلام عليكم

ActiveCell.Value = Cells(2, 1).Value
ActiveCell.Offset(0, 1).Value = Cells(2, 2).Value

[m.y.a]

الأخ aah_aah2008 والأخ أبو أسامة كل الشكر لتجاوبكم معي

اخي ابو اسامة شكرا لهذا الحل فهذا هو المطلوب تماما

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

مع الشكر

[عادل حنفي]

السلام عليكم

ابدعت اخي ابو اسامه

[m.y.a]

الشكر لك ايضا اخي ahh ahh على مساعدتك وتجاوبك