اريد بطاقات صنف بواسطة دالة البحث vlookup

[NIZARTG]

سلام عليكم

 في هذا الملف عندي 150 صنف كل صنف عملت له جدول واريد ان ادخل على الجدول حسب رقم الصنف من اجل التعديل فيه عند البيع والشراء بدون ان يتعبني ذلك بالبحث

عند طريق اسهم التمرير .

 

ارجو من من يعرف طريق عرض الجدول المطلوب بالبحث عن طريق دالة البحث بدون الإضطرار لإنشاء كل هذه الجداول لانها تختلف فقط في رقم الصنف و عنوان المادة

 

وفقنا الله وإياكم

 

مبيعات ومخازن2013.zip

[NIZARTG]

ارجو من الاخوة الكرام التفاعل مع الموضوع

وشكرا

[طارق محمود]

السلام عليكم

أخي العزيز

أرجو أن يكون المرفق هو ماتريد

 

استخدمت به الأكواد التالية (ليس لها حاجة الآن ، فقط للتعلم)

 

 

Sub Macro1()
' بعد نسخ جميع البطاقات
' هذا الكود لعمل فاصل صفحات بعد كل بطاقة
For i = 1 To 150
    Range("A" & i * 28 + 1).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next
End Sub


Sub Macro2()
' وهذا الكود لتغيير عنوان البطاقة لجميع الـ 150 صنف
For i = 1 To 150
    n = Sheet1.Cells(i, 12)
    Range("A" & i * 28 - 20).Value = "بطاقة صنف / للمعادن {" & n & "}"
Next
End Sub


Sub Macro3()
' وهذا الكود يتم تشغيله من الورقة الأولي لعمل اللينكات كل خلية مع عنوان البطاقة التي بها الرقم
For r = 4 To 162
    Cells(r, 1).Select
    If IsEmpty(Selection) Then GoTo 10
    x = "{" & ActiveCell.Value & "}"
    With Sheet2
        a = .Cells.Find(What:=x, After:=[A1], LookIn:=xlFormulas, LookAt:=xlPart).Row
    End With
    lnk = "'" & Sheet2.Name & "'!A" & a
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=lnk
10 Next
 End Sub

 

مبيعات ومخازن2013_2.rar

[NIZARTG]

سلام عليك

جزاك الله خير اخي طارق هذا بالضبط ما أريد

 

 

ولكن لجهلي بالأكواد  احببت لو اشتغلته بدوال البحث  حتى استطيع مستقبلا توسيع وتعديل البرنامج فأنا متوقع ان الاصناف سوف تزيد عن 150

 

 

كذلك كان هنالك مشاركة لاحد الاخوة لا ادري في اي مكان في المنتدى كما هو مرفق في الملف التالي فيها ان بطاقة الصنف تتغير حسب الاختيار من القائمة المنسدلة اعتقد انها مبنية بدوال البحث ولكن لم اتمكن من معرفة اي دالة استخدمت وكيف ؟؟؟

 

أرجو المساعدة بقدر المستطاع

 

و جزاك الله خير اخي طارق على هذا المجهود الطيب

 

كارتة صنف.rar

[NIZARTG]

سلام عليكم

اخي طارق بارك الله فيك على عملك الطيب و الموفق

 

زادت عندي الأصناف من 150 صنف إلى 300 صنف ولست اعرف كيف اعدل الاكواد هل تستطيع المساعدة

 

ارجو المساعدة اخي طارق وجزاك الله خيرا.

[طارق محمود]

السلام عليكم

أخي العزيز

 

قبل البدء في العملية لابد أنك تلاحظ أن كل كارت مطبوع في 28صف بالضبط

 

خطوات التغيير

 

في الورقة الأولي "ارقام الصنف" إتبع الخطوات التالية

01 ضع الأصناف الجديدة بنفس نظام القديمة

02 إن كان الرمز (كود الصنف) متسلسل فببساطة ضع الأرقام الجديدة في العمود L أسفل القديمة لأن الكود يستخدمها من هذا العمود وإلا فلتنقلها فالتصفية المتقدمة

 

في الورقة الثانية إتبع الخطوات التالية

03 نسخ الـ 150 كارت (يعني من صف1 إلي صف 4200) واللصق بداية من الصف 4201 

04 تحديد نطاق الطباعة الجديد A1:Q8400

05 تغير رقم الكارت الأخير في الكود الأول بدلا من 150 ليكون 300

06 لعمل فواصل صفحات لكل كارت (كل 28 سطر) تشغيل الكود الأول (لابد أن تكون بالورقة الثانية أثناء التشغيل)

07 تغير رقم الكارت الأخير في الكود الثاني بدلا من 150 ليكون 300

08 لتغيير عناوين الكروت (ليطابق الرمز بالورقة الأولي) : تشغيل الكود الثاني (لابد أن تكون بالورقة الثانية أثناء التشغيل)

 

إرجع للورقة الأولي "ارقام الصنف" ثم إتبع الخطوات التالية

09 في السطر الأول من الكود الثالث غير رقم آخر صف من 162 إلي الرقم الحقيقي للآخر صف بالورة الأولي (في المثال المرفق 319)

10 لعمل اللينكات تشغيل الكود الثالث (لابد أن تكون بالورقة الأولي أثناء التشغيل)

 

مرفق المثال وبه أصناف فرضية حتي 300 وتم إجراء تلك الخطوات عليه

لو محتمل تغييرات قليلة في المستقبل يمكنك اتباع نفس الخطوات

ولكن لو محتمل تغييرات كثيرة فيمكننا التفكير بتغيير نظام الملف والكود

 

تفضل المرفق

مبيعات ومخازن2013_3.zip

[NIZARTG]

سلام عليك

 

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

انت ما شاء الله اعطيتنا الصيد و طريقة الصيد

 

جزاك الله خير، لقد استفدت مما قدمت لي كثيرا

 

وفقنا الله وإياك