ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[zfr10]

Selam arkadaşlar. Hazırlamış olduğum sayfadaki userform üzerindeki listboxı optionbuttonlarla textbox üzerinden arama yapmak istiyorum. Kullanmış olduğum kodlarla optionbuttonu işaretleyince listboxtaki bazı satırlara ait veriler görünmüyor yada kodlar çalışmıyor. Bu konuda yardım edebilir misiniz?

[Ali ÖZ]

Kod: Tümünü seç

Private Sub TextBox203_Change()
On Error Resume Next

ListBox2.ColumnCount = 16 ' lisbox'ta ki sütun sayısı
ListBox2.ColumnWidths = "40;40;120;40;40;50;40;120;70;70;60;30;90;30;40;70" 'lisbox'taki sütunların genişliği
ListBox2.RowSource = "İCMAL!A2:P" & Sheets("İCMAL").Range("A65536").End(xlUp).Row 'lisbox'ta gösterilecek hücre aralığı
ListBox2.ColumnHeads = True 'listboxta birinci satırı sabitler tıklanmaz
ListBox2.RowSource = ""

If OptionButton5.Value = True Then
secim = "PARTİ"
ElseIf OptionButton6.Value = True Then
secim = "İSTİF"
ElseIf OptionButton7.Value = True Then
secim = "MAL SAHİBİ"
ElseIf OptionButton8.Value = True Then
secim = "İHALE TARİHİ"
ElseIf OptionButton9.Value = True Then
secim = "YIL"
ElseIf OptionButton14.Value = True Then
secim = "KOOP/KÖYÜ"
ElseIf OptionButton15.Value = True Then
secim = "SATIŞ DURUMU"
End If
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & ThisWorkbook.FullName & _
     ";extended properties=""Excel 8.0;hdr=yes"""
    sorgu = "Select * from [İCMAL$A1:P65536] where [" & secim & "] like '" & StrConv(TextBox203.Text, 1) & "%" & "'"
    rs.Open sorgu, con, 1, 3
ListBox2.Column = rs.getrows

Dim topla As Double, toplam As Double
For i = 0 To ListBox2.ListCount - 1
    topla = ListBox2.List(i, 5)
    toplam = toplam + topla
Next i
TextBox229.Value = toplam
End Sub

[zfr10]

Ali Bey cevabınız için teşekkür ederim ama kodlar hiç çalışmadı bu kez. Optionbutonları tıklayıp textboxda arama yapmak veri girince hiç birşey çıkmadı.

[feraz]

Bende çalıştı.

[zfr10]

Sayın Feraz Bey bende çalışamadı sorun ne olabilir acaba?

[feraz]

Satın adaşım.Bu işlerin üstadı Ali hocamız.Bende çalıştı.Bunu belirteyim istemiştim.ailk önce optionbutton seçip sonra textboxa veri girip deneyiniz bence.

[feraz]

Belkide sorgu = "Select * from [ÝCMAL$A1:P65536] where [" & secim & "] like '" & StrConv(TextBox203.Text, 1) & "%" & "'"
bundan dolayı olmamıştır.
sorgu = "Select * from [İCMAL$A1:P65536] where [" & secim & "] like '" & TextBox203.Text & "%" & "'" böylede deneyebilirsiniz.

Birde sayı formatı olsun derseniz alttaki gibi değiştiriniz.

TextBox229.Value = toplam yerine alttakini yapınız.
TextBox229.Value = Format(toplam, "#,##0.00")

Tabi Ali hocamız daha iyisini bilir.

[zfr10]

Feraz Bey benim sayfada sorun var galiba yada ofis versiyonundan dolayı olabilir mi? Her türlü denedim olmadı.

[feraz]

Ben çalışan çekilde dosyayı ekleyim.Birde bu dosyayı deneyiniz.

[zfr10]

Feraz Bey galiba benim excelde sorun var. Office 2003 serisini kullanıyorum tahminim ondan olmuyor. Ali Bey'in ve sizin verdiğiniz kodlar hiç çalışmıyor.

[feraz]

Officenin 2003 den sonrasını indirip birde böyle deneyin.Hata olacakmı bu kezde.Office deneme sürümü mevcut internette.

[zfr10]

Teşekkür ederim alakanız için Feraz Bey.

[feraz]

Birde bunu deneyiniz.Daha olmadı klasik yöntemle yapılır veri azsa şayet.

[Ali ÖZ]

Ofis 2003 kullanıyorsanız,
Bu satırı;

Kod: Tümünü seç

con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & ThisWorkbook.FullName & _
     ";extended properties=""Excel 8.0;hdr=yes""

Bu şekilde değiştirin.

Kod: Tümünü seç

con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _
     ";extended properties=""Excel 8.0;hdr=yes""

[zfr10]

Ali Bey bilginiz için teşekkür ederim. Sizin de başınızı ağrıttım kusura bakmayın. Optionbuttona tıklayıp textbox üzerine aranacak veriyi girdiğim zaman listboxtaki boyu sütununda tek rakamlı hücreler çıkmıyor. Mesela 4 olan çıkmıyor 3_4 olanlar çıkıyor. Burda nasıl bir düzeltme yapılabilir?

[zfr10]

Birde bunu deneyiniz.Daha olmadı klasik yöntemle yapılır veri azsa şayet.

Feraz Bey teşekkür ederim. Ali Bey'in vermiş olduğu kodu sizin göndermiş olduğunuz örneğe uyarladım kod çalıştı fakat Ali Bey'e vermiş olduğum cevaptaki sorun devam ediyor.

[feraz]

Kod: Tümünü seç

con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _
     ";extended properties=""Excel 8.0;hdr=yes;Imex=1"""

Yani Imex=1 eklendi sadece Ali hocamızın koduna.


Saygılar.

[feraz]

Eğer listboxu genişletirseniz arama yapınca tarihlerin sayı olarak geldiğini göreceksiniz.Bence alanları tek tek yazıp formatlamak gerekiyor tarihler için.

[feraz]

Tarihler içinde kod yaptım.Hata olursa Tr karakterleri düzeltebilirsiniz.

Kod: Tümünü seç

sorgu = "Select [PARTÝ],[ÝSTÝF],[CÝNSÝ SINIFI VE NEVÝ],[BOYU],[ADET],[HACÝM],[STER]," & _
        " [MAL SAHÝBÝ],Format([ÝHALE TARÝHÝ],'dd.mm.yyyy'),Format([SATIÞ TARÝHÝ],'dd.mm.yyyy')," & _
         " [SATIÞ NO],[STOK],[YILI],[KOOP/KÖYÜ],[RAMPA],[ÖDEME DURUMU] from [ÝCMAL$] where [" & secim & "] like '" & StrConv(TextBox203.Text, 1) & "%" & "'"

[zfr10]

Feraz Bey çok teşekkür ederim şimdi oldu. Gerçekten minnettarım...