ما هو الخطا فى هذا الكود يعطى رساله خطا فى السطر المظلل باللون الاخضر
عنوان مخالف .... تم تعديل عنوان المشاركة ليعبر أكثر عن طلبك
Private Sub TextBox20_AfterUpdate()
Dim ifound As VbMsgBoxResult
Sheet2.Activate
If WorksheetFunction.CountIf(Sheet2.Range("a:a"), Me.TextBox20.Value) = 0 Then
ifound = MsgBox("item not found!confirm if you want to add itme?", vbQuestion + vbYesNo, "vlookup system")
If ifound = vbYes Then
cmdAddNew.Enabled = True
Me.TextBox20.SetFocus
ElseIf vbNo Then
cmdAddNew.Enabled = False
Me.TextBox20.Text = ""
End If
Exit Sub
End If
Dim q, i As Long
q = Application.WorksheetFunction.CountA(Sheet2.Range("A:A"))
For i = 1 To 24
(Me("TextBox" & i).Value = Application.WorksheetFunction.VLookup(CLng(Me.TextBox20), Sheet2.Range("lookings"), i)
Next i
End Sub
New Microsoft Excel Worksheet.xlsx