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