مدريدي عمان قام بنشر يوليو 26, 2012 قام بنشر يوليو 26, 2012 السلام عليكم ورحمة الله وبركاته اردت فقط شرح الكود التالي وهو كود اعطاني اياه الاستاذ رجب Sub rajab() Dim ws As Worksheet Dim cl As Range Range("B3:H50").ClearContents For Each ws In ThisWorkbook.Worksheets For Each cl In ws.[F3:F136] If cl = [O13] And cl.Offset(0, 3).Value = [P13].Value or (If cl = [P13] And cl.Offset(0, 3) = [O13]) Then cl.Offset(0, -3).Resize(1, 7).Copy Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues End If Next Next Application.CutCopyMode = False [A9].Select End Sub السؤال الثاني هل يجب ان تكون كل الجداول في جميع الشيتات تحتوي على نفس عدد الصفوف
رجب جاويش قام بنشر يوليو 26, 2012 قام بنشر يوليو 26, 2012 أخى الفاضل أرجو ارفاق الملف الأصلى الذى يحتوى على الكود حتى يمكن شرحة من خلال الملف الذى يوجد فيه تقبل تحياتى
مدريدي عمان قام بنشر يوليو 27, 2012 الكاتب قام بنشر يوليو 27, 2012 عندما اردت اضافة شيتات الى الوركبوك لم يعمل الكود وحاولت نسخه الى وركبوك جديد لم يعمل مع انه لا يعطيني خطأ برمجي ksa1-H-A.rar
طارق محمود قام بنشر أغسطس 1, 2012 قام بنشر أغسطس 1, 2012 السلام عليكم أخي العزيز بعد إذن أخي الحبيب / رجب الكود بعد تنظيم قليل سيكون كالتالي Sub rajab() Dim ws As Worksheet Dim cl As Range Range("B3:H50").ClearContents For Each ws In ThisWorkbook.Worksheets For Each cl In ws.[F3:F136] If cl = [O13] And cl.Offset(0, 3).Value = [P13].Value Or (cl = [P13] And cl.Offset(0, 3) = [O13]) Then cl.Offset(0, -3).Resize(1, 7).Copy Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues End If Next Next Application.CutCopyMode = False [A9].Select End Sub قد يسهل هذا التنظيم عملية متابعة الكود حدد مالم تفهمه بالكود أم أنك مازلت تريد شرحه كله
مدريدي عمان قام بنشر أغسطس 1, 2012 الكاتب قام بنشر أغسطس 1, 2012 شكرا لك سيدي الفاضل إن استطعت شرحه بالكامل ساكون ممتنا لك ام اذا لم تكن تملك الوقت فاخبرني عن المتغيرات فقط عند تطبيقه على جدول اخر وبنفس المطلوب الا من حيث زيادة الصفوف والاعمده
طارق محمود قام بنشر أغسطس 2, 2012 قام بنشر أغسطس 2, 2012 السلام عليكم تفضل أخي الملف المرفق به الكود مشروح ولو أردت زيادة في الشرح فلاتتردد شرح الكود2.rar 1
مدريدي عمان قام بنشر أغسطس 2, 2012 الكاتب قام بنشر أغسطس 2, 2012 بارك الله لك في ما صنعت وجزاك اجر ما فعلت ورزقك من حيث لا تحتسب الشكر في حقك قليل لكن اتمنى لك الخير من كل قلبي وسلمت وسلمت يداك
عبدالله المجرب قام بنشر أغسطس 2, 2012 قام بنشر أغسطس 2, 2012 بارك الله فيك استاذ طارق وكل سنة وانت طيب
saad abed قام بنشر أغسطس 3, 2012 قام بنشر أغسطس 3, 2012 بارك الله لك في ما صنعت وجزاك اجر ما فعلت ورزقك من حيث لا تحتسب الشكر في حقك قليل لكن اتمنى لك الخير من كل قلبي وسلمت وسلمت يداك اللهم امين شرح وافى ومفيد
مدريدي عمان قام بنشر أغسطس 4, 2012 الكاتب قام بنشر أغسطس 4, 2012 (معدل) IF cl = [O13] And cl.Offset(0, 3).Value = [P13].Value Or (cl = [P13] And cl.Offset(0, 3) = [O13]) Then 1- لماذا وضعنا في الشطر الاول من الشرط . value ولم نضعه في الشطر الثاني 2- الازاحة الموجبة هنا بمقدار 3 يعني من z الى او a العكس Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues 3- علاما يعتمد اختيار B و E هنا 4- لماذا وضعنا القيمة 1000 امام ال E واحيانا نضع 100 واحيانا 1000000 وهكذا 5- من خلال الملف المرفق لماذا عند اعادة تنفيذ الكود يعمل بشكل صحيح وفي الاسفل ويكمل في الصفوف السفلى كل مرة تضغط على الزر 6- من خلال الملف المرفق لماذا يبدا النسخ من الصف الثاني عند الضغط لاول مرة study.rar تم تعديل أغسطس 4, 2012 بواسطه مدريدي عمان
عبدالله المجرب قام بنشر أغسطس 4, 2012 قام بنشر أغسطس 4, 2012 السلام عليكم 1- لماذا وضعنا في الشطر الاول من الشرط . value ولم نضعه في الشطر الثاني اخي وجود value لا يضر هنا لا نها افتراضية فسواءً كتبت ام لا فسيتم ارجاع القيمة ============================================================ 2- الازاحة الموجبة هنا بمقدار 3 يعني من z الى او a العكس اخي الازاحة هنا تعتمد عللى الخلية المعرفة في حلقة التكرار والتي تم الرمز لها ب (Cl) ويقصد بها هنا خلايا عمود (F) في ورقة العمل ============================================================= 3- علاما يعتمد اختيار B و E هنا تعتمد على العمود المرحل اليه والاصح في ملفك المرفق تكون Range("a" & [A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues ====================================================== لماذا وضعنا القيمة 1000 امام ال E واحيانا نضع 100 واحيانا 1000000 وهكذا القيمة 1000 هي عدد الصفوف المراد ارجاع اخر خلية بها بيانات منها وكلما كان الترحيل مستمر كلما كان الرقم اكبر لمرونة الكود ======================================================== 5- من خلال الملف المرفق لماذا عند اعادة تنفيذ الكود يعمل بشكل صحيح وفي الاسفل ويكمل في الصفوف السفلى كل مرة تضغط على الزر 6- من خلال الملف المرفق لماذا يبدا النسخ من الصف الثاني عند الضغط لاول مرة الفكرة موجودة في هذا السطر Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues وبالذات في +1 لانها تعني السطر الذي يلي اخر خلية بها بيانات في العمود المستهدف ========= والله اعلم 1
يوسف عطا قام بنشر أغسطس 4, 2012 قام بنشر أغسطس 4, 2012 السلام عليكم تفضل أخي الملف المرفق به الكود مشروح ولو أردت زيادة في الشرح فلاتتردد شرح رائع ربنا يباركلك
مدريدي عمان قام بنشر أغسطس 4, 2012 الكاتب قام بنشر أغسطس 4, 2012 ابو احمد شكرا لك وجزاك الله خيرا على ما صنعت لكن اللحين في المرفقين نفس الكود لماذا في كود الاستاذ رجب يعمل الكود بشكل صحيح وفي الملف المحاكى من قبلي لم يعمل كما اريد اتمنى تصويب الكود في الملف المرفق study
مدريدي عمان قام بنشر أغسطس 5, 2012 الكاتب قام بنشر أغسطس 5, 2012 ابو احمد شكرا لك وجزاك الله خيرا على ما صنعت لكن اللحين في المرفقين نفس الكود لماذا في كود الاستاذ رجب يعمل الكود بشكل صحيح وفي الملف المحاكى من قبلي لم يعمل كما اريد اتمنى تصويب الكود في الملف المرفق study
مدريدي عمان قام بنشر أغسطس 9, 2012 الكاتب قام بنشر أغسطس 9, 2012 لكن اللحين في المرفقين نفس الكود لماذا في كود الاستاذ رجب يعمل الكود بشكل صحيح وفي الملف المحاكى من قبلي لم يعمل كما اريد اتمنى تصويب الكود في الملف المرفق study الا يوجد من يساعد ام ماذا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.