Müşteri adı ile ara yapma

[mustafakoker]

Selam;
Ekli dosyadakı konu hakkında yardımlarınızı rica ediyorum.
bu konu hakkındaki örnekleri dosyama uygulamaya çalıştım ama sıra no ile aratabiliyorum bana müşteri adı ile arama lazım İlgilenen arkadaşlarımıza teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
Dim k As Range, adrs As String, sat As Long
Dim sh As Worksheet, myarr(), j As Long
ListBox1.Clear
ReDim myarr(1 To 5, 1 To 65536)
Set sh = Sheets("DATA")
sat = sh.Cells(65536, "B").End(xlUp).Row
If sat < 2 Then Set sh = Nothing: Exit Sub
Set k = sh.Range("B2:B" & sat).Find(TextBox1.Text & "*", , xlValues, xlWhole, , , MatchCase:=True)
If Not k Is Nothing Then
    adrs = k.Address
    Do
        j = j + 1
        myarr(1, j) = k.Offset(0, -1)
        myarr(2, j) = k.Value
        myarr(3, j) = k.Offset(0, 1)
        myarr(4, j) = k.Offset(0, 2)
        myarr(5, j) = k.Offset(0, 3)
        Set k = sh.Range("B2:B" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adrs
    ReDim Preserve myarr(1 To 5, 1 To j)
    ListBox1.Column = myarr
    Erase myarr
End If
Set k = Nothing
Set sh = Nothing
End Sub

 

[excel_ance]

Teşekkürler.

Dosyanız ektedir.

Private Sub TextBox1_Change()
Dim k As Range, adrs As String, sat As Long
Dim sh As Worksheet, myarr(), j As Long
ListBox1.Clear
ReDim myarr(1 To 5, 1 To 65536)
Set sh = Sheets("DATA")
sat = sh.Cells(65536, "B").End(xlUp).Row
If sat < 2 Then Set sh = Nothing: Exit Sub
Set k = sh.Range("B2:B" & sat).Find(TextBox1.Text & "*", , xlValues, xlWhole, , , MatchCase:=True)
If Not k Is Nothing Then
    adrs = k.Address
    Do
        j = j + 1
        myarr(1, j) = k.Offset(0, -1)
        myarr(2, j) = k.Value
        myarr(3, j) = k.Offset(0, 1)
        myarr(4, j) = k.Offset(0, 2)
        myarr(5, j) = k.Offset(0, 3)
        Set k = sh.Range("B2:B" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adrs
    ReDim Preserve myarr(1 To 5, 1 To j)
    ListBox1.Column = myarr
    Erase myarr
End If
Set k = Nothing
Set sh = Nothing
End Sub

hocam örneklemiş olduğunuz bu kodlar için çook teşekkür ederim sizin bu kodlarınız sayesinde deneme yanılma yöntemi ile birşeyler yapmaya çalışıyoruz. dimağınız açık, gözleriniz ferli, sıhhatiniz daim olsun.

 

[Orion1]

hocam örneklemiş olduğunuz bu kodlar için çook teşekkür ederim sizin bu kodlarınız sayesinde deneme yanılma yöntemi ile birşeyler yapmaya çalışıyoruz. dimağınız açık, gözleriniz ferli, sıhhatiniz daim olsun.

Bilmukabele.

 

[mustafakoker]

Evren Bey;
Her zamanki gibi yardımlarınız için çook teşekkür ederim.Sağolun
Şunu iyi hatırlıyorum bu siteye ilk üye olduğumda yine ilk dosyama yine siz yardımcı olmuştunuz.
Yani bir bakıma sizin sayenizde excelimi bir yerlere kadar ilerletmiş oldum.
bunun için size ayrıyeten minnettarım.Hayırlı forumlar..

 

[Orion1]

Evren Bey;
Her zamanki gibi yardımlarınız için çook teşekkür ederim.Sağolun
Şunu iyi hatırlıyorum bu siteye ilk üye olduğumda yine ilk dosyama yine siz yardımcı olmuştunuz.
Yani bir bakıma sizin sayenizde excelimi bir yerlere kadar ilerletmiş oldum.
bunun için size ayrıyeten minnettarım.Hayırlı forumlar..

Estafurullah.
Sizin gibi arkadaşların bu tutumları bizleri motive ediyor.
Bu nedenle bende ayrıca teşekkür ederim.

 

[mustafakoker]

Evren bey çok olmazsam eğer bir şey daha rica edebilirmiyim
Listboxımıza bütün müşterilerin listelenmesini sağlayabilirmiyiz .(arama yapmadan)
Şöyleki diyelim a harfiyle başlıyan müşteri listem en başta olacağından o firmayı aratmama gerek kalmıyacak listeden duble clik ile en üste a harfi ile olanlar yer alacağından hemen listeden seçebileyim.

ikinci bir isteğim ise list boxta müşteri no adı soyadı arası,v.d adı.v.d no çok açık bu arayı yakınlaştırabilirmiyiz.

ListBox1.ColumnWidths = "60;65;180;100;80;40;"

bunun gibi ben belirleyebilirmiyim aralıkları

 

[Orion1]

Dosyayı güncelledim.
2 numaralı mesajdan indirebiliersiniz.

Evren bey çok olmazsam eğer bir şey daha rica edebilirmiyim
Listboxımıza bütün müşterilerin listelenmesini sağlayabilirmiyiz .(arama yapmadan)
Şöyleki diyelim a harfiyle başlıyan müşteri listem en başta olacağından o firmayı aratmama gerek kalmıyacak listeden duble clik ile en üste a harfi ile olanlar yer alacağından hemen listeden seçebileyim.

ikinci bir isteğim ise list boxta müşteri no adı soyadı arası,v.d adı.v.d no çok açık bu arayı yakınlaştırabilirmiyiz.
bunun gibi ben belirleyebilirmiyim aralıkları

 

[mustafakoker]

Dosyayı güncelledim.
2 numaralı mesajdan indirebiliersiniz.

Günaydın evren Bey
İş yoğunluğum nedeni ile bugün bakabildim.Yardımlarınız için Teşekkür ederim