ترحيل صفوف الى ورقم اخرى

[الخيتوني]

السلام عليكم

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

مثال.xlsx

[ابراهيم الحداد]

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

استخدم الكود التالى

Sub NatData()
Dim C As Range, Sh As Worksheet
Sheets("المطلوب").Range("E5:F" & Sheets("المطلوب").Range("E" & Rows.Count).End(xlUp).Row).ClearContents
For Each Sh In Worksheets
If Sh.Name <> "المطلوب" Then
For Each C In Sh.Range("D3:D100")
If C.Value Like "*" & "مصر" & "*" Then
p = p + 1
Cells(p + 5, 5) = C.Offset(0, -1).Value
Cells(p + 5, 6) = C.Value
End If
Next
End If
Next
End Sub

 

[هانى محمد]

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