شيت ناجحين وراسبين

[kinggraphic]

لو سمحتم عاوز
اكون كاتب بيانات فى شيت1 ويكون فيه الرصد درجات للطلبة مثلا وعلى اساس انها ناجحه
يتم نقل الطالبة الى شيت 2 للناجحين

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

Sub sc()
Dim koko As Integer

'
' sc Macro
'

'

If Sheets("Sheet1").Range("H2") = "pass" Then
    Sheets("Sheet1").Select
    Rows("2:2").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Rows("2:2").Select
    ActiveSheet.Paste
    End If

[أحمد يوسف]

اين ملف العمل ؟

لكى تكتمل المساعدة