كود استدعاء من خلال رقم القائمة مكرر

[ahmed ahmed 12354]

السلام عليكم اساتذتى الكرام ... أرجو التلطف على مساعدتى فى كود استدعاء المعلومات من شيت الى شيت اخرى ل غرض طباعة من خلال رقم القائمة متكرر

 

من فضلك لا تقوم برفع المشاركة مرة أخرى على مكتبة الموقع فعليك برفعها هنا مباشرة 

ahmed1.xlsm

[احمدزمان]

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

اخي الفاضل

تم عمل الكود في حدث التغيير في الورقة

لذلك فقط بمجرد كتابة رقم القائمة في الخلية الصفراء تظهر النتائج فورا

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$3" Then
Q1 = Range(Target.Address).Value
    Range("B15:J39").ClearContents
TR = 15
With Sheets("ÊÝÇÕíá ÇáãÈíÚÇÊ")
For FR = 4 To 999
If .Cells(FR, 2) = Q1 Then
Cells(8, 4) = .Cells(FR, 3)
Cells(TR, 2) = .Cells(FR, 1)
Cells(TR, 3) = .Cells(FR, 4)
Cells(TR, 4) = .Cells(FR, 5)
Cells(TR, 5) = .Cells(FR, 6)
Cells(TR, 7) = .Cells(FR, 8)
Cells(TR, 8) = .Cells(FR, 9)
Cells(TR, 9) = .Cells(FR, 10)
Cells(TR, 10) = .Cells(FR, 11)
Cells(12, 9) = .Cells(FR, 12)
Cells(10, 9) = .Cells(FR, 14)
Cells(10, 4) = .Cells(FR, 15)
Cells(12, 4) = .Cells(FR, 16)
TR = TR + 1
End If
Next FR
End With
Range(Target.Address).Select
End If

End Sub

مرفق الملف

ahmed1.xlsm

[ahmed ahmed 12354]

بارك الله فيك استاذ احمدزمان

اشكرك كود شغال وممتاز

ربي يحفظك 

عن أبي هريرة رضي الله عنه أن النبي صلى الله عليه وسلم قال: «لا يَشْكُرُ اللَّهَ مَنْ لا يَشْكُرُ النَّاسَ»

 

أحمد يوسف

كان لدي مشكلة في ضعف انترنيت لم استطع تحميل الا محاولات عديدة تم تحميل ملف ل ارى

[احمدزمان]

العفو

جزاك الله خيرا

[ahmed ahmed 12354]

احمدزمان

لو سمحت ممكن تفضل على ماسنجر فضلا 

https://www.facebook.com/profile.php?id=100004283589341

 

[احمدزمان]

السلام عليكم

اعتذر منك على التاخير

كنت مريض كورونا و الان الحمد بخير

لا يوجد لدي فيسبوك او تويتر