commandos1975 قام بنشر يناير 4, 2013 قام بنشر يناير 4, 2013 اريد ان يكون شرط الترحيل هو القيمة الموجودة في الصفحة monadah بدلا من ان يكون في نفس الصفحة tarhel.rar
عبدالله المجرب قام بنشر يناير 4, 2013 قام بنشر يناير 4, 2013 السلام عليكم في الخلية 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.