مساعدة لعمل بحث والطباعة التقرير

[أبو أحمد]

 بعد السلام عليكم ورحمة الله وبركاته
ارجوا المساعدة في عمل بحث برقم العمارة
وطباعة آخر ثلاث اعمدة من كل عمارة في البحث منفصلة
 وجزاكم الله كل خير 

عمائر.xlsx

[سليم حاصبيا]

جرب هذا الملف صفحة (Print_sheet)

 

 

عمائر.xlsm

[أبو أحمد]

شكراً جزيلاً أ. سليم
هذا بالفعل ما اريده ولكن هل تكرمت علي بشرح طريقة العمل 

[احمد بدره]

بعد إذن أستاذنا الفاضل

 اضغط كليك يمين على ورقة العمل Print_sheet 

يظهر صندوق حواري كما بالشكل 1

والشكل رقم 2 طريقة جعل الماكرو يعمل تلقائيًا

[أبو أحمد]

شكراً جزيلاً أ. سليم

هذا بالفعل ما اريده ولكن هل تكرمت علي بشرح طريقة العمل 

----------------------------------------------

If Not IsNumeric(Print_sheet.Range("a2")) Then Exit Sub
Dim My_Num%, t As Boolean, r
Print_sheet.Range("c3").Resize(6, 3) = vbNullString
Print_sheet.Range("d1") = vbNullString
My_Num = Print_sheet.Range("a2")
t = IsError(Application.Match(My_Num, Main.Range("c:c"), 0))
 If Not (t) Then
    r = Application.Match(My_Num, Main.Range("c:c"), 0)
   Else
    Exit Sub
 End If
 Print_sheet.Range("c3").Resize(6, 3).Value = _
 Main.Range("G" & r).Resize(6, 3).Value
 Print_sheet.Range("d1").Value = Main.Range("b" & r)
 
End Sub