arama butonun a tıklayınca. ada göre arama yapmak isitiyorum ?

[pitsss]

arkadaşlar. forumdan bulduğum bir çalışmayı kendime uyrlamaya çaalışıyorum. Ve arama yapmak istediğimde sorunla karşılaşıyorum.çünkü kayıt bul butonu kayıtların sıra numarasına göre yapılıyor. tabi ki çok kayıtlı bir sistemde sıra numarasının içinden çıkılamaya bilir. benim istediğimi. bul düğmesine basınca. bir textbox ) olsun altında da listbox olsun. ve texboxa yazdığım arama kriterine ( ada soyada göre arasın) uygun siimleri alttaki list boza taşısın. ben uygun olanı çift tıklayıp , kişinin bilgilerini ekrana getireyim? bunu nasıl yapabilirim.
ben kodlamayı pek bilmediğim için belkide çok basit olan bu olay için sizlerin yardımını bekliyorum.
Şimdiden herkese teşekkürler.
SAYFA ! >> DÜĞME1 >> MÜŞTERİLER yolunu izleyerek ilgili alana ulaşabilrsiniz.

 

[Mahmut Kök]

ekli dosyaya bakınız

 

[pitsss]

ekli dosyaya bakınız

cevabınız için çok teşekkrü ederim. tam istediğim gibi olmuş.
bir ricam daha var eğer mümkünse, listele buyonuna basmadan , direk text boxa veri girilince aşağıdaki list boxa listeleme olayı olabilir yormu acaba? ben uarlama yapmaya çalıştım bi yerden ama olmadı malesef :S

 

[Mahmut Kök]

Aşağıdaki kodları kullanabilirsiniz. Listele düğmesindeki kodu TextBox1_Change olayına aktarmak yeterlidir.

Private Sub TextBox1_Change()
ListBox1.Clear
Set s1 = Sheets("Sayfa1")

        For a = 1 To [b65536].End(3).Row
        Set bul = Cells(a, "b").Find(TextBox1, lookat:=xlPart)
        If bul Is Nothing Then GoTo 2
        
        ListBox1.AddItem Cells(a, "a")
        ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(a, "b")
2
        Next
End Sub

 

[pitsss]

Aşağıdaki kodları kullanabilirsiniz. Listele düğmesindeki kodu TextBox1_Change olayına aktarmak yeterlidir.

Private Sub TextBox1_Change()
ListBox1.Clear
Set s1 = Sheets("Sayfa1")

        For a = 1 To [b65536].End(3).Row
        Set bul = Cells(a, "b").Find(TextBox1, lookat:=xlPart)
        If bul Is Nothing Then GoTo 2
        
        ListBox1.AddItem Cells(a, "a")
        ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(a, "b")
2
        Next
End Sub

Teşekkürler. Çok işime yaradı. Sağolun. İlgilinz ve alakanız için. İyi günler iyi çalışmalar...

 

[mustafa7691]

sn mesleki affınıza sığınarak bu konuda birşey sormak istedim.aynı listele olayında sadece sıra no ve adı kısmı görüntüleniyor.acaba burada daha çok seçeneğin gösterimi mümkünmü.yani soyadı tarih vs gibi daha fazla sütunu göstermek için bu kod düzenlenebilirmi.yardımcı olursanız sevinirim saygılar

 

[Skorpiyon]

Sayın mustafa7691,

Kod bölümüne geçerek, ilgili formda listbox nesnesinin özelliklerinde (Properties bölümünde) COLUMNCOUNT 'un değerini yükseltiniz, istediğiniz şey olacaktır.

Yalnız, listbox nesnesinin form üzerindeki genişliğini eklemek istediğiniz veriye göre büyütünüz.

Veriler arası mesafe çok uzak olursa da yine listbox nesnesinin özellikler hanesinden COLUMNWIDTHS özelliğini kullanınız.

Yani, verilere genişliklerini kendiniz veriniz. Columnwidths 'nin yanına 50;50;75;100 gibi (kaç sütununuz var ise o kadar sayı yazacaksınız) yazınız. Bu rakamlar sütun genişlikleridir. Kendinize göre uyarlarsınız.

Saygılarımla...

 

[Mahmut Kök]

sn mesleki affınıza sığınarak bu konuda birşey sormak istedim.aynı listele olayında sadece sıra no ve adı kısmı görüntüleniyor.acaba burada daha çok seçeneğin gösterimi mümkünmü.yani soyadı tarih vs gibi daha fazla sütunu göstermek için bu kod düzenlenebilirmi.yardımcı olursanız sevinirim saygılar

eğer listekutusunun sütun sayısını artırırsanız aşağıda anlatmaya çalıştığım şekilde, listekutusuna daha fazla sütun ekleyebilirsiniz.

ListBox1.columncount=4  'sütun sayısını 4 olarak belirttik.
 
