اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

smj85

عضو جديد 01
  • Content Count

    4
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 Neutral

عن العضو smj85

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    eng

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

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