بحث في اكثر من شيت وترحيل

[رشراش]

المطلوب

كود او بالمعادلات البحث في جميع الشيت، والترحيل

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

جازاكم الله خيرا.

بحث في نفس الملف في كل الصفحات وترحيل الى شيت.rar

[حسين مامون]

جرب هذا الماكرو ربما يفي بالغرض

Set ws = Sheets("الهدف")
Dim lr, lr2, X
Dim CH As Range
Set CH = ws.Range("o2")
Dim SH As Worksheet
lr2 = 11
Application.ScreenUpdating = False
ws.Range("c11:e11").ClearContents
For Each SH In Sheets
If SH.Name = "الهدف" Then GoTo 1
lr = SH.Range("c" & Rows.Count).End(xlUp).Row
For X = 5 To lr
If CH = SH.Cells(X, "c") Then
ws.[d5] = SH.Name
ws.[c7] = SH.Cells(X, "b")
ws.Range("c" & lr2).Value = SH.Cells(X, "a").Value
ws.Range("d" & lr2).Resize(1, 2).Value = SH.Cells(X, "c").Resize(1, 2).Value
lr2 = lr2 + 1
End If

Next X
1: Next SH
Application.ScreenUpdating = True

End Sub

 

[رشراش]

استميحك عذرا أخي

حسين مامون

لم اعرف كيف انفذ الماكرو، فلو سمحت ضمنه في الملف، لاني لم اصل الى  نتيحة..

جازاك الله خيرا.

[حسين مامون]

المرفق

بحث في نفس الملف في كل الصفحات وترحيل الى شيت.xlsm

[رشراش]

جزاك الله خيرا، جربته ويعمل جيد، 

.

يبقى الان تنقصني إضافة للكود حتى يعمل مباشرة دون الحاجة للضغط على زر، 

اي بمجرد الانتقل من الخلية O1 نحصل على النتيجة.