الخيتوني قام بنشر فبراير 12, 2018 مشاركة قام بنشر فبراير 12, 2018 السلام عليكم بالله عليكم كيف ممكن ان يتم ترحيل الصفوف التي بها اسماء من مصر فقط في عدة اوراق الى ورقة اخرى مثال.xlsx رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 13, 2018 مشاركة قام بنشر فبراير 13, 2018 السلام عليكم ورحمة الله استخدم الكود التالى 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 رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر فبراير 13, 2018 مشاركة قام بنشر فبراير 13, 2018 ممكن بعد اذن أستاذنا الكريم أن تضع هذا الكود داخل الملف حتى تكتمل الإفادة فقد حاولت فلم يعمل معى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.