طلب كود خاص بالحفظ

[abueyas2]

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

لدي ملف به اكثر من sheet وارغب في حفظ كل sheet بملف مستقل اسمه يكون محتوى خلية معينة من كل sheet مثلا يحفظ دائما بمحتوى B4 مثلا

هل هناك من كود اودالة تنفذ الامر

كل الشكر

[طارق محمود]

السلام عليكم

تفضل اخي الملف المرفق وبه الكود المطلوب

وهاهو الكود لو أردت وضعه في الملف عندك

Sub Macro1()

'

' Macro1 Macro

'

Dim sms As String


pth = ActiveWorkbook.Path


For i = 1 To Sheets.Count


    Sheets(i).Select

    Sheets(i).Copy

sms = sms & Chr(10) & [B4]

    ActiveWorkbook.SaveAs Filename:=pth & "\" & [B4] & ".xls", FileFormat:=xlExcel8

    ActiveWindow.Close


Next i

  Sheets(1).Select

  MsgBox ("تم حفظ الملفات التالية:" & sms)

End Sub

copyFiles.rar

[احمد فضيله]

الاخ الحبيب المهندس / طارق

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

[abouelhassan]

استاذنا شكرى وتقديرى وخالص دعائى والله عن ظهر الغيب

ممكن شرح كيف يتم وضع مسار الحفظ

اخيك بود وتقدير واحترام

[abueyas2]

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

[abueyas2]

السلام عليكم

هل يمكن لهذا الكود ان يحفظ الى (pdf) بدلا من اكسل

Sub Macro1()

'

' Macro1 Macro

'

Dim sms As String

pth = ActiveWorkbook.Path

For i = 1 To Sheets.Count

	 Sheets(i).Select

	 Sheets(i).Copy

sms = sms & Chr(10) & [B4]

	 ActiveWorkbook.SaveAs Filename:=pth & "\" & [B4] & ".xls", FileFormat:=xlExcel8

	 Activewindow.Close


Next i

Sheets(1).Select

MsgBox ("تم حفظ الملفات التالية:" & sms)

End Sub

[حمادة عمر]

السلام عليكم

الاستاذ القدير / طارق محمود

لايسعني الا ان اقول لسيادتكم

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

[حمادة عمر]

السلام عليكم

الاخ الفاضل / abueyas2

بخصوص تحويل ملف الاكسيل الي ملف pdf برجاء مراجعة الروابط التالية في منتدانا الرائع

فبها ما تريد ( ان شاء الله ) علها تفيد معك او يتم التعديل عليها بعد ذلك اخي الكريم

http://www.officena....74

http://www.officena....7

http://www.officena....2

http://www.officena....100#entry201998

http://www.officena....7

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