محاولة ترحيل ناجح ودور ثان

[محمد يوسف محمد1]

تحية عطرة لكل عائلة اوفسينا

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

وللعلم ده على شيت الاخ الفاضل رجب جاويش فى محاولة منى لفهم ماكرو الترحيل 

ارجو الافادة

ولكم منى كل تحية وتقدير

محاولة ترحيل.rar

[رجب جاويش]

أخى الفاضل

لاحظ بعض التعديلات فى الكود

Sub Tarheel()
Dim i As Integer, x As Integer
Dim lr As Integer, y As Integer
lr = [b10000].End(xlUp).Row
Sheets("ناجح").Range("a14:ce1000").ClearContents
Sheets("دور ثان").Range("a14:ce1000").ClearContents
Application.ScreenUpdating = False
x = 14: y = 14
For i = 14 To lr
    If Cells(i, 83).Value = "ناجح" And Cells(i, 3) <> " " Then
        Range("a" & i).Resize(1, 83).Copy
        Sheets("ناجح").Range("a" & x).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        x = x + 1
    ElseIf Cells(i, 83).Value = "له دور ثانى فى" And Cells(i, 3) <> " " Then
        Range("a" & i).Resize(1, 83).Copy
        Sheets("دور ثان").Range("a" & y).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        y = y + 2
    End If
Next i
MsgBox "تم بحمد الله فصل ناجح وله دور ثان", vbOKOnly, "ترحيل الناجحين والراسبين"
Application.ScreenUpdating = True
End Sub

[محمد يوسف محمد1]

كدة تمام

اول خطأ كان فى هذا السطر

  If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then

 

 

والثانى فى هذا السطر

    ElseIf Cells(i, 3).Value = "له دور ثان" And Cells(i, 4) <> " " Then

 

 

 والتصحيح   الاولى من الشمال 83 ودة رقم خلية الناجح او دور ثان والرقم الثانى 3 ومش عارف يشير لايه

الرجا التوضيح 

واخر خطأ 

MsgBox "تم بحمد الله فصل ناجح وله دور ثان", vbOKOnly, "ترحيل الناجحون والراسبون"

                               

والتصحيح "ترحيل الناجحين والراسبين" وهل ناجحون وراسبون تعطل الماكرو

 

وفى النهاية انا عاجز عن شكرك والله من قلبى ربنا يكرمك بس ياربت توضح لى اخطائى

لانى باحاول اتعلم وافهم

تم تعديل يونيو 9, 2013 بواسطه محمد يوسف محمد1