thegenius33 قام بنشر يناير 6, 2013 مشاركة قام بنشر يناير 6, 2013 أرجو من أهل الخبرة شرح طريقة فصل تلاميذ الفصل الي 2/1 ، 2/2 وهكذا بيحيث يتم ادخال البيانات في الورقة الأولي ويتم الفصل تلقائي في الورقة الثاني والثالثة وهكذا نرجو الرد وبالشرح المبسط لأننا مبتدئين وكثير من الكواد والمعادلات لا نغهمها ولكم جزيل الشكر الصف الثاني.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 6, 2013 مشاركة قام بنشر يناير 6, 2013 السلام عليكم حط هذا الكود في حدث ورقة " الصف الثاني " مجرد الكتابه في عمود اللجنه يرحل الصف الى الورقة المماثله لرقم الفصل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [I14:I10000]) Is Nothing Then Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets With Target If Right(.Offset(0, -3), 1) & "-" & Left(.Offset(0, -3), 1) = Sh.Name Then Lr = Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row .Offset(0, -8).Resize(1, 9).Copy Sh.Range("A" & Lr).PasteSpecial xlPasteValues End If End With Next Application.CutCopyMode = False End If End Sub رابط هذا التعليق شارك More sharing options...
thegenius33 قام بنشر يناير 6, 2013 الكاتب مشاركة قام بنشر يناير 6, 2013 أخي الفاضل انا اريد ان يكون الفصل بناءآ علي ادخال الصف 2-1 أو 2-2 وهكذا فعمود اللجنه هذا تم اضافته بالخطأ نرجو الرد ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 6, 2013 مشاركة قام بنشر يناير 6, 2013 بيكون هكذا مجرد الادخال في عمود النوع اذا حطينا الادخال في عمود الفصل كيف سيرحل مابعده وهو النوع ؟ اذا الترحيل سيتم بعد الانتهاء من ادخال بيانات الاعمده " اخر عمود هو النوع " Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [H14:H10000]) Is Nothing Then Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets With Target If Right(.Offset(0, -2), 1) & "-" & Left(.Offset(0, -2), 1) = Sh.Name Then Lr = Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row .Offset(0, -7).Resize(1, 8).Copy Sh.Range("A" & Lr).PasteSpecial xlPasteValues End If End With Next Application.CutCopyMode = False End If End Sub رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر يناير 6, 2013 مشاركة قام بنشر يناير 6, 2013 اخى الحبيب يمكن عمل ذلك عن طريق التصفية المتقدمة وتسجيلها بالميكرو ان ارت تنفيذه بهذه الطريقه الرجاء اخبارى رابط هذا التعليق شارك More sharing options...
thegenius33 قام بنشر يناير 6, 2013 الكاتب مشاركة قام بنشر يناير 6, 2013 اخى الحبيب يمكن عمل ذلك عن طريق التصفية المتقدمة وتسجيلها بالميكرو ان ارت تنفيذه بهذه الطريقه الرجاء اخبارى نرجو شرح هذه الطريقة يا اخي ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
thegenius33 قام بنشر يناير 6, 2013 الكاتب مشاركة قام بنشر يناير 6, 2013 أين الرد abo_alaa رابط هذا التعليق شارك More sharing options...
جوده قام بنشر يناير 7, 2013 مشاركة قام بنشر يناير 7, 2013 اسمحوا لى بالاشتراك واضافه حل متواضع ولكنى محتاج الى تقويم وتقييم من الساده الافاضل وشكرا وتحياتى للسيد صاحب المشروع جوده جوده.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر يناير 7, 2013 مشاركة قام بنشر يناير 7, 2013 بعد إذن إخوتى وأساتذتي إنظر أخى هذا الرابط أعتقد ممكن يكون مفيد ليك ويكون به المطلوب http://www.officena.net/ib/index.php?showtopic=44728 رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر يناير 11, 2013 مشاركة قام بنشر يناير 11, 2013 اخى الحبيب السلام عليكم اسف على تأخرى فى الرد لظروف خاصة ان لم تكن توصلت للحل الرجاء اخبارى رابط هذا التعليق شارك 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.