أين الخطأ في هذا الكود فهو لا يعمل

[توكل]

الإخوة الأعزاء قمت بعمل فورم ووضعت لها كود أظن أنه صحيح لكنه لم يعمل يرجى الإطلاع وتوجيهي للخطأ تكرماً

Book4 ().rar

[عبدالله باقشير]

السلام عليكم

استبدل اكواد الفورم بهذه

Private Sub ComboBox1_Click()

Dim i As Long

i = Me.ComboBox1.ListIndex + 16

With Sheets("1")

    TextBox1 = .Cells(i, 2)

    TextBox2 = .Cells(i, 5)

    TextBox3 = .Cells(i, 6)

    TextBox4 = .Cells(i, 7)

    TextBox5 = .Cells(i, 8)

    TextBox6 = .Cells(i, 9)

End With

End Sub


Private Sub UserForm_Activate()

Dim Last As Long

Last = Sheets("1").Range("B10000").End(xlUp).Row

Me.ComboBox1.List = Sheets("1").Range("B16:B" & Last).Value

End Sub

[توكل]

أحسن الله إليك أخي عبد الله وجعله في ميزان حسناتك