textBoxta arama

[sahika51]

İyi günler değerli arkadaşlar ben burdaki kodu başka bir çalışmada kullandım çalışırken burda çalışmadı problemi bir türlü bulamadım yardımcı olursanız sevinirim.
Private Sub txtAranan_Change()

On Error Resume Next
ListBox1.Clear
Aranan = txtAranan.Text
sonsatir = Worksheets("Veri").Cells(Rows.Count, "A").End(xlUp).Row
ReDim dizi(sonsatir) As Variant
X = 0
For i = 1 To sonsatir - 1
If Worksheets("Veri").Cells(i, 1) Like "A*" Then
dizi(X) = Worksheets("Veri").Cells(i, 1)
X = X + 1
End If
Next i

ReDim Preserve dizi(X - 1)
ListBox1.List = dizi

Else
End Sub

 

[muysun35]

Private Sub txtAranan_Change()
Dim aranan as String, sonsatir as Integer
ListBox1.Clear
Aranan = txtAranan.Text
sonsatir = Worksheets("Veri").Cells(Rows.Count, "A").End(xlUp).Row
ReDim dizi(sonsatir) As Variant
X = 0
For i = 1 To sonsatir - 1
If Worksheets("Veri").Cells(i, 1) Like "A*" Then
dizi(X) = Worksheets("Veri").Cells(i, 1)
X = X + 1
End If
Next i
ReDim Preserve dizi(X - 1)
ListBox1.List = dizi
End Sub
dener misiniz?

 

[sahika51]

Private Sub txtAranan_Change()
Dim aranan as String, sonsatir as Integer
ListBox1.Clear
Aranan = txtAranan.Text
sonsatir = Worksheets("Veri").Cells(Rows.Count, "A").End(xlUp).Row
ReDim dizi(sonsatir) As Variant
X = 0
For i = 1 To sonsatir - 1
If Worksheets("Veri").Cells(i, 1) Like "A*" Then
dizi(X) = Worksheets("Veri").Cells(i, 1)
X = X + 1
End If
Next i
ReDim Preserve dizi(X - 1)
ListBox1.List = dizi
End Sub
dener misiniz?

x=0
satırında
veriable not defined
hatası alıyorum sürekli ar
araştırıyorum ama hala çözemedim

 

[PLİNT]

Merhaba
kod penceresinde "Option Explicit " prosedürü varsa kodların içindeki tüm değişkenleri tanımlamalısınız

Private Sub txtAranan_Change()
Dim aranan as String, sonsatir as Integer, x as long, i as long
'...
'.......

 

[muysun35]

Private Sub txtAranan_Change()
Dim Aranan as String, sonsatir as Integer, i as Integer, X As Variant, dizi As Variant
ListBox1.Clear
Aranan = txtAranan.Text
sonsatir = Worksheets("Veri").Cells(Rows.Count, "A").End(xlUp).Row
ReDim dizi(sonsatir) As Variant
X = 0
For i = 1 To sonsatir - 1
If Worksheets("Veri").Cells(i, 1) Like "A*" Then
dizi(X) = Worksheets("Veri").Cells(i, 1)
X = X + 1
End If
Next i
ReDim Preserve dizi(X - 1)
ListBox1.List = dizi
End Sub