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

[commandos1975]

اريد ان يكون شرط الترحيل هو القيمة الموجودة في الصفحة monadah بدلا من ان يكون في نفس الصفحة

tarhel.rar

[عبدالله المجرب]

السلام عليكم

في الخلية K2 في الورقة monadah ضع الشرط

واستبدل الكود بهذا

Sub Trheel3()

Dim cl As Range

If [K2] = "" Then Exit Sub

For Each cl In Range("B2:B" & [B1000].End(xlUp).Row)

If cl.Value = Sheets("monadah").[K2] Then

cl.Resize(1, 4).Copy Sheets("monadah").Range("B" & Sheets("monadah").[B1000].End(xlUp).Row + 1)

End If

Next

MsgBox "Mohammed Ibrahim ", vbOKOnly, "Good"

End Sub

[commandos1975]

شكرا جزيلا