ترحيل مواد حسل الفصل

[خالد الشاعر]

السادة الخبراء

 

مرفق ملف به كود للاستاذ ياسر خليل

 

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

 

برجاء المساعدة

 

جزاكم الله كل خيراً

ترحيل22.rar

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

أخي الكريم خالد

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

عموماً جرب الكود بهذا الشكل عله يكون المطلوب

Sub TarhilRaseb2()
    Dim I As Long, X As Long
    Dim WS As Worksheet, SH As Worksheet
    Dim RngA
    Dim RngColA As Long, RngColB As Long, RngColC As Long, RngColD As Long
    Dim LR As Long
    
    Application.ScreenUpdating = False
    Rows("13:112").EntireRow.Hidden = False
    
    Set WS = Sheets("Main"): Set SH = Sheets("مواد")
    RngA = SH.Range("C10").Value
    RngColA = SH.Range("O3").Value: RngColB = SH.Range("P3").Value: RngColC = SH.Range("Q3").Value: RngColD = SH.Range("R3").Value
    X = 13
    
        SH.Range("A13:D112").ClearContents
        With WS
            For I = 14 To Worksheets("مواد").Range("P6").Value
                If WS.Cells(I, 3).Value = RngA Then
        '.Cells(I, RngColA) = RngA Then
                    SH.Cells(X, 8).Value = SH.Cells(X, 1).Row - 12
                    SH.Cells(X, 6).Value = WS.Cells(I, 2).Value
                    SH.Cells(X, 7).Value = WS.Cells(I, 3).Value
                    'SH.Cells(X, 4).Value = WS.Cells(I, 12).Value
                    SH.Cells(X, 2).Value = WS.Cells(I, RngColA).Value
                    SH.Cells(X, 3).Value = WS.Cells(I, RngColB).Value
                    SH.Cells(X, 4).Value = WS.Cells(I, RngColC).Value
                    SH.Cells(X, 1).Value = WS.Cells(I, RngColD).Value
                    X = X + 1
                End If
            Next I
        End With
   
    LR = Range("A13:A112").End(xlUp).Row
    Range("A13:A112").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

End Sub

[خالد الشاعر]

استاذ ياسر

 

يعجز الكلام عن شكرك 

 

هل اطمع فى شرح هذا الجزء Dim RngA As Long

 

جزاك الله كل خير

 

و جعله فى ميزان حسناتك

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

أخي الكريم خالد الشاعر

لقد قمت بالإعلان عن المتغير من النوع Long وهو للأرقام الصحيحة الطويلة وهذا خطأ

لأنك في سطر ما أعلنت عن أن المتغير يساوي قيمة الخلية C10 والتي تحمل القيمة A فيجب إما الإعلان عنها كـ String أي سلسلة نصية أو تتركها بدون تحديد نوعها ليتم معاملتها كـ Variant

[خالد الشاعر]

اشكرك استاذ ياسر

 

جزاك الله كل خير