Listeden metin parçasına göre başka yerde listeleme

[modoste]

merhaba sayın hocalarım
L5:L100000 aralığında dinlediğim yabancı müzikleri yazıyorum

daha sonra P4 hücresine bir ifade metin parçası yazıyorum ve formülle P5 ten itibaren o metin parçasını içeren verileri formülle buluyorum fakat listem 10000 lere yaklaşınca makrolu çözüm gerekiyo. buna benzer soruyu iş hayatımda birim fiyatlarla ilgili bir makro yapılmıştı ama ben bunu şimdiki dosyama uyarlayamadım.

isteğimi tekrar ediyorum
veriler L5:L(yüzbin) olsun
kriter metin parçasını yazacağım hücre P4
ve makro ile P5 den itibaren içinde P4 deki metin parçasına göre L5:L(yüzbin) arasındaki verileri süzecek.

dosya ektedir.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[modoste]

muygun hocam çok teşekkür ederim çözüm için
bir küçük detay daha isteyecem ben P4 hücresine veriyi yazıp enter dediğimde (başka buton olmadan) çalışsa

 

[muygun]

O halde bu eki deneyin.

NOt: Döngü L sütununa göre düzenlendi.

 

[modoste]

sayın hocam dosyayı ekliyorum bazı metinsel verileri bulmadığını farkettim bir bakabilir misiniz
örneğin 5011 . satırda yer alan parça adından "Revival" yazdım ancak makro çalışınca cevap bulamadı

 

[modoste]

en son gönderdiğiniz dosyada yine "Revival" yazdım ama 5011. satırda bu metin var ama makro bulmuyo bakabilirmisiniz

 

[modoste]

makronun içinde koda baktığımda b65536 yazıyodu orayı L diye değiştirince oldu sanki hocam
For i = 5 To Range("b65536").End(xlUp).Row ilk hali bu idi burdaki b65536 yi L65536 yapınca düzeldi.

 

[muygun]

Düzeldi ise sorun yok. (Ama bana Türkçe karakter sorunu gibi geldi)
Makro biraz uzadı ama Türkçe karakter sorunu bu şekilde aşılabilir.
Deneyin.
İyi çalışmalar.

NOt: 4. mesaj ekinde Döngü L sütununa göre düzenlendi.

 

[modoste]

çok teşekkür ederim sayın Muygun hocam {2008 yılında sizi kantar fiş dökümleri ile çok yormuştum. kamyon plaka tonaj tarzı birçok sorumda )

 

[muygun]

Bu sefer yorulmadım.
(çünkü "bu sorunun başka çözüm yolu var mı?" diye sormadınız.)

 

[Erdem Akdemir]

Alternatif olsun.

Sub mliste()

On Error Resume Next

Range("p5:p" & Rows.Count).ClearContents

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""


sorgu = "select f11 from [Track$] where f11 like  '%" & Range("p4") & "%' "
Set rs = con.Execute(sorgu)
Range("p5").CopyFromRecordset rs

End Sub