نسخ صفحة وتسميتها بناء على نطاق وجعل خلية تساوي اسم الصفحة

[عاشق الاكسيل]

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

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

وتسلسل الطلب كالاتى :

 هناك نطاق فى صفحة بداية وهناك صفحة اخرى اسمها نسخ

مطلوب 1 : عمل نسخة من صفحة نسخ بعدد خلايا النطاق وتسمية الصفحة مساوى لقيمة الخلية

مطلوب 2 : جعل قيمة خلية B2 مساوى لاسم الصفحة

 

مرفق ملف للتوضيح

 

Request.rar

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

الاخ الكريم مصطفى

فينك بقالك فترة مختفي (لعله خير)

إليك الملف التالي رغم أنك لم توضح بالتفصيل طلبك ، ولكني حاولت التدقيق في الطلب حتى فهمت مرادك

Sub CopySheets()
    Dim I As Long
    Dim WS As Worksheet, SH As Worksheet
    Set WS = Sheets("نسخ"): Set SH = Sheets("بداية")
    Application.ScreenUpdating = False
        For I = 3 To 10
            If blnWorksheetExists(SH.Cells(I, "B")) Then GoTo 1
            WS.Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = SH.Cells(I, "B").Value
            ActiveSheet.Range("B2").Value = SH.Cells(I, "B").Value
1        Next I
        SH.Activate
    Application.ScreenUpdating = True
End Sub

Function blnWorksheetExists(strWorksheet As String) As Boolean
    On Error Resume Next
    blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing)
    On Error GoTo 0
End Function

تقبل تحياتي

Copy Sheet Based On Range Values YasserKhalil.rar

[عاشق الاكسيل]

الاخ الكريم مصطفى

فينك بقالك فترة مختفي (لعله خير)

إليك الملف التالي رغم أنك لم توضح بالتفصيل طلبك ، ولكني حاولت التدقيق في الطلب حتى فهمت مرادك

Sub CopySheets()
    Dim I As Long
    Dim WS As Worksheet, SH As Worksheet
    Set WS = Sheets("نسخ"): Set SH = Sheets("بداية")
    Application.ScreenUpdating = False
        For I = 3 To 10
            If blnWorksheetExists(SH.Cells(I, "B")) Then GoTo 1
            WS.Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = SH.Cells(I, "B").Value
            ActiveSheet.Range("B2").Value = SH.Cells(I, "B").Value
1        Next I
        SH.Activate
    Application.ScreenUpdating = True
End Sub

Function blnWorksheetExists(strWorksheet As String) As Boolean
    On Error Resume Next
    blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing)
    On Error GoTo 0
End Function

تقبل تحياتي

أخى واستاذى ومعلمى ياسر خليل

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

ولكن لظرف قهرى ليس بيدى منعنى من الدخول - الحمد لله على كل شىء -.

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

ثانيا بالفعل هذا ما كنت اريده بالتحديد

اشكرك بشدة اخى واستاذى

 

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

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

أخي الكريم مصطفى

لعل غيابك يكون خير ، وتكون في أفضل حال

ومشكور على اختيارك للمشاركة كأفضل إجابة

ولكن لي طلب أنه عندما يكون هناك طلب آخر فلن يكلفك الأمر كثيراً أن تطرح طلبك في موضوع منفصل

وفي الفترة التي تقوم فيها بعمل موضوع جديد بالطلب الجديد إن شاء الله أكون جهزته لك

تقبل تحياتي

[عاشق الاكسيل]

تم فتح موضوع جديد فى انتظار ردك اخى الكريم