محمد الورفلي1 قام بنشر أغسطس 18, 2014 مشاركة قام بنشر أغسطس 18, 2014 (معدل) السلام عليكم اريد مساعدة كيف يمكن تشغيل ماكرو لورقة 1 مثلاً والمفتاح يكون في الورقة2 الشرح في المرفق مفتاح لجلب مكرر.rar تم تعديل أغسطس 18, 2014 بواسطه محمد الخازمي رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 18, 2014 مشاركة قام بنشر أغسطس 18, 2014 السلام عليكم ورحمة الله أخي الكريم، تم تعديل الكود حسب ما فهمت... أرجو أن يكون المطلوب أخوك بن علية المرفق : مفتاح لجلب مكرر.rar رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 18, 2014 الكاتب مشاركة قام بنشر أغسطس 18, 2014 عليكم السلام اخي بن علية توجد مشكلة في الملف وكذالك يقول لي عدم وجود ماكرو ياريت يكون علي 2003 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 18, 2014 مشاركة قام بنشر أغسطس 18, 2014 السلام عليكم ورحمة الله أخي الكريم، ما نوع المشكلة في الملف؟ والملف أرسلته كما هو، يعمل على نسخة إكسيل 2003 لست أدري ماذا حصل معك... قبل فتحه بالبرنامج يُرجى مراقبة آمان الماكرو لديك (اجعله منخفضا)... أخوك بن علية رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 18, 2014 الكاتب مشاركة قام بنشر أغسطس 18, 2014 (معدل) السلام عليكم الاخ العزيز هذه الرسائل التي ظهرت لي عند الضغط علي مفتاح مكرر مع العلم بان الملفات الاخرى تعمل بشكل جيد تم تعديل أغسطس 18, 2014 بواسطه محمد الخازمي رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 18, 2014 مشاركة قام بنشر أغسطس 18, 2014 السلام عليكم ورحمة الله أخي الكريم، أرسل لك الملف مرة أخرى على أمل أن يفتح معك دون مشاكل... وأرسل لك الكود الذي عدلته : Sub فحص() With Sheets("رئيسي") .Range("J1:J10000").ClearContents On Error Resume Next Set ww = Application.WorksheetFunction LastRow = .Cells(Rows.Count, "G").End(xlUp).Row Application.ScreenUpdating = False .Range(.Cells(1,10), .Cells(1000, 10)).ClearContents For R = 2 To LastRow If ww.CountIf(.Range("G1:G"& R), .Cells(R, 7).Value) > 1 Then .Cells(10,10).End(xlUp).Offset(1, 0) = .Cells(R,7) End If Next .Range("G1:O1000").Sort .[b5], xlAscending For N = 2 To LastRow If .Cells(N, 2) <> "" Then .Cells(N, 1) = .Cells(N, 2).Row - 5 End If Next Application.ScreenUpdating = True .Cells(2, 10).Select On Error GoTo 0 .Range("J1:J3000").Sort Key1:=.Range("J1:J3000"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With End Sub أخوك بن علية الملف المرفق : مفتاح جلب المكرر.rar رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 18, 2014 الكاتب مشاركة قام بنشر أغسطس 18, 2014 السلام عليكم ورحمة الله اخي العزيز بارك الله فيك علي الكود تمام رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 19, 2014 الكاتب مشاركة قام بنشر أغسطس 19, 2014 (معدل) السلام عليكم اخواني الشكر للاخ بن علية لقد ساعدني بارك الله فية ان كان قد يرى هذه المشاركة او اي عضو كريم اخر فا حبيت ان يضيف للمعادلة جلب مكرر عمودين العمود G والعمود H مفتاح لجلب 2مكرر.rar تم تعديل أغسطس 19, 2014 بواسطه محمد الخازمي رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 20, 2014 الكاتب مشاركة قام بنشر أغسطس 20, 2014 السلام عليكم ورحمة الله للرفع رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 20, 2014 الكاتب مشاركة قام بنشر أغسطس 20, 2014 السلام عليكم اخواني الشكر للاخ بن علية لقد ساعدني بارك الله فية ان كان قد يرى هذه المشاركة او اي عضو كريم اخر فا حبيت ان يضيف للمعادلة جلب مكرر عمودين العمود G والعمود H مفتاح لجلب 2مكرر.rar رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 21, 2014 الكاتب مشاركة قام بنشر أغسطس 21, 2014 للرفع رابط هذا التعليق شارك 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.