الانتقال التلقائي عند توفر شرط معين

[حمدي]

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

اريد من الاخوة الافاضل ما هو مبين بالملف

عند وصول قيمة الخلية بقيمة معينة يتم الانتقال التلقائي لصفحة معينة

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

الانتقال التلقائي.rar

[رجب جاويش]

تفضل أخى

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F1").Address Then
    If Target.Value < 50 Then
        Sheets("راسب").Select
    Else
        Sheets("ناجح").Select
    End If
End If
End Sub

الانتقال التلقائي.rar

[رجب جاويش]

وهذا كود آخر

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F1").Address Then
        Sheets(Range("A1").Text).Select
End If
End Sub

الانتقال التلقائي1.rar

[حمدي]

الاستاذ : رجب جاويش

 

بسم الله ما شاء الله

ابداع و الله

زادك الله من علمه

الف شكر وبارك الله فيك

[حمدي]

ربنا يبارك فيك استاذ رجب لي طلب آخر مبين في الملف المرفق

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

الانتقال التلقائي1.rar

[رجب جاويش]

تفضل أخى

 

الانتقال التلقائي2.rar

[حمدي]

بارك الله فيك استاذ رجب و زادك الله من علمه

و ألف شكر على التجاوب السريع و على الاكواد الرائعة و دائما مبدع و متميز و سربع التجاوب

[حمدي]

اخي الفاضل رجب

عندما قمت بتطبيق الكود في البرنامج لاحظت انه لايعمل الا اذا قمت بكتابة راسب او ناجح و لكن لو قمت بالاختيار من القائمة لا يعمل

لا ادري ما السبب

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

[رجب جاويش]

أخى الفاضل / حمدى

أنا جربت الملف عندى وهو يعمل بشكل سليم لو قمت بالاختيار من القائمة

[حمدي]

اخي الفاضل الاستاذ رجب

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