[Çözüldü]  Optionbutton ile arama

Seçenek düğmesi

Optionbutton ile arama

İleti#1)  zfr10 » 14 Ağu 2016 18:52

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?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Optionbutton ile arama

İleti#2)  Ali ÖZ » 15 Ağu 2016 14:12

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
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 40
İleti: 10322
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Optionbutton ile arama

İleti#3)  zfr10 » 16 Ağu 2016 19:32

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ı.
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Optionbutton ile arama

İleti#4)  feraz » 16 Ağu 2016 23:46

Bende çalıştı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Optionbutton ile arama

İleti#5)  zfr10 » 17 Ağu 2016 00:34

Sayın Feraz Bey bende çalışamadı sorun ne olabilir acaba?
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Optionbutton ile arama

İleti#6)  feraz » 17 Ağu 2016 00:45

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.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Optionbutton ile arama

İleti#7)  feraz » 17 Ağu 2016 00:54

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.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#8)  zfr10 » 17 Ağu 2016 01:08

Feraz Bey benim sayfada sorun var galiba yada ofis versiyonundan dolayı olabilir mi? Her türlü denedim olmadı.
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Optionbutton ile arama

İleti#9)  feraz » 17 Ağu 2016 01:23

Ben çalışan çekilde dosyayı ekleyim.Birde bu dosyayı deneyiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#10)  zfr10 » 17 Ağu 2016 17:35

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.
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Optionbutton ile arama

İleti#11)  feraz » 17 Ağu 2016 17:53

Officenin 2003 den sonrasını indirip birde böyle deneyin.Hata olacakmı bu kezde.Office deneme sürümü mevcut internette.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#12)  zfr10 » 17 Ağu 2016 19:21

Teşekkür ederim alakanız için Feraz Bey.
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Optionbutton ile arama

İleti#13)  feraz » 17 Ağu 2016 20:15

Birde bunu deneyiniz.Daha olmadı klasik yöntemle yapılır veri azsa şayet.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#14)  Ali ÖZ » 18 Ağu 2016 09:25

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""
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 40
İleti: 10322
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Optionbutton ile arama

İleti#15)  zfr10 » 18 Ağu 2016 23:45

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?
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Cevap: Optionbutton ile arama

İleti#16)  zfr10 » 18 Ağu 2016 23:48

feraz yazdı: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.
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Optionbutton ile arama

İleti#17)  feraz » 19 Ağu 2016 00:07

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.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#18)  feraz » 19 Ağu 2016 00:11

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.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#19)  feraz » 19 Ağu 2016 00:53

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) & "%" & "'"
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#20)  zfr10 » 19 Ağu 2016 13:56

Feraz Bey çok teşekkür ederim şimdi oldu. Gerçekten minnettarım... şkşk şkşk şkşk
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Sonraki

Forum OptionButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe