Üstatlara Filtre ile ilgili bir sorum var.

[zafergunay]

Yapmak istediğim sorumu örnek vererek açıklamak istiyorum.

İstanbul
Ankara
Adana
İzmir
Bursa
.
.
vb.

Bu liste uzayıp gidiyor. Örneğin bana " a ile başlayan ve b veya i veya a veya n içeren" kelimelerinin filtrelenmesini istiyorum. Fakat filte kısmında sadece 2 bölüm var. Bu işlemin çözümü nasıl olabilir.

 

[korhan86119]

Merhaba kodu denermisiniz.

Dim k As Range, adrs As String, j As Byte, A As Long
ReDim myarr(1 To 5, 1 To 65536)
With Worksheets("")
ListBox1.RowSource = ""
If .FilterMode Then .ShowAllData
Set k = .Range("a1:a65536").
adrs = k.Address
Do
A = A + 1
For j = 1 To 5
myarr(j, A) = .Cells(k.Row, j).Value
Next j

ReDim Preserve myarr(1 To 5, 1 To A)
ListBox1.Column = myarr
End If
End With
End If

 

[zafergunay]

Merhaba kodu denermisiniz.

Dim k As Range, adrs As String, j As Byte, A As Long
ReDim myarr(1 To 5, 1 To 65536)
With Worksheets("")
ListBox1.RowSource = ""
If .FilterMode Then .ShowAllData
Set k = .Range("a1:a65536").
adrs = k.Address
Do
A = A + 1
For j = 1 To 5
myarr(j, A) = .Cells(k.Row, j).Value
Next j

ReDim Preserve myarr(1 To 5, 1 To A)
ListBox1.Column = myarr
End If
End With
End If

Hocam çok yeniyim de.. Tam olarak nereye ekliyoruz.

 

[korhan86119]

Doyayı inceleyiniz.

 

[zafergunay]

Doyayı inceleyiniz.

Evet hocam teşekkür ederim ilgi alakanız için. Bir hata verse de sonrasında bir tane form açılıyor fakat sadece yazdığım harf ile başlayanları çıkıyor.


Örnek :İhtiyacım olan Hem A ile Başlayan ve aynı zamanda B C ve D İçeren kelimeleri bulmam gerekiyor. (Bu harfler temsili devamlı olarak değişiklik olacak.)

 

[zafergunay]

Evet hocam teşekkür ederim ilgi alakanız için. Bir hata verse de sonrasında bir tane form açılıyor fakat sadece yazdığım harf ile başlayanları çıkıyor.


Örnek :İhtiyacım olan Hem A ile Başlayan ve aynı zamanda B C ve D İçeren kelimeleri bulmam gerekiyor. (Bu harfler temsili devamlı olarak değişiklik olacak.)

Zor bir işlemse uğraştırmayayım hocam. Bu yazdığınızla faydasını görüyorum. Biraz zaman alıyor ama eskisine göre çok daha iyi...

Tekrar teşekkürler.

 

[korhan86119]

Bir dosyada açıklama yaparsanız daha sağlıklı yardımcı olmaya çalışrız.