أبو أحمد

شكراً جزيلاً أ. سليم هذا بالفعل ما اريده ولكن هل تكرمت علي بشرح طريقة العمل ---------------------------------------------- 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

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

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