bul getir veya farklı formül

[celofb]

Merhaba Arkadaşlar,
Yaklaşık 11000 satırlı bir listem var ve ek excel dosyasında yapmak istediğimi açıklamaya çalıştım. Bul getir formülü veya faklı bir formül kurmak istiyorum.Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[rabbace]

Merhaba Arkadaşlar,
Yaklaşık 11000 satırlı bir listem var ve ek excel dosyasında yapmak istediğimi açıklamaya çalıştım. Bul getir formülü veya faklı bir formül kurmak istiyorum.Yardımcı olacak arkadaşlara şimdiden teşekkürler.

Dosyanızı inceliyorum, bu haliyle çözüm bulursam yazacağım.

Fakat aklıma İdris Serdar beyin yaptığı bir çalışma geldi, inceleyin işinize yarayacaktır.

https://www.excel.web.tr/threads/google-gibi-arama.112130/

 

[çıtır]

Çözümlenmiş dosyanız.

 

[rabbace]

Çözümlenmiş dosyanız.

Merhaba,

Çok güzel bir çözüm olmuş, öğrenmek adına işlevleri açıklayabilir misiniz?

 

[çıtır]

Kısaca açıklamak gerekirse aranan kelimenin geçtiği satırları tesbit ederek.Küçükden büyüğe doğru sıralayıp indisle ilgili satırların getirilmesi mantığına dayanıyor.Bul fonksiyonu kelime hücrede var ise sayı döndürüyor.Sayı olan satırlarda tesbit toplama fonsiyonu ile tespit edilip indisle ilgili satırlar çekilyor.Umarım anlatabilmişimdir.Formülü parçalara ayırarak daha iyi anlayabilirsiniz.Kolay gelsin.

 

[celofb]

Örnek rar excel dosyasında kolon sayısını arttırtığımızda macroda hangi değişiklikleri yapmam gerekli ?

 

[çıtır]

Örnek rar excel dosyasında kolon sayısını arttırtığımızda macroda hangi değişiklikleri yapmam gerekli ?

12000 satır yazanlar artırılmalı, ançak bilgisayarı kasabilir.11000 istemiştiniz.12000 ayarlamıştım.

 

[Erdem Akdemir]

Merhaba,

Formüller bilgisayarda kasmalara sebep olacaktır.Makro ile çözüm aşağıdaki gibidir.

Sub getir()

Range("L2:Q" & 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 f3,f4,f5,f6,f7,f8 from[sayfa1$] where f4 like '%" & Range("K1") & "%' "
Set rs = con.Execute(sorgu)

Range("L2").CopyFromRecordset rs

End Sub

 

[celofb]

Sanırım yanlış anlattım ( veri ve Arama kısmında A dan başlayıp E de bitiyor ) E değilde M e kadar demek istemiştim.

 

[Erdem Akdemir]

Sanırım yanlış anlattım ( veri ve Arama kısmında A dan başlayıp E de bitiyor ) E değilde M e kadar demek istemiştim.

Eklediğiniz dosya ile istediğiniz farklı.