المساعدة فى كود بحث

[ابو علي و سدرة]

ارجو المساعدة فى معرفة الخطأ البرمجى فى الكود التالى

 

Private Sub TextBox2_Change()
Dim ws As Worksheet
Dim x As Long
Set ws = Worksheets("Sheet7")
x = TextBox2

TextBox3 = Application.WorksheetFunction.VLookup(x, ws.Range("a2:g551"), 2, 0)
End Sub

 

 

pro.rar

[عبد الله بولنوار]

جرب هذا

تم تعديل يناير 7, 2015 بواسطه عبد الله بولنوار

[عبد الله بولنوار]

المرفق

pro.rar

[ibn_egypt]

اخى الفاضل

 

وبعد إذن أخى الفاضل عبدالله .. جرب الملف المرفق لربما به طلبك

 

تحياتي  

pro.rar

[عبد الله بولنوار]

عندك خطا في كود الترحيل الى خيار "هالك" قم بتغيير 2 الى 3 في

 

If OptionButton3.Value = True Then

Set ws = Worksheets("whs")
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
If OptionButton1.Value = True Then
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.ComboBox1.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
Else
If OptionButton2.Value = True Then
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.ComboBox1.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 5).Value = Me.TextBox4.Value
Else
If OptionButton3.Value = True Then
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.ComboBox1.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 6).Value = Me.TextBox4.Value

تم تعديل يناير 7, 2015 بواسطه عبد الله بولنوار