ترحيل بيانات لعدة صفحات بشرط عمود

[أبو يوسف النجار]

كل عام وأنتم بخير

والسلام عليكم ورحمة الله

أريد بفضل الله ترحيل البيانات من شيت ......

( قيد التلاميذ) إلى الصفحات الأخرى حسب

الفصل بالعمود H   فصل1/2 لشيت ( ثانية 1 )

وفصل 2/2 لشيت ( ثانية 2 ) وهكذا

ترحيل.rar

[أبو يوسف النجار]

هو سؤالى صعب أم مكرر

لو كان مكرر أرشدوني

عن رابط الموضوع المشابه

لأبحث عن الحل - الله المستعان

[ياسر خليل أبو البراء]

أخي الكريم أبو يوسف النجار

إليك الكود التالي عله يفي بالغرض إن شاء الله

Sub Tarhil()
    Dim WS As Worksheet, SH As Worksheet
    Dim Cell As Range
    Dim LR As Long, I As Integer
    
    Set WS = Sheets("قيد التلاميذ")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        For I = 2 To 4
            Sheets(I).Range("D10:AU1000").ClearContents
        Next I
        
        For Each Cell In WS.Range("G10:G" & WS.Cells(Rows.Count, "G").End(xlUp).Row)
            If Cell.Value = "1/2" Then
                Set SH = Sheets("ثانية 1")
            ElseIf Cell.Value = "2/2" Then
                Set SH = Sheets("ثانية 2")
            ElseIf Cell.Value = "1/3" Then
                Set SH = Sheets("ثالثة 1")
            ElseIf Cell.Value = "2/3" Then
                Set SH = Sheets("ثالثة 2")
            Else
                GoTo 1
            End If
            
            LR = IIf(SH.Cells(Rows.Count, "D").End(xlUp).Row < 10, 10, SH.Cells(Rows.Count, "D").End(xlUp).Row + 1)
            Cell.Offset(, -3).Resize(, 44).Copy
            SH.Range("D" & LR).PasteSpecial xlPasteValues
1        Next Cell
    MsgBox "تم بحمد الله", vbInformation
    Application.CutCopyMode = False
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

كل عام وأنت بخير

 

Tarhil Naggar.rar

[أبو يوسف النجار]

المايسترو رئة ذلك المنتدى ياسر خليل أبو البراء

أراح الله بالك ونفعك بعلمك في الدنيا والآخرة 

كل عام وأنت بخير

الملف شغال تمام - لي طلب لو أمكن شرح الكود كما عودتنا

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

أخوك / أبو يوسف

[ياسر خليل أبو البراء]

أخي الكريم أبو يوسف

حاول تقرأ أسطر الكود سطر سطر بعناية وشوف الغرض من كل سطر ستجد الموضوع بسيط

وإذا لم تفهم جزئية محددة يمكنك السؤال عنها .. هكذا يكون التعلم (التعلم الذاتي .. علم نفسك بنفسك لتصل إلى ما تريد)

ولا تعتمد دائماً على الحلول الجاهزة Come Easy Go Easy (يعني اللي ييجي بالسهل يروح بالسهل) .. أما المعلومة اللي تتعب فيها بتثبت في الناااااااافوخ