برجاء المساعدة فى توضيح هذا الكود .. هو كود خاص باستدعاء بيانات

[Mohammad Shawkey]

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

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

المقصود من هذا الكود انى اريد البيانات الموجودة فى العمود الاول من الصف الثانى الى الصف العشرين داخل الكومبو بوكس من الورقة رقم 4

هل هذا صحيح ؟؟

Private Sub ComboBox1_Change()

Dim i As Integer

For i = 2 To 20

Me.ComboBox1.Value = Sheet4.Cells(i, 1)

Next

End Sub

[رجب جاويش]

أخى الفاضل

هذا هو التعديل المطلوب

Private Sub UserForm_Initialize()

ComboBox1.RowSource = "A2:A20"

End Sub

comboBox.rar

[Mohammad Shawkey]

أخى الفاضل

هذا هو التعديل المطلوب

Private Sub UserForm_Initialize()

ComboBox1.RowSource = "A2:A20"

End Sub

استاذ رجب .. جزاك الله كل خير .. ومتشكر جدا على مساعدة حضرتك .. هذا هو المطلوب

[أبو حنــــين]

او يمكن وضع الكود التالي بعد تصحيح الكود السابق

Private Sub UserForm_Activate()

Dim i As Integer

For i = 1 To 20

ComboBox1.AddItem ورقة1.Cells(i + 1, 1)

Next

End Sub

[Mohammad Shawkey]

او يمكن وضع الكود التالي بعد تصحيح الكود السابق

Private Sub UserForm_Activate()

Dim i As Integer

For i = 1 To 20

ComboBox1.AddItem ورقة1.Cells(i + 1, 1)

Next

End Sub

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