comboboxta aratıp listboxta listelemek.

[hurkanpisirici]

merhaba eklediğim dosyada bir listem var ve kod sayfasınada içinde bie listbox ve bir combobox olan user form açtım sorunum şu, comboboxta yazdığım veriye göre bilgiler listboxa listelensin.arama kriterim n sütunu yani satılan firmaya göre olmalı.yardımlarınız için teşekkürler.

 

[hurkanpisirici]

yardımcı olacak bi arkadaş yokmu?

 

[Zeki Gürsoy]

Yapıyı olduğu gibi Form kod modulune kopyalayın.
ADO ile..

Private cn As Object, rs As Object
 
Private Sub ComboBox1_Click()
Dim f As Byte
 
Set rs = cn.Execute( _
"select * from [DATA$] where [SATILAN FİRMA] = '" & ComboBox1 & "'"))
 
With Sheets("Sayfa2")
    .Cells.ClearContents
    For f = 0 To rs.fields.Count - 1
        .Cells(1, f + 1) = rs(f).Name
    Next
    .[a2].CopyFromRecordset rs
End With
 
rs.Close
 
ListBox1.RowSource = "Sayfa2!A2:O" & [a65000].End(3).Row
 
End Sub
 
Private Sub UserForm_Initialize()
 
Set cn = CreateObject("ADODB.Connection")
 
cn.Open _
"DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
    ThisWorkbook.FullName
 
Set rs = cn.Execute( _
"select distinct [SATILAN FİRMA] from [DATA$]")
 
While Not rs.EOF
    ComboBox1.AddItem rs(0)
    rs.movenext
Wend
 
rs.Close
 
With ListBox1
    .ColumnHeads = True
    .ColumnCount = 15
    .ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50;50;50;50;50"
End With
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
cn.Close
 
Set cn = Nothing
Set rs = Nothing
End Sub

 

[hurkanpisirici]

sayın anemos teşekkür ederim uyguladım ama hata verdi?

 

[Zeki Gürsoy]

Ekli dosyanızı inceleyin.

 

[hurkanpisirici]

çok teşekkür ederim ellerinize sağlık.

 

[hurkanpisirici]

kendi dosyama uyarladım tür uyuşmazlığı uyarısı verdi sizi sıkmıyim yanlış bişeyler yaptığım garanti ilginize teşekkür edeirm

 

[Mahmut Kök]

Listviewli örnek ektedir.

 

[hurkanpisirici]

mahmut bey çok güzel olmuş ama ben dosyamı yollarsam daha açıklayıcı olacağım galiba dosyam ektedir

 

[hurkanpisirici]

satış güncelleme ekranı satış ara butonunn altındadır yukarıdaki combobox ile yapmak istiyorum saygılar.

 

[hurkanpisirici]

bide listboxa tıkladığımda veriler textbox lara gelkiyor ama tarih textboxa düzgün gelmiyor

 

[Orion1]

Ekli dosyayı inceleyiniz.
Listbox'ta listelendi.
Not : çok hızlı listeleme yapar.

Private Sub UserForm_Initialize()
Dim i As Long, sonsat As Long, a As Long
Sheets("DATA").Select
ListBox1.ColumnCount = 15
sonsat = Cells(65536, "B").End(xlUp).Row
ReDim myarr(1 To 1, 1 To sonsat)
a = 1
myarr(1, 1) = "HEPSİ"
For i = 2 To sonsat
    If WorksheetFunction.CountIf(Range("N2:N" & i), Cells(i, "N").Value) = 1 Then
        a = a + 1
        ReDim Preserve myarr(1 To 1, 1 To a)
        myarr(1, a) = Cells(i, "N").Value
    End If
Next i
ComboBox1.Column = myarr
ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
Dim sonsat As Long, i As Long, k As Byte, a As Long
ListBox1.RowSource = ""
sonsat = Cells(65536, "B").End(xlUp).Row
If ComboBox1.Value = "HEPSİ" Then
    ListBox1.RowSource = "A2:O" & sonsat
    Else
    ReDim myarr(1 To 15, 1 To 1)
    For i = 2 To sonsat
        If Cells(i, "N").Value = ComboBox1.Value Then
            a = a + 1
            ReDim Preserve myarr(1 To 15, 1 To a)
            For k = 1 To 15
                myarr(k, a) = Cells(i, k).Value
            Next k
        End If
    Next i
End If
If a > 0 Then ListBox1.Column = myarr
End Sub

 

[hurkanpisirici]

çok teşekkürler sağolun

 

[Orion1]

çok teşekkürler sağolun

Rica ederim.
İyi çalışmalar.

 

[hurkanpisirici]

ama tarih textboxuna doğru veri gelmiyor

 

[Orion1]

ama tarih textboxuna doğru veri gelmiyor

Benim yaptığım dosyada textbox yok.

 

[hurkanpisirici]

Benim yaptığım dosyada textbox yok.

hımm özür dilerim bide textboxlarım var listboxa çift tıklayında textboxa bilgi geliyor ama tarihi düzgün getirmiyor bide listwiew başllıkları yok.

yaptığım dosyayıda ekledim daha anlaşılır olmak için.

 

[Orion1]

hımm özür dilerim bide textboxlarım var listboxa çift tıklayında textboxa bilgi geliyor ama tarihi düzgün getirmiyor bide listwiew başllıkları yok.

Tarihi düzeltirizde listbox'a başlık koyamayız.Çünkü listview değil listbox.
İsterseniz dosyanızı yollayın tarihi düzelteyim.

 

[hurkanpisirici]

gönderdim çok teşekkür edeirm ilginize ve sabrınıza.meslek programcılıkmı yoksa bu hobimi?

 

[Orion1]

gönderdim çok teşekkür edeirm ilginize ve sabrınıza.meslek programcılıkmı yoksa bu hobimi?

Sadece hobi.