Ara Bul Listbox

[ozbinici07]

Merhaba Ekte Olan VBA da Arama Yaptıktan Sonra Listelemede Üst Başlıkların Sabit Olarak Çıkması ve Arattığım Bilgileri A sutunundan F sutununa kadar Listelemesini istiyorum bana yardımcı olurmusunuz ?


Ekli dosyayı görüntüle ARA_BUL5_59.xls

 

[Orion1]

Merhaba Ekte Olan VBA da Arama Yaptıktan Sonra Listelemede Üst Başlıkların Sabit Olarak Çıkması ve Arattığım Bilgileri A sutunundan F sutununa kadar Listelemesini istiyorum bana yardımcı olurmusunuz ?


Ekli dosyayı görüntüle 193806

Hangi sütunlarda arama yapacaksınız?

 

[ozbinici07]

C Sutünlarında arama yapıcam

 

[ozbinici07]

C Sutunlarında Arama Yapıcam Ad a göre

Hangi sütunlarda arama yapacaksınız?

 

[Orion1]

C Sutunlarında Arama Yapıcam Ad a göre

Dosya ektedir.
Buyurun.

Private Sub CommandButton1_Click()
Dim k As Range, ilk_adres As String, a As Long, sh As Worksheet
Dim i  As Long, syf As String, sonsat As Long
Sheets("Başlangıç").Select
ListBox1.RowSource = ""
Set sh = Sheets("Suz")
sh.Range("A1:F" & Rows.Count).Clear
Range("A2:F" & Rows.Count).AutoFilter field:=3, Criteria1:=TextBox1.Value & "*"
Range("A2").CurrentRegion.Copy sh.Range("A2")
sonsat = sh.Cells(Rows.Count, "C").End(xlUp).Row
ListBox1.RowSource = "Suz!A3:F" & sonsat
Label3.Caption = "Kriterlere Uyan " & Format(ListBox1.ListCount, "#,##0") & " Adet Veri Bulundu..!!"
End Sub

 

[ozbinici07]

Malesef Son Yapmış Olup Attığınız Program Olmadı Arama Yapmıyor

 

[Orion1]

Malesef Son Yapmış Olup Attığınız Program Olmadı Arama Yapmıyor

C sütununda arama yapacak demiştiniz.C sütununda yazılı olan değerlerden 1 tanesini arayın.

 

[ozbinici07]

Kusura Bakmayın Benim Hatam Dediğiniz Gibi Yapınca Oldu;

Bana İlk Baştaki VBA da Olduğu Gibi Lazımdı Sayfa Sayfa Seçip Arama Yapıyordu O Hali Lazım Bana

Kusura Bakmayın Allah razı olsun yardımcı oluyorsunuz teşekkür ederim şimdiden.

C sütununda arama yapacak demiştiniz.C sütununda yazılı olan değerlerden 1 tanesini arayın.

 

[ozbinici07]

Aşağıda Yapmış Olduğunuz Programa Sayfa Sayfa Arama Seçeneğinide Eklerseniz Çok Memnun Olurum.

Dosya ektedir.
Buyurun.

Private Sub CommandButton1_Click()
Dim k As Range, ilk_adres As String, a As Long, sh As Worksheet
Dim i  As Long, syf As String, sonsat As Long
Sheets("Başlangıç").Select
ListBox1.RowSource = ""
Set sh = Sheets("Suz")
sh.Range("A1:F" & Rows.Count).Clear
Range("A2:F" & Rows.Count).AutoFilter field:=3, Criteria1:=TextBox1.Value & "*"
Range("A2").CurrentRegion.Copy sh.Range("A2")
sonsat = sh.Cells(Rows.Count, "C").End(xlUp).Row
ListBox1.RowSource = "Suz!A3:F" & sonsat
Label3.Caption = "Kriterlere Uyan " & Format(ListBox1.ListCount, "#,##0") & " Adet Veri Bulundu..!!"
End Sub

 

[akimsar]

hocam bulmayı yaptım ama bir daha arama yapmak için ne yapıyoruz liste tekrar gelmiyor

 

[comand0]

yeni arama butonu koyup, textboxları temizleyebiliriz hocam. ozaman listbox da temizlenebilir. onları yaparım aslında

 

[comand0]

kodu yazsanız yeterli hocam size zahmet

 

[comand0]

bide hocam listbox =ColumnCount değerini kaç yaptınız. isim soy isim dosya no baba ismi fiş no 5 kolon falan olması lazımdı.