Private Sub ComboBox5_Change()
Dim C As Range
For Each C In Range("h2:h37")
If Me.ComboBox5.Value = C.Value Then
Range("k1").Value = C.Offset(0, -1)
End If
Next
End Sub
اخواني السلام عليكم
اخواني هذا الكود من الاستاذ الكريم ابراهيم الحداد ولكن اريد كود اخر يعطي نفس النتيجة لان هذا الكود لا يعمل الا اذا كان الفيجول بيسك شغال في الخلفية اريد كود يعطي نفس النتيجة ولكن باسلوب اخر لعله يعمل بشكل افضل
الرقم السري tareq972708
اختر ملف... اضغط لاختيار ملف
رصد العقوبات طلاب الثانوية العامة.rar