bir metini dosyalarda arama

[mbagcaci]

belirtilen dizinlerde (örneğin d:\deneme) içinde "ali gel" kelimelerinin geçtiği html dosyalarının isimlerini bulan bir makroya ihtiyacım var. yardımcı olursanız sevinirim.

 

[szaim]

Kod:

Sub Bul()
    Cells.Find(What:="Ali gel", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
End Sub

 

[mbagcaci]

szaim

soruyu biraz yanlış anladınız zannedersem. benim amacım belirli bir dizindeki html dosyalarda "ali gel" kelimelerini içerenlerin isimlerini bulan bir makro yazabilmek.
excel sayfası içinde "ali gel" kelimesinin yer aldığı hücreleri bulmak değil.
Genede teşekkür ederim.

 

[Haluk]

Merhaba;

*.htm uzantılı dosyalarda arama yapmak için bir arama motoru hazırladım.

Dosya ektedir.

 

[mbagcaci]

haluk bey ellerinize sağlık çok sağolun.
Ufak bir sorum daha olacak aramayı küçük büyük harfe duyarlı şekilde yapıyor. bunu küçük büyük harfe duyarlı olmayacak şekle ve ali* (yani ali kelimesini ararken aliden kelimesinide bulacak şekilde) aramasınıda yapacak şekile getirebilirmiyiz.
Çok teşekkürler.

 

[Haluk]

Merhaba,

Bu durumda yapılacak revizyonda Türkçe karakterlerde problem çıkabilirdi.

Bu nedenle, yukarıya eklediğim dosyayı revize ettim.

Sanırım, şimdi küçük-büyük harflerle aramada Türkçe karakterlerde de problem çıkmaz.

 

[mbagcaci]

Merhaba haluk bey:
arama motorunda bir hata var sanırım düzeltmede yardımcı olusanız sevinirim.
arama yapmak için seçtiğim klasörde 4 tane html dosyası var.
1. dosyada sadece kar
2. dosyada sadece KAR
3. dosyada sadece akar ali
4. dosyada sadece akara
yazıyor. ali kelimesini arattırdığımda gelen sonuç
1.html
1.html
2.html
2.html
3.html
3.html
4.html
4.html

 

[mbagcaci]

haluk bey yardım

 

[Haluk]

Haluk bey yardım

Bir süredir izinde olduğum için buralarda yoktum.

Yukarıdaki mesajımda yer alan güncellenmiş dosyayı indirdim ve denedim.

Aşağıdaki resimlerde de belirtildiği gibi, herhangibir sorun yok.

 

[hsayar]

sn haluk dosya maalesef tok ama bana bu işi xls uzantılı belgenin tüm sayfalarında yapacak olan kod lazım ... yardımcı olursanız sevinirim.