عن طريق الكود اذا كانت الخليه 3=B1 فأن الخليه 1= A1

[خالد_محمد]

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

مطلوب ياشباب عن طريق الكود

اذا كانت الخليه 3=B1 فأن الخليه 1= A1 أماء اذا كانت الخليه 5= B1 فأن الخليه 1= A2

حاول حلها ولم استطيع اذا ممن المساعده في الحل ياشباب

[علي السحيب]

يكون الكود كالتالي:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
[A1:A2].ClearContents
If [B1] = 3 Then [A1] = 1
If [B1] = 5 Then [A2] = 1
End If
End Sub

If_In_VBA.rar

[خالد_محمد]

الله يعطيك الف عافيه يا استاذي علي

بس المطلوب ناقص حبه . اذا كانت الخليه 1=A2 مع ثبات الرقم 1=A1

[خالد_محمد]

مشكور يااستاذ علي وجت الحل

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$1" Then

[A1:A2].ClearContents

If [b1] >= 3 Then [A1] = 1

If [b1] >= 5 Then [A2] = 1

End If

End Sub

مشكور مره ثانيه الف الف شكر

[خالد_محمد]

السلام عليكم

الاتاذ علي لم انجح بأضافة الكود الذي وضعته انت على الكود الموجود بالمرفق كذالك يوجد ايضاح اكثر بالمرفق

______________.rar

[علي السحيب]

الكود الذي طرحته في مشاركتي السابقة يعمل على خلية واحدة فقط .. أما إذا أردناه أن يعمل على مجموعة من الخلايا .. يتم التعديل عليه ليصبح كالتالي:

وهو يعمل عند تحرير أي من الخلايا الواقعة في النطاق (BV60:BV119)

Private Sub Worksheet_Change(ByVal Target As Range)

R = Target.Row
C = Target.Column

If C = 74 And R >= 60 And R <= 119 Then
If Range("BV" & R) = 3 Then Range("BT" & R) = 1
If Range("BV" & R) = 5 Then Range("BU" & R) = 1
End If

End Sub

أما إذا أردناه أن يعمل من خلال زر ماكرو فيكون الكود بهذه الصورة:

Sub ForAll()

Application.ScreenUpdating = False
[BT60:BU119].ClearContents
For A = 60 To 199
If Range("BV" & A) = 3 Then Range("BT" & A) = 1
If Range("BV" & A) = 5 Then Range("BU" & A) = 1
Next
Application.ScreenUpdating = True

End Sub

______________.rar

تم تعديل أكتوبر 3, 2006 بواسطه علي السحيب

[خالد_محمد]

السلام عليكم

شكراً على المساعدة والمتابعة يا أستاذ علي السحيب والكود الثاني هو المطلوب

بس عندي سؤال بنفس البرنامج هل ممكن ترحيل أونسخ رقم الطالب ( الرقم التسلسلي لاسماء الطلاب) اذا انطبق عليه سؤال

السابق او الشرط السابق يرحل من صفحة غياب المهني الى صفحة أسماء الطلاب المتغيبين في العامود V بشرط ترتيبهم في

الورقه بدلاً من القوائم المنسدله العشرين الموجوده في صفحة أسماء الطلاب المتغيبين .

[علي السحيب]

شاهد المرفق،

IF_Conditon_In_VBA.rar

[خالد_محمد]

السلام عليكم

الكود الاخير يعطي خطأ احياناً في ورقة اسماء الطلا المتغيبين . ولا يرحل جميل الطلاب الذين انطبق عليهم شرط الغياب وعلى ما اعتقد لابد من اضافة علامة اكبر مع علامة يساوي .

لدي مشكله اخرى ورايح اضيف نفس المرفق مع اضافة الاكواد الاخير ه التي وضعتها أنت في المشاركه هذه ومشاركات آخرى

السؤال الاول عند طباعة الطلاب المتغيبين من صفحة( غياب المهني ) اضغط على زر طباعة الطلاب المتغيبين بعد الطباعه

يعطي رساله خطأ لم افهم ما مشكلة الخطأ

السؤال الثاني عند ترحيل من صفحة ( بيانات الطلاب كل نهاية فتره) الى صفحة (ارشيف جميع فترات البرنامج ) يرحل جميع

الصفوف من 1 الى 60 ولاكن عدد الطلاب احياناً يكون 30 40 50 هل بلامكان ترحيل الطلابه اذا كان عددهم اقل من 60

طالب وتجاهل الصفوف الفارغه مع العلم ان الصفحه المرحل منها مربوطه بصفحه اخرى .

راح اتعبك معاي ياأستاذ علي بس انا طامع بكرمك وحبك الخير لناس .والله يجزاك عنا كل خير

_____________11.rar

[خالد_محمد]

السلام عليكم

أخي وأستاذي علي السحيب أنا في أنتظار ردك على السؤال الثاني فقط (الترحيل من ورقة الى ورقه)