الحدادي قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 السلام عليكم المعطيات: 1. عندي جدول رئيسي (ورقة عمل1) وفيه جميع اسماء الموظفين وتقسيمهم الى ثلاث مجموعات 2. عملت ثلاث جدوال فرعية آخرى على حسب المجموعات في ورقة عمل 2 و 3 و 4 المطلوب: كيف اربط الجداول الفرعية في اوراق العمل مع الجدول الرئيسي؟ عند كتابة اسم موظف في الجدول الرئيسي يتم نسخه الى المجموعة المصنف اليها تلقائيا الشرح موجود في ملف الاكسل شكرا مقدما employer.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 تفضل أخى Sub ragab() Dim i As Integer, x As Integer Dim LR As Integer, y As Integer, z As Integer '============================================================ LR = [F10000].End(xlUp).Row Application.ScreenUpdating = False '============================================================ Sheets("المجموعة الاولى").Range("A2:F1000").ClearContents Sheets("المجموعة الثانية").Range("A2:F1000").ClearContents Sheets("المجموعة الثالثة").Range("A2:F1000").ClearContents '============================================================ x = 2: y = 2: z = 2 For i = 3 To LR If Cells(i, 6).Value = 1 Then Range("A" & i).Resize(1, 6).Copy Sheets("المجموعة الاولى").Range("A" & x).PasteSpecial xlPasteValues x = x + 1 ElseIf Cells(i, 6).Value = 2 Then Range("A" & i).Resize(1, 6).Copy Sheets("المجموعة الثانية").Range("A" & y).PasteSpecial xlPasteValues y = y + 1 ElseIf Cells(i, 6).Value = 3 Then Range("A" & i).Resize(1, 6).Copy Sheets("المجموعة الثالثة").Range("A" & z).PasteSpecial xlPasteValues z = z + 1 End If Next i Application.CutCopyMode = False Application.ScreenUpdating = True End Sub employer.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 وهذا كود آخر يعتمد على تسمية الشيتات بنفس أسماء المجموعات أى 1 و 2 و 3 Sub ragab() Dim Sh As String, i As Integer '============================================ LR = [F10000].End(xlUp).Row Application.ScreenUpdating = False '============================================ Sheets("1").Range("A2:F1000").ClearContents Sheets("2").Range("A2:F1000").ClearContents Sheets("3").Range("A2:F1000").ClearContents '============================================ For i = 3 To LR Sh = Cells(i, 6).Value AA = Sheets(Sh).Cells(1000, 1).End(xlUp).Row + 1 On Error Resume Next Range(Cells(i, "A"), Cells(i, "F")).Copy Sheets(Sh).Range("A" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Next i Application.ScreenUpdating = True End Sub employer2.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 وهذا كود للترحيل التلقائى بمجرد كتابة رقم المجموعة فى العمود F Private Sub Worksheet_Change(ByVal Target As Range) Dim Sh As String, i As Integer '============================================ LR = [F10000].End(xlUp).Row Application.ScreenUpdating = False '=========================================================== If Not Intersect(Target, Range("F3:F" & LR)) Is Nothing Then Sheets("1").Range("A2:F1000").ClearContents Sheets("2").Range("A2:F1000").ClearContents Sheets("3").Range("A2:F1000").ClearContents '============================================ For i = 3 To LR Sh = Cells(i, 6).Value AA = Sheets(Sh).Cells(1000, 1).End(xlUp).Row + 1 On Error Resume Next Range(Cells(i, "A"), Cells(i, "F")).Copy Sheets(Sh).Range("A" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Next i Application.ScreenUpdating = True End If End Sub employer3.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 السلام عليكم بارك الله فيك اخي الحبيب رجب و حفظك من كل مكروه احسنت عملا تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 6, 2012 مشاركة قام بنشر نوفمبر 6, 2012 أستاذى الحبيب / عبد الله باقشير شكرا جزيلا أستاذى الحبيب على اعطائى شرف هذا المرور الكريم والعطر وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
حسين شاكر قام بنشر نوفمبر 6, 2012 مشاركة قام بنشر نوفمبر 6, 2012 الاخ الحبيب رجب الكود الثالث اكثر من رائع ولكنة ينقصة الاضافات التالية 1 - بعد الكتابة فى الصفحة الرئيسية اريد ان ايتم مسح البيانات المكتوبة فى الصفحة ان يتم مسحها 2 - اذا اردت تغير المدى ولتكن الخان h مثلا بدلا من f اى سطر فى الكود يتم تغيرة 3 - حاولت التعديل على الكود لاحظ الصورة شكرا لسيادتكم وجعلة فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 6, 2012 مشاركة قام بنشر نوفمبر 6, 2012 أخى الفاضل /hussien2222 برجاء ارفاق ملف به كل التعديلات التى تريدها لزيادة التوضيح وان شاء الله يتم عمل المطلوب رابط هذا التعليق شارك More sharing options...
حسين شاكر قام بنشر نوفمبر 7, 2012 مشاركة قام بنشر نوفمبر 7, 2012 استاذ رجب شكرا لحسن تعاونكم جعلة فى ميزان حسناتكم حسين.rar رابط هذا التعليق شارك More sharing options...
منياوى قام بنشر نوفمبر 7, 2012 مشاركة قام بنشر نوفمبر 7, 2012 الف الف شكر رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 8, 2012 مشاركة قام بنشر نوفمبر 8, 2012 أخى الفاضل / حسين جرب هذا الكود وأى تعديل تريده أخبرنى حسين.rar رابط هذا التعليق شارك More sharing options...
حسين شاكر قام بنشر نوفمبر 8, 2012 مشاركة قام بنشر نوفمبر 8, 2012 الاستاذ الفاضل رجب الف شكر لحسن تعاونكم الملف جميل جدا ولكن هناك ملاحظة هامة جدا طلبت ان يتم مسح ما تم كتابتة بصفحة الترحيلات ولكن حساب العميل يبقى بدون مسح بل يضاف الية ما سيتجد من ترحيلات اسف جدا وشكرا جزيلا لحسن تعاونكم رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 أخى الفاضل / حسين هل تقصد أن يتم مسح البيانات الموجود فى الأعمدة J و K و L فى صفحة الترحيلات رابط هذا التعليق شارك More sharing options...
أحمد فؤاد قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 السلام عليكم ورحمة الله وبركاته أستاذي رجب جاويش بارك الله فيك أكواد رائعة أفضل مافيك أنك تريد خدمت إخواتك في المنتدي أشكرك على هذا الإجتهاد وجعله الله في ميزان حسناتك تلميذك أحمد فؤاد رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 أخى الفاضل / أحمد فؤاد العفو أخى بل نحن أخوة نتعلم من بعضنا البعض ومن أساتذة هذا الصرح الكبير مثل الأستاذ الكبير / عبد الله باقشير والأستاذ / الخالدى والاستاذ / عبد الله المجرب و غيرهم الكثير رابط هذا التعليق شارك More sharing options...
حسين شاكر قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 المقصود مسح ماتم كتابتة فى صفحة الترحيلات من a i ولكن ماتم ترحيلة للعميل لا يتم مسحة بل يضاف علية ما ستجدمن كتابات شكر لسيادتكم رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 أخى الفاضل / حسين جرب هذا التعديل وان شاء الله يكون هو ما تريد حسين.rar رابط هذا التعليق شارك More sharing options...
حسين شاكر قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 بارك الله فيك وفى اولادك ورزقك هو المطلوب فعلا بالظبط هناك طلب اخر اسف جدا وهو بالنسبة لخانة الترحيل اريد ان احول المعادلات المضافة لصفحة الترحيلات الى اكواد حسين.rar رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 10, 2012 مشاركة قام بنشر نوفمبر 10, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حسين حفظكم الله بعد إذن أستاذي النبيل رجب جاويش حفظه الله ما القصد إلا تخفيف الضغط عليه في الأشياء البسيطة. خالص الشكر للأستاذ الفاضل مرعي السيد حفظه الله تم الأستفادة من ملف له تم تصحيح بعض المعادلات(لأخطاء طفيفة فيها) كي تعمل مع الكود. في الأخير أرجو أن يكون المطلوب. المرفق حسين معادلات بالكود.rar أبو أنس ناصر حاجب رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 10, 2012 مشاركة قام بنشر نوفمبر 10, 2012 أخى الحبيب / أبو أنس حاجب حفظك الله من كل مكروه وخفف الله عنك كل متاعب الحياه وأزال عنك كل الهموم وجزاك الله كل خير تسلم ايديك رابط هذا التعليق شارك More sharing options...
حسين شاكر قام بنشر نوفمبر 10, 2012 مشاركة قام بنشر نوفمبر 10, 2012 الاخ العزيز ابو انس الاخ العزيز رجب مش عارف اقول اية غير الله يبارك فيكم وفى اولادكم واعمالكم ورزقكم امين الملف مبدع رابط هذا التعليق شارك More sharing options...
مطاع قام بنشر نوفمبر 21, 2013 مشاركة قام بنشر نوفمبر 21, 2013 اريد لو سمحتو نفس عملية الربط لجداول ولكن بالمعادلات حيث عندي جدول رئيسي ويتفرع عنه جداول فرعية اريد عندما اضيف اي بيانات في الجدول الرئيسي تضاف تلقائيا" في الصفحة المناسبة لها رابط هذا التعليق شارك More sharing options...
الحدادي قام بنشر مارس 29, 2014 الكاتب مشاركة قام بنشر مارس 29, 2014 ماشاء الله لاقوة الا بالله بارك الله فيكم سؤالي اخي رجب : حاولت ان اقلد عملك ، ولكن عجزت لا ادري اين اضع كود الترحيل او الاكواد الاخرى. رابط هذا التعليق شارك More sharing options...
.jpg.6f51c6e05b5460949df3e01688b51cb2.thumb.jpg.dbc3b76caf14da5d9e594177ae5e43d5.jpg)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.