كود للبحث والتعديل في اكثر من نطاق

[زوهير]

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

اولا صيام مقبول ان شاءالله

 

الطلب هو البحث والتعديل في اثر من نطاق

 

المرفق يوضح الطلب

البحث والتعديل في اكثر من نطاق.rar

[زوهير]

صيام مقبول ان شاءالله

للرفع

[اسلام رجب]

فيديو بسيط تعديل وحذف من خلال اليوزرفورم

[زوهير]

للرفع

[زوهير]

اعاد الله عليكم العيد بالفرح السرور وقبول الصيام والقيام وتكونون من عتقاء    النار

امين امين امين

[زوهير]

عيدكم مبارك وكل عام وانتم بخير

 

للرفع

[عبد العزيز البسكري]

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

عيد مبارك سعيد

أخي زوهير كان عليك توضيح طلبك أكثر .. كلّنا هنا نُفيد و نستفيد .. إن لم أُفِدْك أستفد منك .. البحث عن ماذا و النتيجة المتوقّعة من عملية البحث .. أين أكتب معيار البحث و الملف به 10 تاكست بوكس ..الخ

لا تقلق أرجوك من كلامي فقط لتسهيل العملية للسائل و المجيب

أخوك / عبد العزيز البسكري

[زوهير]

اولا عيدك مبارك وكل عام و انت بخير وتقبل الله منك الصيام والقيام

كما ذكرت في المرفق اريد البحث عندما لا يجد  من العمود الاول الى العمود العاشر الى اخر صف في الورقة

ينتقل مباشر الى العمود الحادي عشر ويبدأ البحث من جديد

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

أخي زوهير

تعلم جيداً أنه عندما لا توجد استجابة من الأعضاء فهذا معناه أن الفكرة لم تتضح ولم توضح

أين معيار البحث كما سألك الأخ عبد العزيز ...؟ أين هو مربع النص الذي يتم البحث من خلاله ؟ وهل البحث عن عمود محدد كعمود الأسماء أم ماذا ؟؟

أعتقد أنه يجب أن تضرب مثال ليتضح المقال

[زوهير]

الاخ ياسر السلام عليك اخي الكريم وعيدك مبارك وكل عام وانت بخير

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

وكود الترحيل انت من تقدمت به في المشاركة الاولى وجزاك الله خيرا

واريد ان يتم استدعاء البيانات المرحلة لاجل التعديل عليها

البحث والتعديل في اكثر من نطاق.rar

[عبد العزيز البسكري]

 

الاخ ياسر السلام عليك اخي الكريم وعيدك مبارك وكل عام وانت بخير

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

وكود الترحيل انت من تقدمت به في المشاركة الاولى وجزاك الله خيرا

واريد ان يتم استدعاء البيانات المرحلة لاجل التعديل عليها

 

طيب أخ زوهير أسألك آخر سؤال تبادر إلى ذهني و أجب بينك و بين نفسك :

نفترض أنّ هناك شخصيْن يحملان نفس الاسم .. الاسم الذي هو معيار البحث حسب ملفك المرفق ..أحدهما في النطاق الأول و الآخر في النطاق الثاني .. لكن تفاصيلهما الأخرى مختلفة :

منْ هو العريس السعيد الذي سيظهر لك في التاكست بوكس غير المعدّة أصلاً للبحث  !!؟؟

أليس من المفروض وجود مثلا ليست بوكس لتظهر كل الأسماء حتى المتشابهة منها و من ثمة يقع الاختيار !!؟؟

أخي زوهير أتمنى من كل قلبي أن تجد منْ يساعدك من الأساتذة الأعزّاء

تحياتي / أخوك : عبد العزيز البسكري

[عبد العزيز البسكري]

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

أخي زوهير محاولة قدر المستطاع تلبية لنصف طلبك .. عند كتابة الاسم المقصود للبحث ستظهر كل الأسماء محل البحث بالنطاقيْن الأول و الثاني .. أيضا زر تعديل و زر إضافة .. حاول تكييفها لبقية طلباتك

أخوك / عبد العزيز البسكري

 

زوهير.rar

[زوهير]

اخي عبد العزيز المثال الذي ارفقته شبيه بالاصلي

اما التعامل فانا سأتعامل مع ارقام غير مكررة  لاجل جلب الاسماء وبالتالي ليس هناك اشكال

هل بأمكاني تغيير التعامل مع الارقام وليس الاسماء في الحل الذي ارفقته

جزاك الله خيرا على هذا المجهود

وهل يمكن الاستغناء عن ليست بوكس

[عبد العزيز البسكري]

جرّب إذن أخي زوهير بهذا الكود في ملفك الأصلي ..المهم هو التعاون :

 

• Private Sub CommandButton1_Click() 'Recherche
  Dim C As Range
      With Worksheets("Feuil1")
          Set Zone = Application.Union(.Range("A1:J65000"), .Range("K1:T65000"))
          Set C = Zone.Find(TextBox1.Value)
          If C Is Nothing Then
              MsgBox " la valeur recherchée n'est pas dans la base"
          Else
              For i = 0 To 9
                  Me.Controls("TextBox" & i + 2).Value = .Cells(C.Row, C.Column + i)
              Next i
          End If
      End With
  End Sub
•  

البحث والتعديل في اكثر من نطاق.rar

[زوهير]

اخي جزاك الله خيرا و زادك من العلم ونفع بك 

نجح الامر مع البحث

وبقي التعديل

لتمام الطلب

واعذرني على كثرة الطلب

[عبد العزيز البسكري]

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

تفضّل أخي زوهير هذا الملف وهو عبارة عن مزيج بين أكواد ملفك و أكواد ملفي

أخوك / عبد العزيز البسكري

 

زوهير للتعديل.rar

[زوهير]

الاخ عبد العزيز جزاك الله كل خير وزادك علما ونفع بك

نجح الامركله

 

حل ولا اروع حقا