مدريدي عمان قام بنشر يوليو 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 السؤال الثاني هل يجب ان تكون كل الجداول في جميع الشيتات تحتوي على نفس عدد الصفوف رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يوليو 26, 2012 مشاركة قام بنشر يوليو 26, 2012 أخى الفاضل أرجو ارفاق الملف الأصلى الذى يحتوى على الكود حتى يمكن شرحة من خلال الملف الذى يوجد فيه تقبل تحياتى رابط هذا التعليق شارك More sharing options...
مدريدي عمان قام بنشر يوليو 27, 2012 الكاتب مشاركة قام بنشر يوليو 27, 2012 عندما اردت اضافة شيتات الى الوركبوك لم يعمل الكود وحاولت نسخه الى وركبوك جديد لم يعمل مع انه لا يعطيني خطأ برمجي ksa1-H-A.rar رابط هذا التعليق شارك More sharing options...
مدريدي عمان قام بنشر يوليو 30, 2012 الكاتب مشاركة قام بنشر يوليو 30, 2012 لا يوجد رد ام ماذا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 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 قد يسهل هذا التنظيم عملية متابعة الكود حدد مالم تفهمه بالكود أم أنك مازلت تريد شرحه كله رابط هذا التعليق شارك More sharing options...
مدريدي عمان قام بنشر أغسطس 1, 2012 الكاتب مشاركة قام بنشر أغسطس 1, 2012 شكرا لك سيدي الفاضل إن استطعت شرحه بالكامل ساكون ممتنا لك ام اذا لم تكن تملك الوقت فاخبرني عن المتغيرات فقط عند تطبيقه على جدول اخر وبنفس المطلوب الا من حيث زيادة الصفوف والاعمده رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 السلام عليكم تفضل أخي الملف المرفق به الكود مشروح ولو أردت زيادة في الشرح فلاتتردد شرح الكود2.rar 1 رابط هذا التعليق شارك More sharing options...
مدريدي عمان قام بنشر أغسطس 2, 2012 الكاتب مشاركة قام بنشر أغسطس 2, 2012 بارك الله لك في ما صنعت وجزاك اجر ما فعلت ورزقك من حيث لا تحتسب الشكر في حقك قليل لكن اتمنى لك الخير من كل قلبي وسلمت وسلمت يداك رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 بارك الله فيك استاذ طارق وكل سنة وانت طيب رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أغسطس 3, 2012 مشاركة قام بنشر أغسطس 3, 2012 بارك الله لك في ما صنعت وجزاك اجر ما فعلت ورزقك من حيث لا تحتسب الشكر في حقك قليل لكن اتمنى لك الخير من كل قلبي وسلمت وسلمت يداك اللهم امين شرح وافى ومفيد رابط هذا التعليق شارك More sharing options...
مدريدي عمان قام بنشر أغسطس 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 بواسطه مدريدي عمان رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 4, 2012 مشاركة قام بنشر أغسطس 4, 2012 السلام عليكم تفضل أخي الملف المرفق به الكود مشروح ولو أردت زيادة في الشرح فلاتتردد شرح رائع ربنا يباركلك رابط هذا التعليق شارك More sharing options...
مدريدي عمان قام بنشر أغسطس 4, 2012 الكاتب مشاركة قام بنشر أغسطس 4, 2012 ابو احمد شكرا لك وجزاك الله خيرا على ما صنعت لكن اللحين في المرفقين نفس الكود لماذا في كود الاستاذ رجب يعمل الكود بشكل صحيح وفي الملف المحاكى من قبلي لم يعمل كما اريد اتمنى تصويب الكود في الملف المرفق study رابط هذا التعليق شارك More sharing options...
مدريدي عمان قام بنشر أغسطس 5, 2012 الكاتب مشاركة قام بنشر أغسطس 5, 2012 ابو احمد شكرا لك وجزاك الله خيرا على ما صنعت لكن اللحين في المرفقين نفس الكود لماذا في كود الاستاذ رجب يعمل الكود بشكل صحيح وفي الملف المحاكى من قبلي لم يعمل كما اريد اتمنى تصويب الكود في الملف المرفق study رابط هذا التعليق شارك More sharing options...
مدريدي عمان قام بنشر أغسطس 9, 2012 الكاتب مشاركة قام بنشر أغسطس 9, 2012 لكن اللحين في المرفقين نفس الكود لماذا في كود الاستاذ رجب يعمل الكود بشكل صحيح وفي الملف المحاكى من قبلي لم يعمل كما اريد اتمنى تصويب الكود في الملف المرفق study الا يوجد من يساعد ام ماذا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.