نسخ صفحة بدون المعادلات ( عنوان معدل )

[محمد عبد الناصر]

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

 

د عباره عن ملف كان ساعدنى فيه الاستاذ ياسر من فتره الملف ده ببساطه انو فيه امر فى الشيت رقم واحد بياخد الصفحه دى كوبى ويفتح شيت جديد باسم مثلا الموظف رقم 1 - دلوقتى لو جيت عملت موظف جديد مثلا الموظف رقم 2 وافتح شيت جديد بالامر الى معمول الموظف رقم 1 بيتغير بكل بيناته للموظف الى عملتو جديد عايز لما انسخ الصفحه بيانات الموظف رقم 1 الى عملتو اول حاجه ميحصلوش حاجه يفضل زى مهو اكن الخلايه كلها  تكست من غير دوال خاااااالص
الملف مرفق شارح فيه انا عايز ايه وشكراااااااااااا يا احلى منتدى

Mahmoud.rar

[محمد عبد الناصر]

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ملهاش حل دى انا كل الى عايزو ان الصفحه لما تتاخد كوبى ميكونش فيها اى معادله

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

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

Sub CopySheet()
    Dim strName As String, SH As Worksheet
    strName = Trim(Sheet1.Range("A8").Value)
    
    For Each SH In Worksheets
        If SH.Name = strName Then Exit Sub
    Next SH
    
    Sheet1.Copy after:=Sheets(Sheets.Count)
    Sheets("Sheet1 (2)").Name = strName
    With Sheets(strName)
        .Shapes("Button 1").Delete
        .Cells.SpecialCells(xlCellTypeFormulas).ClearContents
    End With
End Sub

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

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

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ملهاش حل دى انا كل الى عايزو ان الصفحه لما تتاخد كوبى ميكونش فيها اى معادله

أخي الحبيب .. لا أحب الردود من هذا النوع ..اعذرني لصراحتي !!!!!!!!

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

وتأكذ أنه لا يوجد عضو بالمنتدى يبخل بأي معلومة

تقبل اعتذاري

[محمد عبد الناصر]

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

 

حضرتك الكود ده بياخد الصفحه من غير اسماء خالص يعنى مكان الخليه الى فيها معادله فاضى مفعوش اى  حاجه

تم تعديل أبريل 8, 2015 بواسطه mxfouad

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

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

ودا اللي أنا عملته ، وبما إن الخلية اللي فيها الاسم فيها معادلة فطبيعي إنها تتمسح زي ما أضفت للكود !! ..

راجع ملفك مرة أخرى وشوف الخلية دي عبارة عن معادلة أن عبارة عن ثابت

[محمد عبد الناصر]

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

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

أخي الحبيب (مين قالك إني مضايق)

أنا لم أتضايق أبداً منك والله .. يبدو إن كلامي هو اللي بيبان جااااااااارج في كتير من الأحيان ، ودا سببه إني بحاول يكون فيها نظام مش أكتر من كدا ..

وأنا آسف يا أخي فؤاد إذا كنت ضايقتك ..

بالنسبة لطلبك ..إنت عايز الاسم يفضل موجود بس يكون ثابت مش معادلة ؟ ، طيب بالنسبة لباقي البيانات مفيش مشكلة إنها تكون فارغة كما أسلفنا في الحل ..!!

[محمد عبد الناصر]

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

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

صراحة بدأت أتوه منك

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

[محمد عبد الناصر]

هههه مش عارف انا شكلى غبيى مش عارف اوضح انا عايز ايه - بوص حضرتك  انا دلوقتى عملت بيانات لموظف اسمو محمد لو جيت عملت صفحه لموظف تانى اسمو محمود الصفحه بتاعت محمد بتتحول لبيانات الموظف محمود وده كده مينفعش البيانات كلها كده الى بعملها مش هاعرف ارجعلها تانى الى انا بقى عايزو انى لما ادوس على امر الكوبى البينات الى فى الصفحه تتاخد كوبى عادى واقدر اعمل صفحه تانيه وتالته ورابعه كده

تم تعديل أبريل 8, 2015 بواسطه mxfouad

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

بص عشان تبقا الأمور أبسط

ارفق ملفك مرة تانية بس من غير باسورد .. وحاول تعمل نفس الصفحة زي ما إنت عايز (عشان نعرف شكل النتائج !! ...) كدا أفضل وأسهل من اللف والدوران ..

[محمد عبد الناصر]

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

Mahmoud.zip

تم تعديل أبريل 8, 2015 بواسطه mxfouad

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

جرب التالي .....

Sub CopySheet()
    Dim strName As String, SH As Worksheet
    strName = Trim(Sheet1.Range("A8").Value)
    
    For Each SH In Worksheets
        If SH.Name = strName Then Exit Sub
    Next SH
    
    Sheet1.Copy after:=Sheets(Sheets.Count)
    Sheets("Sheet1 (2)").Name = strName
    With Sheets(strName)
        .Shapes("Button 1").Delete
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

[محمد عبد الناصر]

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

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

الحمد لله الذي بنعمته تتم الصالحات

إنت عارف كان ممكن توفر كل التوضيح بكلمة واحدة إنك عايز تنسخ القيم فقط ..عشان بس تعرف إن الموضوع ممكن يكون بسيط جدا بس بتكون المشكلة في توضيح المسألة

إلى لقاء في موضوع آخر إن شاء المولى

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

تقبل تحياتي