استدعاء بيانات على اساس اسم الصنف

[ناصرالمصرى]

ايها الاحباب الكرام

السلام عليكم ورحمته الله وبركاته

فى الملف ورقتين الاولى صفحة البيانات الرئيسية للأصناف التى تمتد الى 7000 صنف 

والثانية هى لطباعة أذون الصرف قابلة للزيادة والنقصان

المطلوب بعد إذن حضراتكم

استدعاء بيانات الاصناف من الورقة الرئيسية وترحيلها الى ورقة طباعة الأذون  على اساس العمود B  

والبيانات المطلوب استدعاؤها الاعمدة C  و D  و E   الى الاعمدة D  و E  و F

شاكر فضل حضراتكم وجزاكم الله خيرا

استدعاء بيانات على اساس اسم الصنف.rar

تم تعديل يناير 14, 2017 بواسطه ناصرالمصرى

[ابو علي و سدرة]

مش عارف بصراحة انا فاهمك كدة صح ولا غلط

بس عموما الملف المرفق يتم استدعاء بيانات الصنف وفقا لاسمه

وعند تغيير الاسم فى اى خلية من خلايا الاسماء يتم الاستدعاء لباقى البيانات

 

 

استدعاء بيانات على اساس اسم الصنف.rar

[ناصرالمصرى]

السلام عليكم

اخى الفاضل / ابو على وسدرة

شاكر مرورك العطر

توضيح المطلوب هو اننى اريد كود يقوم بتنفيذ المهمة

فى ورقة طباعة الأذون العمود  B  قائمة الاصناف وهى متغيرة حسب الاحوال   

حيث يتم تغير الاصناف من خلال معادلات حسب كود المورد

المطلوب بإذن الله كود يقوم بإستدعاء بيانات الاصناف من الورقة الرئيسية

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

شاكر فضلك وجزاكم الله خيرا

استدعاء بيانات على اساس اسم الصنف.rar

[ناصرالمصرى]

للرفع

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

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

اعتذر بشدة الملف والرد يخص موضع آخر

والملف لا يعتبر رد على الموضوع

 

 

 

 

 

تم تعديل يناير 15, 2017 بواسطه زيزو العجوز

[ناصرالمصرى]

وعليكم السلام ورحمته الله وبركاته

لاداعى للإعتذار أخى الفاضل السيد / زيزو

يشرفنى مساهمتك الطيبة فى الموضوع

شاكر فضل حضرتك وجزاك الله خيرا

[ناصرالمصرى]

للرفع رفع الله قدركم

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

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

اخى الكريم

هل تريد استبدال المعادلات كما هو موجود بحل الاستاذ / ابو على و سدرة

بكود ام انى قد فهمت خطأ

 

[ناصرالمصرى]

وعليكم السلام ورحمته الله وبركاته

نعم أستاذى الفاضل اريد كود يتولى المهمة بدلا من المعادلات

شاكر فضل حضرتك وجزاكم الله خيرا

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

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

انسخ الكود التالى والصقه فى الموديل الموجود بالملف

وخصص له زر فى الصفحة التى تريد ارسال البيانات اليها

Sub TransF()
Dim x As Variant, LR As Long, LS As Long, R As Integer, y As Range, z As Integer
LR = sheet1.Range("B" & Rows.Count).End(xlUp).Row
LS = Range("B" & Rows.Count).End(xlUp).Row
Range("D8:F" & LR).ClearContents
Set y = sheet1.Range("B8:E" & LR)
For R = 8 To LS
For z = 2 To 4
x = Application.VLookup(Range("B" & R), y, z, 0)
Cells(R, z + 2) = x
Next
Next
End Sub

 

تم تعديل يناير 15, 2017 بواسطه زيزو العجوز

[ناصرالمصرى]

وعليكم السلام ورحمته الله وبركاته

الله يبارك فى عمرك ياحاج زيزو ورزقكم الله وايانا من حيث لانحتسب

أطمع فى إضافة أخرى بعد إذن حضرتك

كيف يمكن إستدعاء بيانات وأصناف الشركات بدلالة كود الشركة المدون بالخلية B1  

برجاء الاطلاع على ورقة الشركات والمرفق التالى

شاكر فضل حضرتك وجزاكم الله خيرا

استدعاء بيانات على اساس اسم الصنف.rar

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

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

تفضل

 

 

استدعاء بيانات على اساس اسم الصنف.rar

[ناصرالمصرى]

وعليكم السلام ورحمته الله وبركاته

الله يزيد فضلك ياحاج زيزو

بارك الله فيكم وزادكم الله وإيانا من علمه 

والشكر أيضا للسيد / أبو على وسدرة

شاكر فضل حضرتك وجزاكم الله خيرا

تقبلوا وافر تقديرى

تم تعديل يناير 16, 2017 بواسطه ناصرالمصرى

[ناصرالمصرى]

أخى الفاضل الاستاذ / زيزو 

السلام عليكم ورحمته الله وبركاته

أعتذر للعودة للموضوع

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

شاكر فضل حضرتك وجزاكم الله خيرا

[ناصرالمصرى]

للرفع رفع الله قدركم

[رجب جاويش]

السلام عليكم

بعد اذن الأساتذة الفضلاء

تفضل أخى

النقطة الخاصة بالترقيم التلقائى

 

استدعاء بيانات على اساس اسم الصنف.rar

[ناصرالمصرى]

والله العظيم الأجمل من النقطة

هو رؤية حضرتك أستاذى الفاضل / رجب 

ومشاركتك بهذة الروح الطيبة واتمنى من الله تعالى

حضورك الكريم بموضوعى القادم بإذن الله

شاكر فضل الجميع وجزاكم الله خيرا

[رجب جاويش]

أخى الفاضل / ناصر

جزاك الله كل خير على هذه الكلمات الطيبة

وربنا يديم المودة والمحبة بين أعضاء هذا المنتدى الرائع

 

[ناصرالمصرى]

السلام عليكم ورحمته الله وبركاته

بارك الله فيكم جميعا

صراحة رغم ان الكود خفيف الا انه محير

شاءت الظروف أن أزيد سطر بالورقتين الاولى والثانية لتبدأ البيانات من الصف التاسع بدلا من الثامن

ولكن أرجو المساعدة لان  الكود يقل بمقدار 1 فى الترتيب مع محاولة التعديل

شاكر فضلكم *** وجزاكم الله خيرا

استدعاء بيانات.rar

تم تعديل فبراير 1, 2017 بواسطه ناصرالمصرى

[محمود_الشريف]

أخى الكريم 

اجعل الكود هكذا

Sub TranByCompCod()
Range("A9:F101").ClearContents
LR = Sheet3.Range("A" & Rows.Count).End(xlUp).Row
For R = 2 To LR
LC = Sheet3.Cells(R, Columns.Count).End(xlToLeft).Column
If Range("B1") = Sheet3.Cells(R, 1) Then
Range("D1") = Sheet3.Cells(R, 2)
Range("B2") = Sheet3.Cells(R, 3)
Range("D2") = Sheet3.Cells(R, 4)
Range("B3") = Sheet3.Cells(R, 5)
Range("D3") = Sheet3.Cells(R, 6)
For C = 8 To LC
x = WorksheetFunction.Transpose(Sheet3.Range(Sheet3.Cells(R, C), Sheet3.Cells(R, LC)))
Cells(C + 1, "B") = x
Cells(C + 1, "A") = Cells(C + 1, "A").Row - 7
Next
End If
Next
Call TransF
End Sub
Sub TransF()
Dim x As Variant, LR As Long, LS As Long, R As Integer, y As Range, z As Integer
LR = sheet1.Range("B" & Rows.Count).End(xlUp).Row
LS = Range("B" & Rows.Count).End(xlUp).Row
Range("D9:F" & LR).ClearContents
Set y = sheet1.Range("B9:E" & LR)
For R = 9 To LS
For z = 2 To 4
x = Application.VLookup(Range("B" & R), y, z, 0)
Cells(R, z + 2) = x
Next
Next
End Sub

 

[ناصرالمصرى]

استاذى الفاضل / محمود الشريف

السلام عليكم ورحمته الله وبركاته

بارك الله فيكم وأحسن اليكم

المشكلة الان هى عدم ادراج الصنف رقم 1 لا من ورقة الاكواد ولا من ورقة الشركات

برجاء تجربة الاكواد من 1 الى 2 الى 100 ستلاحظ عدم ادراج الصنف الاول

برجاء المساعدة وجزاكم الله تعالى عنى خير الجزاء

شاكر فضلكم *** وجزاكم الله خيرا

استدعاء بيانات+11111.rar

[محمود_الشريف]

أخى الكريم

جزيتم عنى خيرا على دعاؤكم الطيب

إليكم الملف بالمرفقات

استدعاء بيانات بعد التعديل.rar

[ناصرالمصرى]

استاذى الفاضل / محمود الشريف

السلام عليكم ورحمته الله وبركاته

بارك الله فيكم وأحسن اليكم

الان اكتشفت الخطأ وهى إضافة 1 بهذين السطرين

Cells(C + 2, "B") = x
Cells(C + 2, "A") = Cells(C + 1, "A").Row - 7

جعلكم الله تعالى عونا للجميع 

شاكر فضلكم *** وجزاكم الله خيرا