مطلوب اضافة صفحة بحث برقم الفاتورة لاظهار كافة البيانات

[gasio]

السادة الاعضاء الكرام .... حياكم الله 

خالص شكرى للجميع واسئل الله ان ينفعكم خيراً بما تقدموه 

 اريد اضافة صفحة بحث برقم الفاتورة فى المرفق بحيث عند البحث برقم الفاتورة تظهرلي جميع بيانات الفاتورة المسجلة فى صفحة منفصلة

ولكم وافر التحية 

ادخال فواتير.rar

[ابراهيم الحداد]

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

انشئ ورقة عمل جديدة

واكتب هذا الكود فى موديول وانشئ له زر

وضع رقم الفاتورة التى تريد البحث

عنها فى الخلية "C3 "

Sub Search_Inv()
Dim sh As Worksheet
Dim R As Integer
For Each sh In Worksheets
For R = 6 To 1000
If sh.Name <> "Search" Then
If sh.Cells(R, 4) = Range("C3").Value Then
sh.Range("B" & R & ":L" & R).Copy
Range("B6").PasteSpecial xlPasteValues
Range("B6").PasteSpecial xlPasteFormats
End If
End If
Next R
Next sh
Application.CutCopyMode = False
End Sub