ListBox1.AddItem Cells(a, "a") 'Yeni satır açtık ve ilk sütunun verisini ekledik.
        ListBox1.List(ListBox1.ListCount [COLOR=blue]- 1[/COLOR], [COLOR=red]1[/COLOR]) = Cells(a, "[COLOR=green]b[/COLOR]") '(*)
        ListBox1.List(ListBox1.ListCount [COLOR=blue]- 1[/COLOR], [COLOR=#ff0000]2[/COLOR]) = Cells(a, "[COLOR=#008000]e[/COLOR]") ' (**)

(*) liste kutusunda satırlar ve sütunların ilk değeri 0 (sıfır)'dır. Kırmızı 1, bizim gördüğümüz 2. sütun. Yani ikinci sütuna, ilgili sayfanın B sütunundaki veriyi ekledik. ListBox1.ListCount - 1 kısmında, satır sayısına bakıyoruz ve yeni eklediğimiz satır son satır olduğu için, o satıra veri giriyoruz. - 1 ilk değer sıfır olduğu için yazıldı.

(**) Bizim gördüğümüz 3. sütuna E sütunundaki veriyi ekledik.



Bu şekilde devam ediyor.

 

[mustafa7691]

sn mesleki ve sn sertkaya,elektrikler akşam kesik olduğu için sizlere yazamadım.ilginize ve yardımınıza çok teşekkürler.iyiki varsınız.saygılar

 

[mustafa7691]

sn hocalarım normalde o bölümde yazılı kod;

Private Sub CommandButton1_Click()

ListBox1.Clear
Set s1 = Sheets("KAYIT1")


For a = 1 To [b65536].End(3).Row
Set bul = Cells(a, "b").Find(TextBox1, lookat:=xlPart)
If bul Is Nothing Then GoTo 2


ListBox1.AddItem Cells(a, "a")
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(a, "b")

Next

End Sub

bi yerde sanırım yanlış yapıyorum.

If bul Is Nothing Then GoTo 2

bu satırda hata veriyor.bilgim yetmediğinden düzeltemiyorum.



(Private Sub CommandButton1_Click()

ListBox1.Clear
Set s1 = Sheets("KAYIT1")


For a = 1 To [b65536].End(3).Row
Set bul = Cells(a, "b").Find(TextBox1, lookat:=xlPart)
If bul Is Nothing Then GoTo 2

ListBox1.ColumnCount = 4
ListBox1.AddItem Cells(a, "a")
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(a, "b")
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(a, "c")
ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(a, "d")
Next

End Sub


yani ben kodu bu şekilde çevirdiğimde hata veriyor.yardımcı olursanız sevinirim

 

[pitsss]

Sayın mustafa7691,

Kod bölümüne geçerek, ilgili formda listbox nesnesinin özelliklerinde (Properties bölümünde) COLUMNCOUNT 'un değerini yükseltiniz, istediğiniz şey olacaktır.

Yalnız, listbox nesnesinin form üzerindeki genişliğini eklemek istediğiniz veriye göre büyütünüz.

Veriler arası mesafe çok uzak olursa da yine listbox nesnesinin özellikler hanesinden COLUMNWIDTHS özelliğini kullanınız.

Yani, verilere genişliklerini kendiniz veriniz. Columnwidths 'nin yanına 50;50;75;100 gibi (kaç sütununuz var ise o kadar sayı yazacaksınız) yazınız. Bu rakamlar sütun genişlikleridir. Kendinize göre uyarlarsınız.

Saygılarımla...

sorunuz için teşekürler. benimde böyle bir koda ihtiyacım cardı. cevap veren arkdaşlara ayrıca teşekkür ederim.

 

[mustafa7691]

sn pitsss soruyu sordum ama cevabı uygulamada sorunum var siz çözebildinizmi.yani columncount ve columnwıdths özelliklerini çözdüm ama sütün sayısını listbox ta artıramadım.hala uğraşıyorum

 

[pitsss]

sn pitsss soruyu sordum ama cevabı uygulamada sorunum var siz çözebildinizmi.yani columncount ve columnwıdths özelliklerini çözdüm ama sütün sayısını listbox ta artıramadım.hala uğraşıyorum

ben kodlardan anlamam ama sanırım sizdeki sorun
kodun sonundaki nexten önce 2
yikoymamnız.

Private Sub TextBox1_Change()
ListBox1.Clear
Set s1 = Sheets("Sayfa1")

        For a = 1 To [b65536].End(3).Row
        Set bul = Cells(a, "b").Find(TextBox1, lookat:=xlPart)
        If bul Is Nothing Then GoTo 2
        ListBox1.ColumnCount = 6
 
ListBox1.AddItem Cells(a, "B")
        ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(a, "D")
        ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(a, "E")
        ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(a, "f")
         ListBox1.List(ListBox1.ListCount - 1, 4) = Cells(a, "g")
          ListBox1.List(ListBox1.ListCount - 1, 5) = Cells(a, "h")
          

       
      
2
        Next

şunu bi dener misiniz?

 

[Mahmut Kök]

bi yerde sanırım yanlış yapıyorum.

If bul Is Nothing Then GoTo 2

bu satırda hata veriyor.bilgim yetmediğinden düzeltemiyorum.

next'ten önce 2 yazmalı.

[COLOR=#ff0000]2[/COLOR]
Next
 
End sub

 

[mustafa7691]

evet sorun çözüldü.herkese teşekkürler ve kolaylıklar