بحث في ملف مفتوح من خلال ملف ثاني

[نايف - م]

عندي ملف مفتوح اسمه = 20150817

أنا اعمل على ملفي اسمهN_M

أريد البحث في الملف المفتوح  20150817   من  خلال يوسرفورم في ملفي

كتبت الكود التالي و لم ينجح علما أن ورقة البحث في الملف المفتوح هي price1

Private Sub CommandButton3_Click()
'ÇÈÍË
Dim nw As Workbooks
Set nw = "20150817"
If OptionButton1 = True Then

With Sheets("price1")
Dim LastRow As Integer, r As Integer, t As Integer
ListBox1.Clear
   LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    For r = 2 To LastRow
        If .Cells(r, 3) Like "*" & TextBox1.Text & "*" Then
            ListBox1.AddItem
            ListBox1.List(t, 0) = .Cells(r, 3)
            ListBox1.List(t, 1) = .Cells(r, 6)
            
                         t = t + 1
        End If
            Next
End With

End If

End Sub

الأخ ياسر لا أعرف كيف أرفق ملف مع هذه المشاركة

المطلوب : كيف يمكن تحديد وجهة البحث على أن تكون الملف المفتوح و ليس الملف الرئيسي الذي أعمل عليه

و شكرا

[ياسر خليل أبو البراء]

أخي الكريم قم بضغط ملفك ببرنامج الوينرار ثم قم برفعه ليسهل على الأخوة الكرام بالمنتدى تقديم المساعدة المطلوبة

[إبراهيم ابوليله]

اخى نايف يرجى الالتزام بتوفير الوقت والجهد على الاخوه الاعضاء

عن طريق ارفاق ملف للعمل عليه

كما قال استاذنا الفاضل ياسر

......................................

لارفاق ملف الى المشاركه

فقط قم بضغط ملف الاكسيل ببرنامج وينرار

ثم قم بسحب الملف المضغوط الى المشاركه

.......................................................................

وتفضل محاوله منى

على حسب فهمى للموضوع

Private Sub CommandButton3_Click()
'CE?E
Dim WR As Workbook
Dim sh As Worksheet
Set WR = "20150817"
Set sh = WR.Sheets("price1")
If OptionButton1 = True Then

With sh
Dim LastRow As Integer, r As Integer, t As Integer
ListBox1.Clear
   LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    For r = 2 To LastRow
        If .Cells(r, 3) Like "*" & TextBox1.Text & "*" Then
            ListBox1.AddItem
            ListBox1.List(t, 0) = .Cells(r, 3)
            ListBox1.List(t, 1) = .Cells(r, 6)
            
                         t = t + 1
        End If
            Next
End With

End If

End Sub

تقبل تحياتى

 

[نايف - م]

أولا شكرا لأخي ابراهيم على المحاولة لكنها لم تنفع

ثانيا جربت أن أرفق مجلد مشابه لبرنامجي عسى يقوم بالواجب و شكرا

2222.rar

[ياسر خليل أبو البراء]

أخي الكريم نايف

الملف المرفق غير عبر عن الملف الأصلي حيث لا يوجد زر أمر رقم 3 ولا يوجد زر اختيار

عموماً بإطلالة سريعة على الكود يوجد خطأ في أول الكود وهو تعيين قيمة المتغير للمصنف المفتوح حيث يجب أن يكون السطر بهذا الشكل

جرب وأعد المحاولة بعد معرفة الخطأ وإذا صادفتك مشكلة أو خطأ انقر على كلمة Debug سيظهر سطر باللون الأصفر ارفقه في الرد لمعرفة مكمن الخطأ

Set WR = Workbooks("20150718.xlsx")

تقبل تحياتي

[نايف - م]

يا أخي دائما بيمشي الحال لما بتحاول

شكرا ألك

[ياسر خليل أبو البراء]

هل تم بحمد الله حل المشكلة

إذا كان الأمر قد تم على خير قم بإرفاق الملف بعد عمل الكود ليستفيد منه إخوانك بالمنتدى

تقبل تحياتي

[نايف - م]

يا أخي و الله العظيم الملف كبير جدا لا يمكن أرافقه

و أنا ممتن لطول صبرك و عملك للخير معنا و لا أستطيع رفض طلب لك

بيمشي الحال أنشر الكود فقط

[ياسر العربى]

مثال بسيط بعد التعديلات

2222.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي ياسر العربي

إنت مدرسة ... وفن .. وإبداع

تسلم الأيادي يا كبير

 

[ياسر العربى]

شكرا حبيبي ابو البراء اذا اكنا مدرسة يبقي حضرتكم  وزارة التربية والتعليم

مدرسة وفن وابداع وسعت منك ياريس

تقبل تحياتي

[إبراهيم ابوليله]

اخى واستاذنا ياسر

اشكرك على التعديل

بالفعل

فقد نسيت وضع امتداد الملف فى الكود

بارك الله فيك

تقبلوا تحياتى