Arama İkonu Koymak İstiyorum..

[avcar]

Merhaba Arkadaşlar. Sorum Söyle,

Diyelim 60 sayfalık bir Çalışma Kitabınız var ve her sayfası tıka basa veri dolu. Bu Çalışma Kitabının birinci sayfasında bir yere ara ikonu koyalım ve bir hücreye bir kelime yazdığımızda ara ikonunu tıkladığında otomatik olarak o sayfaya gitsin veya yönlendirsin. mümkünmü CTRL+F Yİ KASTETMİYORUM. BİLGİNİZ OLSUN ORADAN YAPILABİLİYOR. Aşağıda Örneği Mevcut Yardımcı Olursanız Sevinirim.. Hepimizin İşine Yarayacaktır bu

 

[avcar]

Ve Bu Bana Çok Lazım.. Ve Acil.

Arkadaşlar, Yardımlarınızı Bekliyorum.

 

[redheat]

walla süper olur öyle bişiii banada lazım

 

[Levent Menteşoğlu]

Bununla ilgili güzel bir eklenti hazırlanabilir. Müsait olduğum bir zamanda bir eklenti hazırlarım.

 

[avcar]

walla süper olur öyle bişiii banada lazım

Ya Aslında Ben bunu 2 sene Önce Bir Makro Yardımı İle Yaptıydım emme unuttum Ben Size Bir Örnek Hazırlayayım. Gndereyim Sanırım Daha İyi Olar.

 

[avcar]

Örnek

Bknz Örnek.

 

[avcar]

Evet Varmı Arttıran..

Arkadaşlar Evet Yokmu bunu Yapabilen, Gaz Vereyim Azıcıkın. Bu Hepimize Lazım Olabilir. Uğraşıyorum ama Olmuyor. Bilen Varsa Bekliyorum. Sağolun.

 

[Kemal Demir]

Merhaba,

Üstatların varlıgında ekleyeceğim ornek biraz basit kalacak ama başlangıc olması açısında dosya eklıyorum.Geliştirilmiş hali muhakkak olacaktır.
Cunku veri birden fazla ise diğer verileri bulmuyor.
Eklediğim Dosyada Tum Sheetlerde ara ve Combobox'tan istenilen sheet'te arama yapılabiliyor.Yalnız textbox'a aranıcak verinin girilmesi gerekmektedir.

Umarım en azından fikir verebilir.

 

[yaşar1]

arkadaşlar bu mevzu ile uğraşmaktan gözlerim bozuldu. ama başaramadım. bi el uzatsanız.:yardim:

 

[Kemal Demir]

avcar,

Dosyanızı incelemeden kucuk bir çalışma paylaştım.Ama zannedersem istediğnizden biraz farklı.Ama sizin istediğiniz calısma yapılması daha kolay gibi gorunuyor isteğinizi biraz daha açıkca belirtirsenız yardımcı olunabilir dusuncesindeyim.

 

[Kemal Demir]

Sn.avcar,
Ek'teki Örneği İnceleyiniz.

Size yol Gösterecektir.

 

[Mertkan]

bu sayfayı sık kullananlara ekliyorum
güzel çalışmalar olacagına inanıyorum

 

[avcar]

iLGİNİZE TEŞEKKÜRLER

Arkadaşlar İlginiz İçin Gerçekten Teşekkürler. Bu Çalışmayı Başardığımızda Herkez İçin Faydalı Birşey Yapmış Olacağız. Ayrıntılı Yazmam İstenmiş Belirtiyorum.


Gönderdiğin Örnekte arama hücresine RR102 yazan yere bir parçanın kod numarasını yazıp ara ikonunu tıkladığımda bana RR102 nin yazdığı sayfayı ve satırı sütun u bulsun. belli başlı kodların haricinde aynı numaradan başka yok zaten incelediğinizde göreceksiniz. RR102 den tüm kitapta bir tane vardır RR ile başlayan tüm parçalardan 1 tane vardır yani 1 tane kod numarası vardır. bilmem bu işinize yararmı ? yani Excel Çalışma Kitabını İçine bir arama motoru koymak gibi bir şey bu. İnşallah Anlatabilmişimdir Teşekkür Ederim.

 

