[Yardım]  Süzme

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

Süzme

İleti#1)  alibuyuk66 » 22 Şub 2021 11:52

Merhaba Arkadaşlar. Aşağıdaki kodla textbox5 yazılan verileri listede süzüyorum. Fakat bu kod sadece kelimenin en başındaki harf veya rakama göre süzme yapıyor. kod yapısını bozmadan kelimenin ortasından veya farklı bir alanından da sözcük yazdığımda süzme nasıl yaptırabilirim.

Kod: Tümünü seç
Sub listele()
Dim fdl, k As Integer
Dim deg1, deg2 As String
Dim sf As Worksheet
Set sf = Sheets("stok")

ListBox1.RowSource = vbNullString
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "80;300;50;50;50;50;50"
ReDim fdl(1 To 7, 1 To 1)
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = sf.Cells(1, k)
Next k
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = ""
Next k
For i = 2 To sf.Cells(65536, "b").End(xlUp).Row
deg1 = UCase(Replace(Replace(TextBox5, "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(sf.Cells(i, 2), "ı", "I"), "i", "İ"))
If TextBox5.Text = "" Then GoTo atla
If deg1 = Left(deg2, Len(TextBox5)) Then
atla:
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = sf.Cells(i, k)
Next k
End If
Next i
If a > 0 Then ListBox1.Column = fdl
Erase fdl

End Sub
Kullanıcı avatarı
alibuyuk66
Yeni Başlamış
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 77
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

Cevap: Süzme

İleti#2)  Miraç CAN » 22 Şub 2021 13:43

If deg1 = Left(deg2, Len(TextBox5)) Then yerine;
If deg2 Like "*" & deg1 & "*" Then bunu kullanmayı deneyin.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 1009
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Süzme

İleti#3)  alibuyuk66 » 22 Şub 2021 14:11

Çok makbule geçti ustam eline sağlık
Kullanıcı avatarı
alibuyuk66
Yeni Başlamış
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 77
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 3 misafir

Bumerang - Yazarkafe