حاتم عيسى قام بنشر مارس 27, 2019 مشاركة قام بنشر مارس 27, 2019 السلام عليكم ورحمة الله وبركاته قمت بعمل ملف اكسيل وعند تجربة عمل معاينة للطباعة للتقرير المطلوب وبعد كتابة الكود المطلوب . وبعد إدراج شكل وقمت بربط الماكرو بالشكل وعند الضغط عليها تظهر الرسالة التالية : Run Time Error'424': Object Required فما هي المشكلة وما هو حلها المناسب بعد إذن حضراتكم وشكرا لكم جميعا : مرفق لحضراتك الملف للتوضيح طباعة التقرير.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مارس 27, 2019 أفضل إجابة مشاركة قام بنشر مارس 27, 2019 الخاصية Print preview لبست من خصائص Range بل هي من خصائص الـــ Sheet لذلك يجب كتابة الكود بهذا الشكل Sub Print_Preview() With Sheets("Report4") .PageSetup.PrintArea = Range("a1:i20").Address .PrintPreview End With End Sub 1 رابط هذا التعليق شارك More sharing options...
حاتم عيسى قام بنشر مارس 27, 2019 الكاتب مشاركة قام بنشر مارس 27, 2019 الأشتاذ الفاضل المحترم الخلوق : سليم حاصبيا تحية شكر وتقدير لحضرتك على سرعة الرد وبارك الله في حضرتك وفي علمك ونفعك والأمة الإسلامية به وزادك الله من فضله وزادك علما. وكل الشكر للمنتدى الفاضل بمن فيه من مشرفين ورواد . تم حل المشكلة بفضل الله ثم بفضل حضرتك . شكرا 1 رابط هذا التعليق شارك More sharing options...
smj85 قام بنشر أغسطس 22, 2019 مشاركة قام بنشر أغسطس 22, 2019 تحياتي ماهو الخطأ في هذا الكود حتى تظهر شاشة run-time-error424-object-required Private Sub cmdSearch_Click() Dim rownum As Long Dim searchrow As Long rownum = 2 searchrow = 2 wrrksheets("summary").Activate Do Until Cells(rownun, 1).Value = "" If InStr(1, Cells(rownum, 2).Value, txtkeywords.Value, vbTextCompare) > "" Then wrrksheets("product search").Cells(searchrow, 1).Value = Cells(rownum, 1).Val wrrksheets("product search").Cells(searchrow, 2).Value = Cells(rownum, 2).Val wrrksheets("product search").Cells(searchrow, 3).Value = Cells(rownum, 3).Val End If rownum = rownum + 1 Loop If searchrow = 2 Then MsgBox "عذرا الكلمة او الحرف الذي تبحث عنه غير موجود " End If lstsearchresults.RowSource = "searchresults" End Sub رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 22, 2019 مشاركة قام بنشر أغسطس 22, 2019 الماكرو يجب وضعه في كود الصفحة التي تحتوي على cmdSearch وليس في Module مستقل 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها