أين المشكل في هذا الكود

[محب إكسل]

السلام عليكم

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

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

Book1.rar

[عبد الفتاح كيرة]

هناك صفحة أو كائن محذوف باسم

main

main1

[عبدالله المجرب]

السلام عليكم

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

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

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Application.ScreenUpdating = False

main.[p1:p50].ClearContents: main1.[p1:p50].ClearContents

For i = 1 To Sheets.Count

ActiveSheet.Cells(i, "p") = Sheets(i).Name

Next i

ActiveSheet.[o1] = "حذف الصفحة"

main.[o1].ClearContents: main1.[o1].ClearContents

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, [p1:p100]) Is Nothing Then Sheets(Target.Row).Select

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Not Intersect(Target, [o1]) Is Nothing And ActiveSheet.[o1] = "حذف الصفحة" Then

Application.ScreenUpdating = False

Application.DisplayAlerts = False: ActiveWindow.ActiveSheet.Select

ActiveWindow.SelectedSheets.Delete: main.Select

main.[o1].ClearContents: main1.[o1].ClearContents

End If

End Sub

اخي الفاضل محب اكسل

الخلل في الكود انك قمت بنقله من ملف ولم تقم بتغيير مسميات اوراق العمل وابقيتها على الاسماء القديمة (اسماء اوراق العمل القديمة هي main و main1 )

قم باستبدالها في الكود باسماء الاوراق الخاصة بك

او قم باستبدال اسماء ورقتين في العمل الخاص بك بهذين الاسمين

ابواحمد