البحث عن العملاء من خلال رقم الطلبيه

[محمد المصرى]

كيف يمكن البحث عن جميع العملاء تحت رقم طلبيه واحدة

 

 

 

 

 

 

 

 

12.rar

[ياسر خليل أبو البراء]

أخي الكريم محمد

أهلاً بك في المنتدى ونورت بين إخوانك

برجاء تغيير اسم الظهور للغة العربية ، والإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى ...

بالنسبة لطلبك جرب الكود التالي ، عند تنفيذ الكود سيطلب منك إدخال رقم الطلبية وفقط ...وسيقوم الكود بالمطلوب إن شاء الله

Sub Test()
    Dim Answer As String, I As Integer
    Answer = InputBox("Enter Order Number")

    If Answer = "" Then Exit Sub

    Application.ScreenUpdating = False
        Range("H2:J1000").ClearContents
        
        For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            If Cells(I, 1).Value = Answer Then Range("H" & Cells(Rows.Count, "H").End(xlUp).Row + 1).Resize(1, 3).Value = Cells(I, 1).Resize(1, 3).Value
        Next I
    Application.ScreenUpdating = True
End Sub

حمل الملف من هنا

تقبل تحياتي

[محمد المصرى]

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

 

[محمد المصرى]

لو امكن ايضا فى الكود لو البيانات فى شيت مختلف 

Transfer By Order Number YasserKhalil.rar