رجب جاويش

أخى أحمد جزاك الله كل خير اللون يحدد داخل الكود وبامكانك تغيرة كما تشاء من داخل الكود

أخى الفاضل هذا اختصار للكود السابق Sub SEPARATION() Application.ScreenUpdating = False Sheets("äÇÌÍ").Range("B4:Y1000").ClearContents Sheets("ÑÇÓÈ").Range("B4:Y1000").ClearContents Dim ResSh As String For y = 4 To Cells(1000, 23).End(xlUp).Row ResSh = Cells(y, 23).Value AA = Sheets(ResSh).Cells(1000, 23).End(xlUp).Row + 1 On Error Resume Next Range(Cells(y, "B"), Cells(y, "y")).Copy Sheets(ResSh).Range("b" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Next y Application.ScreenUpdating = True MsgBox "Êã ÝÕá ÇáäÇÌÍíä æÇáÑÇÓÈíä ÈßÔÝíä ãäÝÕáíä ÈäÌÇÍ" End Sub ناجح وراسب تعديل 1.rar

أخى الفاضل هذا هو الكود المستخدم فى المشاركة الثانية وهو من اعداد الأخ /leprince2007 Private Sub CommandButton1_Click() For j = 5 To 100 sp = Split(Cells(j, "b")) For i = LBound(sp) To UBound(sp) Cells(j, i + 4) = sp(i) Next Next End Sub أما بقية المشاركات فهى عن طريق المعادلات للأخ الفاضل / سعيد بيرم

بعد اذن أخى الفاضل / أبو حنين تفضل أخى التلوين 1.rar

أخى الفاضل اليك تفاصل كاملة ووافية عن هذا الموضوع فى الرابط التالى http://www.officena....85&fromsearch=1

أخى الفاضل هذا هو الكود المستخدم فى الترحيل وهو يعتمد على قيمة الخلايا الموجودة فى العمود db فاذا كانت القيمة صفر ( عدد الدوائر الحمراء للدور الثانى ) يكون الطالب ناجح وترحل بياناته الى شيت الناجحين واذا كانت قيمة الخلية اكبر من الصفر يكون راسب وترحل بياناته الى شيت الراسبين Sub ragab() Dim i As Integer, x As Integer Dim lr As Integer, y As Integer lr = [b10000].End(xlUp).Row Sheets("äÇÌÍíä").Range("a11:cz1000").ClearContents Sheets("ÑÇÓÈíä").Range("a11:cz1000").ClearContents Application.ScreenUpdating = False x = 11: y = 11 For i = 11 To lr If Cells(i, 106).Value = 0 And Cells(i, 3) <> "" Then Range("a" & i).Resize(1, 104).Copy Sheets("äÇÌÍíä").Range("a" & x).PasteSpecial xlPasteValues Application.CutCopyMode = False x = x + 1 ElseIf Cells(i, 106).Value > 0 And Cells(i, 3) <> "" Then Range("a" & i).Resize(1, 104).Copy Sheets("ÑÇÓÈíä").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 1 End If Next i Application.ScreenUpdating = True End Sub

تفضل أخى ناجح وراسب.rar

أخى الفاضل / عباس السماوى هذا الخطأ ناتج عن وجود تشابة فى أسماء الحقول فى كل من الدولار والدينار وعند عمل تغير بسيط فى الاسماء يعمل الملف تمام تقبل افضل تحياتى استدعاء بيانات زبون بين تاريخين المعدل1.rar

هذه الحالة عندما تريد تحديد الصف كله تحديد الصف +قائمة منسدلة تحديد الصف كله.rar

الأخ العزيز فضل السلام عليكم ورحمة الله وبركاته تفضل أخى تحديد الصف +قائمة منسدلة.rar

أخى الفاضل الملف يعمل عندى تمام أرجو التوضيح أكثر

الأخ الفاضل / عباس السماوى جزاك الله كل خير أخى الحبيب حفظك الله من كل سوء ورزقك الجنة الأخ الفاضل والأستاذ الكبير / أحمد فضيله بارك الله فيك وأثابك الجنة على هذا الجهد المتميز والله إنى أحبك فى الله

السلام عليكم أخى الفاضل / عباس السماوى تفضل الحل وأرجو أن يكون كما تريد استدعاء بيانات زبون بين تاريخين لللتصفية.rar

أخى الحبيب / الخالدى بسم الله ما شاء الله ربنا يبارك فيك مبدع كبير ولمساتك سحرية فى الأكواد جزاك الله كل خير

بسم الله ما شاء الله الأخ الفاضل / بن علية أستاذ كبير بارك الله فيك

السلام عليكم تفضل أخى سنه اولى.rar

السلام عليكم هذا كود آخر مختصر عن الكود الأول لكنه أبط منه قليلا تصفية تلقائية1.rar

السلام عليكم تفضل أخى تصفية تلقائية.rar

الأخ الفاضل / alaa attia جزاك الله كل خير

الاستاذ الكبير والأخ الفاضل / الخالدى خالص الود والتقدير والاحترام من أخوك / رجب جاويش

تفضل أخى Book2.rar

اخى الفاضل / الشهابى جزاك الله كل خير على هذا الكلام الجميل وشكرا جزيلا على مرورك العطر تقبل أرق تحياتى

الأخ الحبيب / العيدروس ( أبو نصار ) جزاك الله كل خير على هذا المرور العطر تقبل أرق وأجمل تحياتى

أخى الملف تمت طباعتة ولم تظهر أى مشكلة عند الطباعة غير علامة #### فى عمود الاجمالى وذلك أمر بسيط يحدث لأن عرض العمود لا يكفى لعرض كامل البيانات وعند زيادة عرض العمود تزول هذه المشكلة البسيطة ما عدا ذلك لا يوجد أى مشكلة فى الملف

أخى الفاضل / عبد الله المجرب شرفنى جدا هذا المرور العطر من أستاذ كبير أتطلع دائما الى أى مشاركة منه لأتعلم منها جزاك الله كل خير