Excelde Arama Motoru Yapılabilir mi? Yardımınızı Bekliyorum

[kaanozcekici]

ArkadaŞlar DÖkÜmana Bİr Arama Motoru Koymak İstİyorum KoyduĞum Arama Motoruna ÖrneĞİn "tÜberkÜloz" Yazilacak Ve Yan Tarafinda Da Bulunanlar Siralanacak.. Bu MÜmkÜn MÜdÜr Yardiminiz İÇİn TeŞekkÜr

Dosya Ekte İncelemenİz Rİcasi İle..

 

[hurkanpisirici]

yanıt

umarum yardıumcı olur

 

[kaanozcekici]

umarum yardıumcı olur

Teşekkür ederim ama bu makro güvenlik hatası verdi ne yapmalıyım?

 

[hurkanpisirici]

Teşekkür ederim ama bu makro güvenlik hatası verdi ne yapmalıyım?

araçlar seçenekler makro güvenlik derecesini ortaya getirin dosyayı baştan açın ve sorununuz bitsin

 

[kaanozcekici]

araçlar seçenekler makro güvenlik derecesini ortaya getirin dosyayı baştan açın ve sorununuz bitsin

Sevgili hrknp,

Peki öyle yaptığımda başka bir bilgisayara kopyalarsam gene aynı hatayı verirmi

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ara()
[m2:m500].ClearContents
If [c2] = "" Then
MsgBox "Önce aranılacak veriyi girmelisiniz."
Exit Sub
End If
For Each bul In Range("a10:a500")
alan = UCase(Replace(Replace(bul, "ı", "I"), "i", "İ"))
veri = UCase(Replace(Replace([c2], "ı", "I"), "i", "İ"))
If alan Like "*" & veri & "*" Then
bul.Copy
say = WorksheetFunction.CountA([m1:m65536])
Range("m" & say + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[kaanozcekici]

Çok Teşekkür ederim ama bunu uyarı veriyor ya makro ile ilgili bakrosuz yapma şansımız olurmu

 

[emrexcel123]

formül şekli ile mi istiyorsun ?

 

[kaanozcekici]

Çok Teşekkür ederim ama bunu uyarı veriyor ya makro ile ilgili bakrosuz yapma şansımız olurmu

Birde acemi olduğum için soruyorum aslında eklediğim dosyadaki aranacak veriler çok çok daha fazla yaklaşık 300 katı falan o zaman makroda değişiklik yapmam gerekli mi?

 

[kaanozcekici]

formül şekli ile mi istiyorsun ?

Formül olabilir mümkün mü ki?

 

[hknhkn42]

dosyayı indiremiyorum... ilgilenirmisiniz?

 

[1Al2Ver]

Merhaba,

Sub ara()
[m2:m500].ClearContents
If [c2] = "" Then
MsgBox "Önce aranılacak veriyi girmelisiniz."
Exit Sub
End If
For Each bul In Range("a10:a500")
alan = UCase(Replace(Replace(bul, "ı", "I"), "i", "İ"))
veri = UCase(Replace(Replace([c2], "ı", "I"), "i", "İ"))
If alan Like "*" & veri & "*" Then
bul.Copy
say = WorksheetFunction.CountA([m1:m65536])
Range("m" & say + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

Kod'u sayfa1'de Alt+F11 ile açtığınız bölüme kopyalayın

Sayfaya, Denetim Araç Çubuğu aracılığla bir komut düğmesi(butonu) atayın (çizin) ve bu butona makroyu atayın (üzerine sağ klik),

A10:A500 aralığında veriler olacak

C2'ye aranılacak veri girilecek

Sonuçlar M1:M500 arasına her tıklamada alt alta yazılacak

 

[Erhan Üstünel]

dosyalar silinmiş

 

[excel_198]

Arkadaşlar excelde arama yaptırmak istiyorum. Ama yapacagım işlem söyle bir google gibi kullanıcı arayacagı seyin adı veya numarasını girecek excelde diğer sayfalarda olan bu bilgileri alıp icmal tablosuna yerleştirmesi lazım düşeyara formülü bisey yapmaya calıstım ancak istediğim böyle bişey değil sanırım makro ve vba gibi bilgilere ihtiyacım var yardımcı olursanız çok sevinirim

 

[excel_198]

lütfen yardım

1. Arkadaşlar excelde arama yaptırmak istiyorum. Ama yapacagım işlem söyle bir google gibi kullanıcı arayacagı seyin adı veya numarasını girecek excelde diğer sayfalarda olan bu bilgileri alıp icmal tablosuna yerleştirmesi lazım düşeyara formülü bisey yapmaya calıstım ancak istediğim böyle bişey değil sanırım makro ve vba gibi bilgilere ihtiyacım var yardımcı olursanız çok sevinirim

 

[yiyce]

teşekkürler çok işime yaradı

 

[nkvk89]

teşekler

yalnız ben dosya indirmeye çalışıyorum tekrar üye giriş paneline yönlendşrşlşyorum ...!

 

[halit3]

aşağıdaki linkdeki dosyaya bir bakınız.
http://www.excel.web.tr/showthread.php?p=457941#post457941

 

[yakamoz0025]

linkler kırık çalışmıyor

 

[yakamoz0025]

arkadaşlar benim aradığım exelde veya herhangi bi programda olabilir isim soyisim doğum tarihi vs ekleyebileceğim verilerin ARAMA MOTORUNDAN sorguladğımda (TC KİMLİK) numarası ile kişinin bilgilerine ulaşabileceğim bi program varsa acilll tşkk ederim şimdiden....