[avcar]

Sn Rakkas

avcar,

Dosyanızı incelemeden kucuk bir çalışma paylaştım.Ama zannedersem istediğnizden biraz farklı.Ama sizin istediğiniz calısma yapılması daha kolay gibi gorunuyor isteğinizi biraz daha açıkca belirtirsenız yardımcı olunabilir dusuncesindeyim.

Sn. Rakkas İlginize Teşekkür Ederim.

Gönderdiğiniz Örneği İnceledim. Buton var ok ama butonun üstündeki hücrenin üzerine bir rakam yazıldığında butona tıklayıp arama yapılmasını istiyorum. yani böyle bir şey olabiliyormu. demek istiyorum ctrl+f nin hücre üzerinde olduğunu düşünelim çalışma kitabı içinde bir arama motoru gibi. Teşekkürler.

 

[ileriexcel]

tum sayfalarda veri arama

'tum sayfalarda veri arama
Sub FindItAll()
Dim oSheet As Object
Dim Firstcell As Range
Dim NextCell As Range
Dim WhatToFind As Variant
WhatToFind = Application.InputBox("What are you looking for ?", "Search", , 100, 100, , , 2)
If WhatToFind <> "" And Not WhatToFind = False Then
For Each oSheet In ActiveWorkbook.Worksheets
oSheet.Activate
oSheet.[a1].Activate
Set Firstcell = Cells.Find(What:=WhatToFind, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not Firstcell Is Nothing Then
Firstcell.Activate
MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & Firstcell.Address)
On Error Resume Next
While (Not NextCell Is Nothing) And (Not NextCell.Address = Firstcell.Address)
Set NextCell = Cells.FindNext(After:=ActiveCell)
If Not NextCell.Address = Firstcell.Address Then
NextCell.Activate
MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & NextCell.Address)
End If
Wend
End If
Set NextCell = Nothing
Set Firstcell = Nothing
Next oSheet
End If
End Sub

 

[Kemal Demir]

İyi akşamlar,

Ek'teki Örneğe bakınız.İnceleyiniz.Umarım bu sefer işinizi görür.

 

[avcar]

Sn Rakkas

Merhaba Rakkas İstediğim ASlında Tam Olarak budur. Ancak güvenlik uyarısı veriyor gönderdiğin örneği çalıştıramadım çalışmıyor. Ne Yapmam Lazım. birde bunun formülünü bana söylerseniz bunu ben bir kaç yerde daha kullanıcam da Teşekkürler.

 

[avcar]

Selam

Ya birde ben bu şeylerden anlamadım nasıl yapoacağımı bilmiyorum ileri excel den gelmiş ama nasıl uygulama yapoabileceğimi bilmiyorum kafam karıştı iyicene yaa. Arkadaşlar. Ne Yapıcaz.

 

[Kemal Demir]

Merhaba Rakkas İstediğim ASlında Tam Olarak budur. Ancak güvenlik uyarısı veriyor gönderdiğin örneği çalıştıramadım çalışmıyor. Ne Yapmam Lazım. birde bunun formülünü bana söylerseniz bunu ben bir kaç yerde daha kullanıcam da Teşekkürler.

Güvenlik Uyarısı?

 

[avcar]

Sn Rakkas

G&#252;venlik Uyar&#305;s&#305;?

Merhaba

G&#252;venlik uyar&#305;s&#305; Benim Makro&#305; Ayarlar&#305;mdanm&#305;&#351; onu hallettim sa&#287;ol. Rakkas Ellerine Sa&#287;l&#305;k &#304;stedi&#287;im tam anlam&#305;yla budur. ancak m&#252;mk&#252;nse fazla masrafl&#305; olmazsam bir iki r&#252;tu&#351; laz&#305;m. Yard&#305;mc&#305; Olabilermisen.