كود

[طارق نادر]

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

تم تعديل يناير 10, 2019 بواسطه n_tareq

[طارق نادر]

للرفع

[طارق نادر]

للرفع

[طارق نادر]

للرفع