object variable or with block variable not set

[KAPLAN381]

Private Sub TextBoxBUL_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 2, 1 To 1)
If TextBoxBUL.Text = "" Then
ListBox1.RowSource = "GENEL BİLGİLER!C2" & Sheets("GENEL BİLGİLER").[A65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("GENEL BİLGİLER")
ListBox1.RowSource = ""
If .FilterMode Then .ShowAllData
Set k = .Range("C2:C65536").Find(TextBoxBUL.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 2, 1 To a)
For j = 1 To 2
myarr(j, a) = .Cells(k.Row, j + 2).Value
Next j
Set k = Range("C2:C65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With

BU HATAYI ALIYORUM NERDE HATA YAPMIŞ OLABİLİRİM
End Sub

 

[Orion1]

Burada gözüken şey nokta koymamışsınız.
Set k = .Range("C2:C65536").FindNext(k)

 

[KAPLAN381]

Burada gözüken şey nokta koymamışsınız.
Set k = .Range("C2:C65536").FindNext(k)

Private Sub TextBoxBUL_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 2, 1 To 1)
If TextBoxBUL.Text = "" Then
ListBox1.RowSource = "GENEL BİLGİLER!B2:C" & Sheets("GENEL BİLGİLER").[A65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("GENEL BİLGİLER")
ListBox1.RowSource = ""
If .FilterMode Then .ShowAllData
Set k = .Range("B2:C65536").Find(TextBoxBUL.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 2, 1 To a)
For j = 1 To 2
myarr(j, a) = .Cells(k.Row, j + 2).Value
Next j
Set k = .Range("B2:C65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub

HOCAM VERİĞİNİZ BİLGİ İÇİN TEŞEKKÜR EDERİM.
Yalnız şöyle bir sıkıntı yaşadım şimdi listbox1 de 2 item gösteriyorum biri sicil no biri isim şimdi bul texboxa harf yazdığım zaman buluyor fakat farklı personellerin bilgileri birbirine giriyor bu kodda ne gibi bir değişiklik yapmam lazım acaba teşekkürler

 

[Orion1]

Kodun en üstüne

OPTION BASE 1

Yazdınızmı?

 

[KAPLAN381]

yok yazmadım üstte yazdığı gibi kodun tamamı

 

[KAPLAN381]

Kodun en üstüne

OPTION BASE 1

Yazdınızmı?

yazdım ama bu hatayı aldım!

 

[Orion1]

[B][COLOR="Red"]OPTION BASE 1[/COLOR][/B]
Private Sub TextBoxBUL_Change()
Dim k As Range, adrs As String, j As Byte, a As Long

 

[KAPLAN381]

Hocam ilginiz için teşekkür ederim fakat olmuyor listbox ta a ismi görünüyor fakat b isminin bilgilerini getiriyor

 

[Orion1]

Örnek dosya ekleyiniz.

 

[KAPLAN381]

Örnek dosya ekleyiniz.

örnek dosyam ekte hocam

 

[Orion1]

Sicil no ya göre arama yapıyor.
Dosyanız ektedir.