مساعدة :- طريقة البحث بجلب معلومات صف كامل الى شيت جديد من عدة شيتات

[مدريدي عمان]

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

تهنئة خاصة لجميع المسلمين بمناسبة الشهر الفضيل

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

ولكم جزيل الشكر

[مدريدي عمان]

وهذا هو المرفق

search.rar

[جمال عبد السميع]

أتمني أخي أن يكون المطلوب

serch.rar

[كريم جمال]

استاذى الفاضل محمود كل عام وحضرتك بخير

[يوسف السيد]

سلمت يمناك .. حل ولا أروع

[مدريدي عمان]

أتمني أخي أن يكون المطلوب

شكرا لك عزيزي ووفق الله لما تحب وتقبل منك الطاعات

[مدريدي عمان]

المطلوب بنفس الطريقة ولكن ليس بالمعادلات وانما بالاكواد لو سمحت حتى استطيع اضافة صفحات كثيرة في المستقبل القريب

[رجب جاويش]

أخى الفاضل

هذا هو الكود الذى تريده

Sub ragab()

Dim cl As Range

[B3:H9].ClearContents

For i = 1 To Sheets.Count - 1

For Each cl In Sheets(i).Range("B3:B10")

	 If cl = [L5] Then

		 cl.Resize(1, 7).Copy

		 Range("b" & [B100].End(xlUp).Row + 1).PasteSpecial xlPasteValues

		 Application.CutCopyMode = False

	 End If

Next

Next

End Sub

search1.rar

[رجب جاويش]

وهذا حل آخر

بدون زر

تختار المركب من الخلية L5 فيتم تنفيذ الكود مباشرة

search2.rar

[جمال عبد السميع]

شكرا أخي يوسف علي مرورك الطيب وعلي تشجيعك الرائع

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

أستاذي ومعلمي رجب جاويش حلولك جميلة ورائعة بارك الله فيك وزادك الله من علمه

[مدريدي عمان]

شكرا استاذنا رجب الابداع دائما ياتي منك ولك جزيل الشكر

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

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

[رجب جاويش]

أخى الحبيب / محمود

أخى الفاضل / مدريدى عمان

شكرا جزيلا لكما

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