الأخ الكريم/ حمادة عمر
بجد الف الف شكر اخي الغالي
بارك الله فيك وجزاك الله قدر سعادتي بمساعدتك كل خير
الحمد لله قدرت اطبق الكود في الملف بنجاح بس عدلت حاجات بسيطه زي تحديد الصفحه واضافه "مي" قبل "الكمبو" و"الاوبشن بوتون" وضيفت في الاخر "فاليو" علشان البينات ماكنتش بتظهر، كدا:
If OptionButton3.Value = True Then
OptionButton4.Value = False
With Me.ComboBox4
.Clear
For I = 3 To 10000
If Not IsEmpty(Sheet3.Cells(I, 3)) Then Me.ComboBox4.AddItem Cells(I, 3).Value
Next
End With
End If
الف شكر