فصل التلاميذ

[thegenius33]

أرجو من أهل الخبرة شرح طريقة فصل تلاميذ الفصل الي 2/1 ، 2/2 وهكذا بيحيث يتم ادخال البيانات في الورقة الأولي ويتم الفصل تلقائي في الورقة الثاني والثالثة وهكذا

نرجو الرد وبالشرح المبسط لأننا مبتدئين وكثير من الكواد والمعادلات لا نغهمها

ولكم جزيل الشكر الصف الثاني.rar

[الـعيدروس]

السلام عليكم

حط هذا الكود في حدث ورقة " الصف الثاني "

مجرد الكتابه في عمود اللجنه يرحل الصف الى الورقة المماثله لرقم الفصل

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

[thegenius33]

أخي الفاضل انا اريد ان يكون الفصل بناءآ علي ادخال الصف 2-1 أو 2-2 وهكذا فعمود اللجنه هذا تم اضافته بالخطأ

نرجو الرد ولكم جزيل الشكر

[الـعيدروس]

بيكون هكذا

مجرد الادخال في عمود النوع

اذا حطينا الادخال في عمود الفصل كيف سيرحل مابعده وهو النوع ؟

اذا الترحيل سيتم بعد الانتهاء من ادخال بيانات الاعمده " اخر عمود هو النوع "

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

[ابو الآء]

اخى الحبيب يمكن عمل ذلك عن طريق التصفية المتقدمة وتسجيلها بالميكرو

ان ارت تنفيذه بهذه الطريقه الرجاء اخبارى

[thegenius33]

اخى الحبيب يمكن عمل ذلك عن طريق التصفية المتقدمة وتسجيلها بالميكرو

ان ارت تنفيذه بهذه الطريقه الرجاء اخبارى

نرجو شرح هذه الطريقة يا اخي ولك جزيل الشكر

[thegenius33]

أين الرد abo_alaa

[جوده]

اسمحوا لى بالاشتراك واضافه حل متواضع ولكنى محتاج الى تقويم وتقييم من الساده الافاضل وشكرا وتحياتى للسيد صاحب المشروع

جوده

جوده.rar

[جمال عبد السميع]

بعد إذن إخوتى وأساتذتي إنظر أخى هذا الرابط أعتقد ممكن يكون مفيد ليك ويكون به المطلوب

http://www.officena.net/ib/index.php?showtopic=44728

[ابو الآء]

اخى الحبيب

السلام عليكم

اسف على تأخرى فى الرد

لظروف خاصة

ان لم تكن توصلت للحل الرجاء اخبارى