listbox üzerinde tarihe göre süzme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

listbox üzerinde tarihe göre süzme

İleti#1)  muzaffer007 » 07 Mar 2020 09:55

arkadaşlar userform üzerindeki comboboxtan sayfayı seçince o sayfadakiler listboxa geliyor,listboxta tarihe göre süzme yapmak istiyorum.birde seçilen sayfa daki vergi daire,vergi no vb sabit değerler userform üzerine gelsin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
muzaffer007
Yeni Başlamış
 
Kayıt: 02 Nis 2018 10:50
Meslek: insan
Yaş: 30
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: listbox üzerinde tarihe göre süzme

İleti#2)  ahmetonline » 09 Mar 2020 16:26

yeni bir textbox aç ve aşağıda yazılan kodu kendine göre uyarla
textbox chance olayına stokaralistele diye cağırma yap
Kod: Tümünü seç
Private Sub StokAraListele()
    Set con = CreateObject("Adodb.Connection"): Set rs = CreateObject("Adodb.RecordSet")
   con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes"""
   Application.ScreenUpdating = False
    Sorgu = "Select * from [STOK_HAREKETLERİ$] where [STOK KODU] LIKE '" & TextBox12.Text & "%'"
    rs.Open Sorgu, con, 1, 1
    If rs.BOF And rs.EOF Then 'kayıt boş dönerse 3021 hatasını engelemek
   GoTo Sonlandir
Else
   With ListBox1
      .RowSource = Empty
      .ColumnCount = 13
      .ColumnWidths = "30;50;70;90;120;80;80;60;60;60;60;80;80"
      .Column = rs.getrows
   End With
End If

Sonlandir:
On Error Resume Next
  If Not rs Is Nothing Then
    If rs.State = adStateOpen Then rs.Close
  End If
    Set rs = Nothing
 
  If Not con Is Nothing Then
    If con.State = adStateOpen Then con.Close
  End If
    Set con = Nothing
Application.ScreenUpdating = True
Exit Sub
End Sub
Kullanıcı avatarı
ahmetonline
Siteye Alışmış
 
Kayıt: 16 May 2018 12:16
Meslek: serbest
Yaş: 40
İleti: 102
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: listbox üzerinde tarihe göre süzme

İleti#3)  muzaffer007 » 10 Mar 2020 06:57

bu kodu çalıştıramadım
Kullanıcı avatarı
muzaffer007
Yeni Başlamış
 
Kayıt: 02 Nis 2018 10:50
Meslek: insan
Yaş: 30
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: listbox üzerinde tarihe göre süzme

İleti#4)  muzaffer007 » 21 Mar 2020 10:43

userform üzerinde comboboxtan seçtiğim sayfadakiler listboxa geliyor.userform üzerine textbox açıp tarih yazınca listboxta o tarihi süzeyim istiyorum.
Kullanıcı avatarı
muzaffer007
Yeni Başlamış
 
Kayıt: 02 Nis 2018 10:50
Meslek: insan
Yaş: 30
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

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

Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe