Combobox SÜzmede Sorun

ridvan2111 · 31 Mayıs 2008

SELAM ARKADAŞLAR

combobox26 da süzdüğüm veriler (sütunlar) listbox4 te eksik görünüyor
süzmeden sonra listbox4 ve listbox1 sütunlar aynı görünümde olması gerek

not kodların büyük bölümünü formdaki örneklerden ve siz değerli ustaların
yardımları sayesinde bu hale getirdim
kendime uyarlarken yanlış yaptım sanırım.
yardımlarınız için şimdiden teşekkürler

parsley2 · 31 Mayıs 2008

yanıt

combobox26 kutusundaki formülleri biraz değiştirdim. bir bak istediğin olmuş mu?

Orion1 · 31 Mayıs 2008

Dosyanız ekte.
Listbox4'te ilk sütun Verinin bulunduğu excel sayfa satır numarasını veriyor.

Kod:

Set k = SV.Range("B2:B65536").Find(ComboBox26.Value, , xlValues, xlWhole, , 1)
ReDim myarr(1 To 12, 1 To 1)
If Not k Is Nothing Then
    ilkadres = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 12, 1 To a)
        myarr(1, a) = k.Row
        For i = 2 To 12
            myarr(i, a) = SV.Cells(k.Row, i).Value
        Next i
        Set k = SV.Range("B2:B65536").FindNext(k)
    Loop While k.Address <> ilkadres And Not k Is Nothing
End If
If a > 0 Then ListBox4.Column = myarr

ridvan2111 · 1 Haziran 2008

Sayın EVREN GİZEN
çok teşekkür ediyorum
bir sorum daha olacak

Private Sub ListBox1_Click()
Dim ilk_adres As String, k As Range, deg As Double
Dim j As Byte
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "SİPARİŞ GİRİŞİ" Then
Set k = Sheets(i).Range("C2:C65536").Find(ListBox1.Column(2), , xlValues, xlWhole, , 1)
If Not k Is Nothing Then
ilk_adres = k.Address
Do
For j = 6 To 96 Step 10
If Sheets(i).Cells(k.Row, j).Value > deg Then deg = Sheets(i).Cells(k.Row, j).Value
Next j
Set k = Sheets(i).Range("C2:C65536").FindNext(k)
Loop While k.Address <> ilk_adres And Not k Is Nothing
End If
Set k = Nothing
End If
Next i
Label150 = Format(deg, "#,##0")
Label152.Caption = Format(CDbl(Label148.Caption) - CDbl(Label150.Caption), "#,##0")
End Sub

listbox1 de seçim yaptığımda çalışan bu kodlar
listbox4 te seçim yaptığımda da çalışırmı

ridvan2111 · 1 Haziran 2008

Sayın parsley2
sizin kodlarınız süzülen verilerin sıra numarasını hatasız veriyor
fakat sayfada aynı isimde birden fazla müşteri olduğunda tek birini listeliyor
yani süzme işlemi başarısız oluyor
ilginiz için teşekkür ederim

Orion1 · 1 Haziran 2008

ridvan2111' Alıntı:
Sayın EVREN GİZEN
çok teşekkür ediyorum
bir sorum daha olacak

listbox1 de seçim yaptığımda çalışan bu kodlar
listbox4 te seçim yaptığımda da çalışırmı

Ayni kodları listbox4.ün click olayına veya double_click olayına yazarsanız çalışır.

İlgili satırı Aşağıdaki kodlararla değiştirmeniz gerekir.

Kod:

Set k = Sheets(i).Range("C2:C65536").Find([B][COLOR="Red"]ListBox4.Column( 2)[/COLOR][/B], , xlValues, xlWhole, , 1)

Ayrıca:
Benim yazdığım kodlarda listbox4'TE İLK SÜTUN Sizin oluşturduğunuz sıra numrasını vermiyor,Listbox'ın Satır numarasını veriyor..Dolayısı ile hatalı bir işlem değildir.
Herhangi mükerrer bir arama ve listelemede bu satır numarasını kullanarak istediğiniz veriye ulaşabilirsiniz.
Ama isteseniz aşğıdaki kodları değiştirerek sizin verdiğiniz sıra numaralarını listeleyebilirsiniz.

Kod:

Do
        a = a + 1
        ReDim Preserve myarr(1 To 12, 1 To a)
        For i = 1 To 12
            myarr(i, a) = SV.Cells(k.Row, i).Value
        Next i

ridvan2111 · 3 Haziran 2008

Evren Gizlen' Alıntı:
Ayni kodları listbox4.ün click olayına veya double_click olayına yazarsanız çalışır.
İlgili satırı Aşağıdaki kodlararla değiştirmeniz gerekir.

Kod:

Set k = Sheets(i).Range("C2:C65536").Find([B][COLOR="Red"]ListBox4.Column( 2)[/COLOR][/B], , xlValues, xlWhole, , 1)

Ayrıca:
Benim yazdığım kodlarda listbox4'TE İLK SÜTUN Sizin oluşturduğunuz sıra numrasını vermiyor,Listbox'ın Satır numarasını veriyor..Dolayısı ile hatalı bir işlem değildir.
Herhangi mükerrer bir arama ve listelemede bu satır numarasını kullanarak istediğiniz veriye ulaşabilirsiniz.
Ama isteseniz aşğıdaki kodları değiştirerek sizin verdiğiniz sıra numaralarını listeleyebilirsiniz.

Kod:

Do a = a + 1 ReDim Preserve myarr(1 To 12, 1 To a) For i = 1 To 12 myarr(i, a) = SV.Cells(k.Row, i).Value Next i

Sayın EVREN GİZLEN
yardımlarınız ve açıklamalarınız için çok teşekkür ederim

Orion1 · 3 Haziran 2008

ridvan2111' Alıntı:
Sayın EVREN GİZLEN
yardımlarınız ve açıklamalarınız için çok teşekkür ederim

Rica ederim.
İyi çalışmalar.

Combobox SÜzmede Sorun

ridvan2111

parsley2

Orion1

Uzman

ridvan2111

ridvan2111

Orion1

Uzman

ridvan2111

Orion1

Uzman