استبدال محتوى خلايا بمحتوى أخر

[اشرف النعاس]

عند ضغط Button 1 تظهر يوزرفورم التي في الاسفل من تم يتم اختيار المقرر المراد استبدالة من تم اختيار المقرر المراد ان يستبدل بيه و كتابة عدد وحدات و رمز هذا المقرر .... من تم عند الضغط على زر استبدال فيتم تغيير كل المقرر التى تحمل اسم "المقرر الدراسي المراد استبداله" ب المقرر الدراسي الجديد الذي تم اختيار و بجوارها عدد الوحدات و الرمز لها

على سبيل المتال اذا تم اختيار المقرر الدراسي "انشاء 1" في المقرر المراد استبداله

و اختيار المقرر "انشاء مباني" في المقرر الدراسي الجديد و تم كتابة عدد الوحدات 2 "و رمز المقرر "ا ع 120" فان النتائج تكون

تعبئة "انشاء مباني" في خلية من C4  الى C14  

تعبئة "2" في خلية من D4  الى D14  

تعبئة "ا ع 120" في خلية من B4  الى B14  

 

للمزيد من توضيح في الملف اسفل .......... شكراا 

repace course.rar

[عبدالسلام ابوالعوافي]

جرب

Private Sub CommandButton1_Click()
Dim lr As Integer
Dim i As Integer
    lr = Cells(Rows.Count, "C").End(xlUp).Row
    For i = 4 To lr
        If Cells(i, 3) = Me.ComboBox2 Then
            Cells(i, 2) = Me.TextBox2
            Cells(i, 3) = Me.ComboBox1
            Cells(i, 4) = Me.TextBox1
        End If
    Next
End Sub

 

[اشرف النعاس]

بارك الله فيك الكود اشتغل ... بس اريد طلب فقط هو عند استكمال مقرر مثلا انشاء 1 يتم تعبئة تلقائيا بأول مقرر دراسي يختلف عن انشاء 1 و ذلك لتسهيل العملية 
فمتلا من من المفترض بعد الانتهاء من استبدال المقرر انشاء 1 تظهر تلقائيا اول مقرر يختلف عليه و هو مباني 1