problem search in sheet and show result in listbox

[alhagag]

actaully i have problem in this code he ask me define a variable but i copy this the same code from websites and it doesn't define avariable and works but me it doesn't
any body can help me, please
Private Sub CommandButton1_Click()
Dim i, a, j, x, h As Long
Me.ListBox1.Clear
'for column header
Me.ListBox1.AddItem
For a = 1 To 5
Me.ListBox1.List(0, a - 1) = ورقة1.Cells(1, a)
Next a
Me.ListBox1.Selected(0) = True
'for listbox fill
For i = 2 To ورقة1.Range("a100000").End(xlUp).Offset(1, 0).Row
For j = 1 To 5
h = Application.WorksheetFunction.CountIf(ورقة1.Range("a" & 2, "e" & i), -ورقة1.Cells(i, j))
If h = 1 And LCase(ورقة1.Cells(i, j)) = LCase(Me.TextBox1) Or h = 1 And -ورقة1.Cells(i, j) = Val(Me.TextBox1) Then
Me.ListBox1.AddItem
For x = 1 To 5

Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = ورقة1.Cells(i, x)
Next x
End If
Next j
Next i
End Sub

 

[AlanSidman]

In your code you have declared Option Explicit which require you declare all variables. In your code, when I click on Debug -->Compile, the following is listed as needing to be declared æÑÞÉ1 which I assume Excel has converted from Arabic. I am guessing that the code you copied did not declare any Options.

Here is a fuller explanation of Option Explicit https://docs.microsoft.com/en-us/of...user-interface-help/option-explicit-statement

 

[alhagag]

i delete Option Explicit
but the problem is

 

[AlanSidman]

The syntax for countif is
COUNTIF( range, criteria )


I am not sure what the "-" in front of your sheet name does for you.

 

[Fluff13]

Cross posted https://www.mrexcel.com/forum/excel...ch-sheet-show-result-listbox.html#post5284936

 

[alhagag]

The syntax for countif is
COUNTIF( range, criteria )


I am not sure what the "-" in front of your sheet name does for you.

but when i pass the curse of mouse over code show me what i search in textbox1 also i ever told you just copy this code from websites but seems something in my file needs adjusting so far i no know it