استدعاء مكرر

[محمد الورفلي1]

 السلام عليكم

اريد مساعدة  كيف يمكن تشغيل ماكرو لورقة 1 مثلاً والمفتاح يكون في الورقة2

الشرح في المرفق

 

 

 

 

مفتاح لجلب مكرر.rar

تم تعديل أغسطس 18, 2014 بواسطه محمد الخازمي

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم، تم تعديل الكود حسب ما فهمت... أرجو أن يكون المطلوب

 

 

أخوك بن علية

 

 

المرفق : مفتاح لجلب مكرر.rar

[محمد الورفلي1]

عليكم السلام

اخي بن علية

توجد مشكلة في الملف وكذالك يقول لي عدم وجود ماكرو

ياريت يكون علي 2003

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم، ما نوع المشكلة في الملف؟ والملف أرسلته كما هو، يعمل على نسخة إكسيل 2003 لست أدري ماذا حصل معك... قبل فتحه بالبرنامج يُرجى مراقبة آمان الماكرو لديك (اجعله منخفضا)...

 

أخوك بن علية

[محمد الورفلي1]

السلام عليكم

الاخ العزيز هذه الرسائل التي ظهرت لي عند الضغط علي مفتاح مكرر مع العلم بان الملفات الاخرى تعمل بشكل جيد

 

 

 

تم تعديل أغسطس 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

 

[محمد الورفلي1]

السلام عليكم ورحمة الله

 

اخي العزيز بارك الله فيك علي الكود

 

تمام

[محمد الورفلي1]

السلام عليكم

 

اخواني الشكر للاخ بن علية لقد ساعدني بارك الله فية ان كان قد يرى هذه المشاركة او اي عضو كريم اخر فا حبيت ان يضيف للمعادلة  جلب مكرر عمودين  العمود G والعمود H 

 

 

 

مفتاح لجلب 2مكرر.rar

تم تعديل أغسطس 19, 2014 بواسطه محمد الخازمي

[محمد الورفلي1]

السلام عليكم ورحمة الله

 

للرفع

[محمد الورفلي1]

السلام عليكم

 

اخواني الشكر للاخ بن علية لقد ساعدني بارك الله فية ان كان قد يرى هذه المشاركة او اي عضو كريم اخر فا حبيت ان يضيف للمعادلة  جلب مكرر عمودين  العمود G والعمود H 

 

 

 

مفتاح لجلب 2مكرر.rar

[محمد الورفلي1]

للرفع