تقسيم ورقة العمل

[SABRI]

السادة اعضاء المنتدي الكرام

السلام عليكم وكل عام وانتم بخير

جعل الله كل ما تقدمونه من علم في ميزان حسناتكم ان شاء الله

ولي سؤال عندكم

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

واريد ان يتم حفظ كل شيت كورقة عمل مستقلة

فكيف يمكن عمل ذلك ؟

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

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

[SABRI]

السلام عليكم

قمت بالبحث ووجدث هذا الكود في احدي المواقع

اتمني ان يستفيد منه الجميع

والسلام عليكم

Sub CreateWorkbooks()

'Creates an individual workbook for each worksheet in the active workbook.

Dim wbDest As Workbook

Dim wbSource As Workbook

Dim sht As Object 'Could be chart, worksheet, Excel 4.0 macro,etc.

Dim strSavePath As String

On Error GoTo ErrorHandler

Application.ScreenUpdating = False 'Don't show any screen movement

strSavePath = "C:\Temp\" 'Change this to suit your needs

Set wbSource = ActiveWorkbook

For Each sht In wbSource.Sheets

sht.Copy

Set wbDest = ActiveWorkbook

wbDest.SaveAs strSavePath & sht.Name

wbDest.Close 'Remove this if you don't want each book closed after saving.

Next

Application.ScreenUpdating = True

Exit Sub

ErrorHandler: 'Just in case something hideous happens

MsgBox "An error has occurred. Error number=" & Err.Number & ". Error description=" & Err.Description & "."

End Sub