ضياء 2 قام بنشر أكتوبر 1, 2022 مشاركة قام بنشر أكتوبر 1, 2022 السلام عليكم الاساتذة الافاضل بالمنتدى فضلا من كرمكم " المطلوب تعديل في كود لتصدير ورقة عمل واحدة بدون ازرار CommandButton كمثل زر طباعة ، زر وتصدير ورقة عمل wor.xlsm رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر أكتوبر 2, 2022 مشاركة قام بنشر أكتوبر 2, 2022 وعليكم السلام ورحمة الله تفضل wor.xlsm رابط هذا التعليق شارك More sharing options...
ضياء 2 قام بنشر أكتوبر 2, 2022 الكاتب مشاركة قام بنشر أكتوبر 2, 2022 الكود كما هو استاذنا الكريم بصدر ورقة العمل بازرار CommandButton انا عاوزها الورقة المصدرة بدون ازرار CommandButton رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر أكتوبر 3, 2022 مشاركة قام بنشر أكتوبر 3, 2022 اخي انت بالاول طلبت ان يكن مثل زر الطباعة------- الان طلبك غير مفهوم رابط هذا التعليق شارك More sharing options...
ضياء 2 قام بنشر أكتوبر 3, 2022 الكاتب مشاركة قام بنشر أكتوبر 3, 2022 المطلوب استاذنا الورقة المصدرة بدون ازرار CommandButton رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر أكتوبر 3, 2022 أفضل إجابة مشاركة قام بنشر أكتوبر 3, 2022 السلام عليكم ورحمة الله تعالى وبركاته ..تفضل اخي الكريم Private Sub CommandButton1_Click() Dim filePath As String Dim Ws As Worksheet Application.ScreenUpdating = False filePath = Application.ActiveWorkbook.Path Set Ws = Sheets("بيانات") With Ws .Copy Application.DisplayAlerts = False Application.CutCopyMode = False Dim shape As Excel.shape For Each shape In ActiveSheet.Shapes shape.Delete Next Application.ActiveWorkbook.SaveAs Filename:=filePath & "\" & .Name & "" & "" & ".xlsx", FileFormat:=51 Application.ActiveWorkbook.Close False End With MsgBox "تم نسخ الملف بنجاح" Application.ScreenUpdating = True End Sub wor_MH.xlsm 1 2 رابط هذا التعليق شارك More sharing options...
ضياء 2 قام بنشر أكتوبر 4, 2022 الكاتب مشاركة قام بنشر أكتوبر 4, 2022 ما شاء الله استاذ Mohamed Hicham مبدع شكرا جزيلا والشكر موصول لاستاذ محمد يوسف ابو يوسف اتعبتك معي هذا تقصير مني في توصيل المطلوب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها