ابو طيبه قام بنشر ديسمبر 30, 2020 مشاركة قام بنشر ديسمبر 30, 2020 السلام عليكم ممكن اعرف شنو سبب الخطآ علما ان الكود يعمل بشكل طبيعي عند ربط المايكرو بالشكل المدرج على الشيت. اما عند ربط الكود على الفورم فيظهر هذا الخطأ كما في الصورتين مع جزيل الشكر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 30, 2020 مشاركة قام بنشر ديسمبر 30, 2020 في قائمة Dim (قبل ScreenOff) اكتب هذا السطر: $Dim return_Sh 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر ديسمبر 30, 2020 مشاركة قام بنشر ديسمبر 30, 2020 اكتب ما قال الاستاذ سليم وغير السطر المضلل الى set return_sh = Activesheet.name رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر يناير 1, 2021 الكاتب مشاركة قام بنشر يناير 1, 2021 هذا الملف المرفق فان الكود يعمل عند تنفيذه من الشيت مباشرة ولا يعمل على الفورم مع تحياتي لكم المصنف1.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يناير 1, 2021 أفضل إجابة مشاركة قام بنشر يناير 1, 2021 لا ضرورة لهذه الكمية من الأعمدة المدمجة (الملف يجب ان يكون كما في المرفق) الكود ما يجب ان يكون Sub Print_Selection() Dim Rng As Range Dim But As Worksheet Dim Source_sh As Worksheet Dim Where As Range ScreenOff Set But = Sheets("ورقة2") Set Source_sh = Sheets("ورقة1") Set Where = But.Range("B3") But.Cells.Clear Source_sh.Select '=============================================================== Set Rng = Selection If Rng.Cells.Count = 1 Then MsgBox "Please select a range in the sheet: " & _ Source_sh.Name End If 'Rng.Interior.ColorIndex = 4 Rng.Copy Where.PasteSpecial (xlValues) Application.CutCopyMode = False 'Rng.Interior.ColorIndex = xlNone Rng = vbNullString With But .PageSetup.PrintArea = _ .Range("B3").CurrentRegion.Address .PrintPreview 'Replace by .PrintOut End With Source_sh.Select '=============================================================== ScreenOn End Sub الملف مرفق Abou_Tiba.xlsm 1 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر يناير 1, 2021 الكاتب مشاركة قام بنشر يناير 1, 2021 شكرا جزيلا استاذ سليم العزيز لجهودك المبذوله جعلها الله في ميزان حسناتك وكل عام وانت بالف خير وصحه وسعاده 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان