اية الحل لمشكلة ال Run Time Error'424': Object Required

[حاتم عيسى]

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

قمت بعمل ملف اكسيل وعند تجربة عمل معاينة للطباعة للتقرير المطلوب وبعد كتابة الكود المطلوب .

وبعد إدراج شكل وقمت بربط الماكرو بالشكل وعند الضغط عليها تظهر الرسالة التالية :

Run Time Error'424':  Object Required

فما هي المشكلة وما هو حلها المناسب بعد إذن حضراتكم

وشكرا لكم جميعا :

مرفق لحضراتك الملف للتوضيح

طباعة التقرير.rar

[سليم حاصبيا]

الخاصية  Print preview  لبست من خصائص  Range بل هي من خصائص الـــ Sheet

لذلك يجب كتابة الكود بهذا الشكل

Sub Print_Preview()
With Sheets("Report4")
.PageSetup.PrintArea = Range("a1:i20").Address
.PrintPreview
End With
End Sub

 

 

[حاتم عيسى]

الأشتاذ الفاضل المحترم الخلوق : سليم حاصبيا

تحية شكر وتقدير لحضرتك على سرعة الرد وبارك الله في حضرتك وفي علمك ونفعك والأمة الإسلامية به وزادك الله من فضله وزادك علما.

وكل الشكر للمنتدى الفاضل بمن فيه من مشرفين ورواد .

تم حل المشكلة بفضل الله ثم بفضل حضرتك .

شكرا

[smj85]

تحياتي 

ماهو الخطأ في هذا الكود حتى تظهر شاشة 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

 

[سليم حاصبيا]

الماكرو يجب وضعه في كود الصفحة التي تحتوي على   cmdSearch وليس في    Module  مستقل