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

[f16]

اسعد الله مسائكم اخواني اعضاء هذا لمنتدى الرائع 

سؤالي 

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

اريد ان اقوم بلصق البيانات في الورقة رقم 2 والتي تحتوي على ثلاثة اسماء مؤنثة على جدول رقم 1 قمت بعمل فلترة للاسم فهد ، اريد ان استبدل اسماء فهد الثلاثه بالأسماه الثلاثة الاخرى المؤنثة 

اتمنى ان اكون وفقت في الشركة 

مثال 

مثال اوفيسنا الاصق على بيانات مفلترة.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Sub filter_me()

Dim T As Worksheet
Dim S As Worksheet
Dim Rg As Range
Dim Ro
Dim cret$

Set S = Sheets("Source")
Set T = Sheets("Target")
Set Rg = S.Range("E2").CurrentRegion

S.AutoFilterMode = False
T.Range("E2").CurrentRegion.Clear
cret = T.Range("A1")

Rg.AutoFilter 3, cret
Rg.SpecialCells(12).Copy

With T.Range("E2")
.PasteSpecial (4)
.PasteSpecial (12)
End With

S.AutoFilterMode = False
Application.CutCopyMode = False

Ro = T.Range("E2").CurrentRegion.Rows.Count
  If Ro > 1 Then
   T.Range("E3").Resize(Ro - 1) = _
   Evaluate("Row(1:" & Ro - 1 & ")")
  End If
T.Range("E2").Select
End Sub

الملف مرفق

f16.xlsm

[f16]

ا/ سليم 

اعتقد ان فكرتي لم تصل اليك جيداً

ما اقصدة هو انني قمت في المثال السابق بعمل فلترة للاسماء واخترت اسم فهد وعلى هذا قمت بعمل التصفية كما هوا في المثال المرفوق . في نفس المثال في الورقة رقم 2 يوجد بها اسماء . اريد ان اقوم بنسخ اسماء البنات والصقاها في الورقة رقم 1 في بدلأ من فهد . لا اريد ان اقوم بعمل استبدال ولاكن عمل لصق ، لانه يوجد لدي بيانات كثيرة اقوم بعمل فلتر لها ومن ثم اريد ان الصق مكانها بيانات اخرى . 

ارجو ان اكون قد قمت  بارسال الفكرة اليك 

[سليم حاصبيا]

في هذه الحالة لا حاجة للفلتر (معادلة بسيطة)

Fahd.xlsx

[f16]

شكراً على هذا التذكير 

الاستاذ سليم فعلاً قدم حل رائع جداً . وقد قمت بعمل اعجاب للحل 

شكراً للجميع