e sutununa göre arama

[osmanfenerli1907]

ben a sütünuna göre arama yapıp listbox'ta a b c d sutunlarını listeliyordum.ancak aramayı e sutunana göre yapıp listboxta yine aynı a b c d sutunlarındaki bilgiler listelenecek.yani e sutununa göre arama yapılacak.yardımlarınızı bekliyorum.

Dim k As Range, sat As Long, i As Long, adr As String, x As Long
sat = Sheets("telefonrehberi").Cells(65536, "A").End(xlUp).Row
rehber1.Clear
Set k = Sheets("telefonrehberi").Range("A1:A" & sat).Find(ara.Text, , xlValues, xlPart)
If Not k Is Nothing Then
adr = k.Address
Do
rehber1.AddItem
rehber1.List(x, 0) = k.Value
rehber1.List(x, 1) = k.Offset(0, 1).Value
rehber1.List(x, 2) = k.Offset(0, 2).Value
rehber1.List(x, 3) = k.Offset(0, 3).Value
x = x + 1
Set k = Sheets("telefonrehberi").Range("A1:A" & sat).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
End If
End If

 

[Orion1]

Aşağıdaki satırı değiştirin.

Set k = Sheets("telefonrehberi").Range("E1:E" & sat).Find(ara.Text, , xlValues, xlPart)

If Not k Is Nothing Then
adr = k.Address
Do
rehber1.AddItem
rehber1.List(x, 0) = sheets("Telefonrehberi").cells(k.row,"A").value
rehber1.List(x, 1) = sheets("Telefonrehberi").cells(k.row,"B").value
rehber1.List(x, 2) = sheets("Telefonrehberi").cells(k.row,"C").value
rehber1.List(x, 3) = sheets("Telefonrehberi").cells(k.row,"D").value

 

[osmanfenerli1907]

hocam çalışıyo öyle ama e sutununda bulduğu bilgiyi listboxun 1.sutununda gösteriyor.göstermiyecek.bir de aşağıdaki satırı silecekmiyim

Set k = Sheets("telefonrehberi").Range("A1:A" & sat).FindNext(k)

 

[Orion1]

hocam çalışıyo öyle ama e sutununda bulduğu bilgiyi listboxun 1.sutununda gösteriyor.göstermiyecek.bir de aşağıdaki satırı silecekmiyim

Set k = Sheets("telefonrehberi").Range("A1:A" & sat).FindNext(k)

Evet o satırı silin .Ben unutmuşum.
listboxın birinci sütununda ne gösterecek?a sütununumu?

 

[osmanfenerli1907]

evet 1.sutun a 2.sutun b 3.sutun c 4.sutun d e sutununu hiç göstermicek.o satırı sildim yine olmadı.

 

[Orion1]

evet 1.sutun a 2.sutun b 3.sutun c 4.sutun d e sutununu hiç göstermicek.o satırı sildim yine olmadı.

2 numaralı mesajdan güncelledim oradan tekrar copy paste yapabilirsiniz.

 

[osmanfenerli1907]

HOCAM HATA VARDI BİRAZ AŞAĞIDAKİ SATIRI YENİDEN YAZDIM SİLDİĞİM SATIRI
A LARI E YAPTIM DÜZELDİ.SİZCE DOĞRUMUDUR?

Set k = Sheets("telefonrehberi").Range("A1:A" & sat).FindNext(k)

 

[Orion1]

2 numaralı mesajda düzelttim oradan alınız.