[Yardım]  TextBox ile ListBox'ta karışık arama yapabilme

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

TextBox ile ListBox'ta karışık arama yapabilme

İleti#1)  isayaman » 07 Haz 2018 13:46

Merhaba Üstadlarım,

Sizin için kolay, benim için zor bir konuna yardım isteyecektim. User form bulunan bir makro çalışmasını revize etmeye çalışıyorum. Arama yaparken TextBox'a başından itibaren eksiksiz yazarsam buluyor. fakat 2. cümle başından başlarsam bulamıyor. Örnek vereyim, ListBoxt'a "Ajandalı defter" yazısı var. Ajandalı yazdığığımda buluyor. Fakat defter yazarak içerisinde defter olan tüm sonuçları görmek istediğimde bulmuyor.

Birde tarih olan TextBox'larda açılır pencere tarih yapılabiliyor mu?

Yardımcı olursanız sevinirim. Örnek dosya ek olarak paylaşılmıştır.

Giriş User form adı : admin
Şifre: admin

Saygılarımla,
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isayaman
Yeni Başlamış
 
Adı Soyadı:isa yaman
Kayıt: 28 Nis 2014 09:46
Konum: Ümraniye istanbul
Meslek: Mühendislik satış
Yaş: 36
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist

Cevap: TextBox ile ListBox'ta karışık arama yapabilme

İleti#2)  Ozan İLGÜN » 07 Haz 2018 16:01

Dosyanız kendini otomatik kapatıyor.
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2590
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: TextBox ile ListBox'ta karışık arama yapabilme

İleti#3)  isayaman » 07 Haz 2018 17:06

Ozan İLGÜN yazdı:Dosyanız kendini otomatik kapatıyor.


Merhaba Hocam bende hata vermiyor açılıyor, giriş panelinden olabilir diye iptal ettim şifreli giriş panelini.

Yardımcı olduğunuz için teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isayaman
Yeni Başlamış
 
Adı Soyadı:isa yaman
Kayıt: 28 Nis 2014 09:46
Konum: Ümraniye istanbul
Meslek: Mühendislik satış
Yaş: 36
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist

Cevap: TextBox ile ListBox'ta karışık arama yapabilme

İleti#4)  Ozan İLGÜN » 07 Haz 2018 17:13

Sonraki yükleyeceğiniz dosya olursa onlarda uygulama gizleme kodlarını yorum yapar veya kaldırırsanız sevinirim.
Kod: Tümünü seç
Sub liste()
s = 0
Set sf1 = Sheets("STOK")
U1.ListBox1.Clear
For i = 2 To sf1.Range("a65536").End(3).Row
If U1.TextBox1.Text = "" Or sf1.Range("C" & i) Like "*" & U1.TextBox1 & "*" Then
U1.ListBox1.AddItem sf1.Range("a" & i).Value
U1.ListBox1.List(s, 1) = sf1.Range("C" & i).Value
s = s + 1
End If
Next i
End Sub
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2590
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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

Cevap: Cevap: TextBox ile ListBox'ta karışık arama yapabilme

İleti#5)  isayaman » 07 Haz 2018 17:29

Ozan İLGÜN yazdı:Sonraki yükleyeceğiniz dosya olursa onlarda uygulama gizleme kodlarını yorum yapar veya kaldırırsanız sevinirim.
Kod: Tümünü seç
Sub liste()
s = 0
Set sf1 = Sheets("STOK")
U1.ListBox1.Clear
For i = 2 To sf1.Range("a65536").End(3).Row
If U1.TextBox1.Text = "" Or sf1.Range("C" & i) Like "*" & U1.TextBox1 & "*" Then
U1.ListBox1.AddItem sf1.Range("a" & i).Value
U1.ListBox1.List(s, 1) = sf1.Range("C" & i).Value
s = s + 1
End If
Next i
End Sub


Eline sağlık Ozan hocam tam istediğim gibi olmuş,

[TESEKKÜR]

Kolay gelsin
Kullanıcı avatarı
isayaman
Yeni Başlamış
 
Adı Soyadı:isa yaman
Kayıt: 28 Nis 2014 09:46
Konum: Ümraniye istanbul
Meslek: Mühendislik satış
Yaş: 36
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist

Cevap: TextBox ile ListBox'ta karışık arama yapabilme

İleti#6)  isayaman » 07 Haz 2018 17:35

Ozan hocam, tarih kısmını nasıl düzeltebilirim. Açılır tarih yapabilir miyiz?

Örnek resim aşağıda paylaşılmıştır.

tarih formati.JPG


[TESEKKÜR] [TESEKKÜR]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isayaman
Yeni Başlamış
 
Adı Soyadı:isa yaman
Kayıt: 28 Nis 2014 09:46
Konum: Ümraniye istanbul
Meslek: Mühendislik satış
Yaş: 36
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: TextBox ile ListBox'ta karışık arama yapabilme

İleti#7)  kerevizone » 07 Haz 2018 20:12

Aynı sıkıntıyı farklı kodlar da bende yaşıyorum.Yeni konu açmak istemedim.
Kod: Tümünü seç
Sub Filtrele()
'Set Kayit = CreateObject("adodb.recordset")
Debug.Print Kayit.Filter
Kayit.Filter = ""
If Kayit.RecordCount = 0 Then Exit Sub
Sorgu = IIf(Me.TextBox1.Text = "", "KODU<>''", "KODU Like '%" & Me.TextBox1.Text & "%'")

Sorgu = Sorgu & IIf(Me.TextBox2.Text = "", "", " And AÇIKLAMA Like '%" & Me.TextBox2.Text & "%'")

Kayit.Filter = Sorgu

If Not Kayit.EOF Then
        With Me
            .ListBox1.Clear
            .ListBox1.ColumnCount = 9
            .ListBox1.ColumnWidths = "75;325;100;100;100;100;100;100;100"
            .ListBox1.Column = Kayit.GetRows

        End With
Else
    Me.ListBox1.Clear
End If
End Sub

Yardımcı olursanız sevinirim.İyi Çalışmalar
Kullanıcı avatarı
kerevizone
Yeni Başlamış
 
Adı Soyadı:ahmet kara
Kayıt: 07 Ağu 2012 17:10
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: TextBox ile ListBox'ta karışık arama yapabilme

İleti#8)  kerevizone » 07 Haz 2018 20:23

Gönderdiğim kodda onu yapabiliyorum joker karakter kullanmak istiyorum. Ex* yazımca Excel olanların gelmesini istiyorum örnek olarak.teşekkürler
Kullanıcı avatarı
kerevizone
Yeni Başlamış
 
Adı Soyadı:ahmet kara
Kayıt: 07 Ağu 2012 17:10
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara


Forum TextBox

Online Kullanıcılar

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

Bumerang - Yazarkafe