ناصرالمصرى قام بنشر يناير 14, 2017 مشاركة قام بنشر يناير 14, 2017 (معدل) ايها الاحباب الكرام السلام عليكم ورحمته الله وبركاته فى الملف ورقتين الاولى صفحة البيانات الرئيسية للأصناف التى تمتد الى 7000 صنف والثانية هى لطباعة أذون الصرف قابلة للزيادة والنقصان المطلوب بعد إذن حضراتكم استدعاء بيانات الاصناف من الورقة الرئيسية وترحيلها الى ورقة طباعة الأذون على اساس العمود B والبيانات المطلوب استدعاؤها الاعمدة C و D و E الى الاعمدة D و E و F شاكر فضل حضراتكم وجزاكم الله خيرا استدعاء بيانات على اساس اسم الصنف.rar تم تعديل يناير 14, 2017 بواسطه ناصرالمصرى رابط هذا التعليق شارك More sharing options...
ابو علي و سدرة قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 مش عارف بصراحة انا فاهمك كدة صح ولا غلط بس عموما الملف المرفق يتم استدعاء بيانات الصنف وفقا لاسمه وعند تغيير الاسم فى اى خلية من خلايا الاسماء يتم الاستدعاء لباقى البيانات استدعاء بيانات على اساس اسم الصنف.rar 1 رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 15, 2017 الكاتب مشاركة قام بنشر يناير 15, 2017 السلام عليكم اخى الفاضل / ابو على وسدرة شاكر مرورك العطر توضيح المطلوب هو اننى اريد كود يقوم بتنفيذ المهمة فى ورقة طباعة الأذون العمود B قائمة الاصناف وهى متغيرة حسب الاحوال حيث يتم تغير الاصناف من خلال معادلات حسب كود المورد المطلوب بإذن الله كود يقوم بإستدعاء بيانات الاصناف من الورقة الرئيسية وترحيلها الى ورقة طباعة الأذون بدلالة اسم الصنف كما هو موضح بعاليه شاكر فضلك وجزاكم الله خيرا استدعاء بيانات على اساس اسم الصنف.rar رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 15, 2017 الكاتب مشاركة قام بنشر يناير 15, 2017 للرفع رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 (معدل) السلام عليكم ورحمة الله اعتذر بشدة الملف والرد يخص موضع آخر والملف لا يعتبر رد على الموضوع تم تعديل يناير 15, 2017 بواسطه زيزو العجوز رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 15, 2017 الكاتب مشاركة قام بنشر يناير 15, 2017 وعليكم السلام ورحمته الله وبركاته لاداعى للإعتذار أخى الفاضل السيد / زيزو يشرفنى مساهمتك الطيبة فى الموضوع شاكر فضل حضرتك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 15, 2017 الكاتب مشاركة قام بنشر يناير 15, 2017 للرفع رفع الله قدركم رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 السلام عليكم ورحمة الله اخى الكريم هل تريد استبدال المعادلات كما هو موجود بحل الاستاذ / ابو على و سدرة بكود ام انى قد فهمت خطأ رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 15, 2017 الكاتب مشاركة قام بنشر يناير 15, 2017 وعليكم السلام ورحمته الله وبركاته نعم أستاذى الفاضل اريد كود يتولى المهمة بدلا من المعادلات شاكر فضل حضرتك وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 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 بواسطه زيزو العجوز رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 16, 2017 الكاتب مشاركة قام بنشر يناير 16, 2017 وعليكم السلام ورحمته الله وبركاته الله يبارك فى عمرك ياحاج زيزو ورزقكم الله وايانا من حيث لانحتسب أطمع فى إضافة أخرى بعد إذن حضرتك كيف يمكن إستدعاء بيانات وأصناف الشركات بدلالة كود الشركة المدون بالخلية B1 برجاء الاطلاع على ورقة الشركات والمرفق التالى شاكر فضل حضرتك وجزاكم الله خيرا استدعاء بيانات على اساس اسم الصنف.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 16, 2017 مشاركة قام بنشر يناير 16, 2017 السلام عليكم ورحمة الله تفضل استدعاء بيانات على اساس اسم الصنف.rar رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 16, 2017 الكاتب مشاركة قام بنشر يناير 16, 2017 (معدل) وعليكم السلام ورحمته الله وبركاته الله يزيد فضلك ياحاج زيزو بارك الله فيكم وزادكم الله وإيانا من علمه والشكر أيضا للسيد / أبو على وسدرة شاكر فضل حضرتك وجزاكم الله خيرا تقبلوا وافر تقديرى تم تعديل يناير 16, 2017 بواسطه ناصرالمصرى رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 16, 2017 الكاتب مشاركة قام بنشر يناير 16, 2017 أخى الفاضل الاستاذ / زيزو السلام عليكم ورحمته الله وبركاته أعتذر للعودة للموضوع هل يمكن عمل ترقيم تلقائى بورقة طباعة الاذون حسب اعداد المنتجات المدونة بورقة الشركات شاكر فضل حضرتك وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 16, 2017 الكاتب مشاركة قام بنشر يناير 16, 2017 للرفع رفع الله قدركم رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 السلام عليكم بعد اذن الأساتذة الفضلاء تفضل أخى النقطة الخاصة بالترقيم التلقائى استدعاء بيانات على اساس اسم الصنف.rar 1 رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر يناير 17, 2017 الكاتب مشاركة قام بنشر يناير 17, 2017 والله العظيم الأجمل من النقطة هو رؤية حضرتك أستاذى الفاضل / رجب ومشاركتك بهذة الروح الطيبة واتمنى من الله تعالى حضورك الكريم بموضوعى القادم بإذن الله شاكر فضل الجميع وجزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 أخى الفاضل / ناصر جزاك الله كل خير على هذه الكلمات الطيبة وربنا يديم المودة والمحبة بين أعضاء هذا المنتدى الرائع رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر فبراير 1, 2017 الكاتب مشاركة قام بنشر فبراير 1, 2017 (معدل) السلام عليكم ورحمته الله وبركاته بارك الله فيكم جميعا صراحة رغم ان الكود خفيف الا انه محير شاءت الظروف أن أزيد سطر بالورقتين الاولى والثانية لتبدأ البيانات من الصف التاسع بدلا من الثامن ولكن أرجو المساعدة لان الكود يقل بمقدار 1 فى الترتيب مع محاولة التعديل شاكر فضلكم *** وجزاكم الله خيرا استدعاء بيانات.rar تم تعديل فبراير 1, 2017 بواسطه ناصرالمصرى رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 1, 2017 مشاركة قام بنشر فبراير 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 رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 استاذى الفاضل / محمود الشريف السلام عليكم ورحمته الله وبركاته بارك الله فيكم وأحسن اليكم المشكلة الان هى عدم ادراج الصنف رقم 1 لا من ورقة الاكواد ولا من ورقة الشركات برجاء تجربة الاكواد من 1 الى 2 الى 100 ستلاحظ عدم ادراج الصنف الاول برجاء المساعدة وجزاكم الله تعالى عنى خير الجزاء شاكر فضلكم *** وجزاكم الله خيرا استدعاء بيانات+11111.rar رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 أخى الكريم جزيتم عنى خيرا على دعاؤكم الطيب إليكم الملف بالمرفقات استدعاء بيانات بعد التعديل.rar 2 رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 استاذى الفاضل / محمود الشريف السلام عليكم ورحمته الله وبركاته بارك الله فيكم وأحسن اليكم الان اكتشفت الخطأ وهى إضافة 1 بهذين السطرين Cells(C + 2, "B") = x Cells(C + 2, "A") = Cells(C + 1, "A").Row - 7 جعلكم الله تعالى عونا للجميع شاكر فضلكم *** وجزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان