excel'de arama butonu oluşturma

[fk.1986]

herkese merhaba
elimde kalabalık bir cari listesi var ve ben müşterilerimi ctrl+f tuşlarıyla aramak zorumda kalıyorum. bunu excel'de bir arama butonu oluşturarak nasıl kolaylaştırabilirim.
şimdiden teşekkürler......

 

[Orion1]

Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/f48/arama-butonu-ara-bul-t44152.html

 

[fk.1986]

teşekkürler ama ufak bi problem var 06/11/2008 öncesi erilere ulaşamıyoruz malesef

 

[Orion1]

teşekkürler ama ufak bi problem var 06/11/2008 öncesi erilere ulaşamıyoruz malesef

Son mesajlarda bir arkadaş elindeki 2 dosyayı eklemişti ona bakınız.

 

[fk.1986]

pek tek bir hücre içerisine metin yazarak arama mükmünmüdür?

 

[fk.1986]

örnekte olduğu gibi yapmak istiyorum fakat kopyalamam bile mümkün olmuyor malesef.

 

[Orion1]

örnekte olduğu gibi yapmak istiyorum fakat kopyalamam bile mümkün olmuyor malesef.

textbox'a yazılanlamı arma yapacaksınız?
Hangi sayfada hangi sütun aranacak?

 

[fk.1986]

abi sadece örnekteki arama butonunun olduğu sayfada cari hesap isimleri ve borç-alacak durumları var. onların içinde arama yapmak istiyorum sadece.
mesela telefon geldi ve hesap durumu sorulduğunda ahmet yazıp bulmak

 

[Orion1]

abi sadece örnekteki arama butonunun olduğu sayfada cari hesap isimleri ve borç-alacak durumları var. onların içinde arama yapmak istiyorum sadece.
mesela telefon geldi ve hesap durumu sorulduğunda ahmet yazıp bulmak

O sayfada hiç bir başlık yok.Hangi sütunda olacak onu söyelyin hiç olmazsa bari.

 

[fk.1986]

umarım şimdi olmuştur
örnekteki gibi sizde 1. satırda var olan butona isim yazın göreceksiniz zaten.

 

[Orion1]

umarım şimdi olmuştur
örnekteki gibi sizde 1. satırda var olan butona isim yazın göreceksiniz zaten.

Dosya yok rar arşivin içinde.
Sorunuzla sanırım başka arkdaş ilgilinecektir.Size kolay gelsin.

 

[fk.1986]

kusura bakmayın vaktinizi aldım. hakkınızı helal edin.

 

[barisy]

Kodlar gizli farklı hücrelerde kullanma olanağı için kodlaraktif yaparmısınız teşekkürler

 

[celikmet]

selamlar forumunuzu nette dolaşırken buldum çok güzel ve başarılı şeyler paylaşıorsunuz tebrikler ve yeni kullanıcı olarak teşekkürler paylaşımlarınız için.Bende ekde sunduğum dosya için butonlu arama fonksiyonu eklemek istiyorum.Bu konuda yardımcı olursanız sevinirim

 

[Orion1]

Dosyanız ekte.
Belge noyu bütün sayfalarda arar.

Private Sub CommandButton1_Click()
Dim a As Long, adr As String, k As Range, myarr(), j As Byte, n As Integer
ReDim myarr(1 To 11, 1 To 1)
ListBox1.Clear
Label1.Caption = "Listelenen : 0 Adet"
If TextBox1.Text = "" Then
    MsgBox "Arama yapabilmek için lütfen bir değer giriniz!", vbCritical, "Uyarı"
    TextBox1.SetFocus
    Exit Sub
End If

For n = 2 To Worksheets.Count
    Set k = Sheets(n).Range("F:F").Find(TextBox1.Text, , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            a = a + 1
            ReDim Preserve myarr(1 To 11, 1 To a)
            For j = 1 To 10
                myarr(j, a) = Sheets(n).Cells(k.Row, j).Value
            Next j
            myarr(11, a) = Sheets(n).Name
            Set k = Sheets(n).Range("F:F").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
    adr = ""
    Set k = Nothing
Next n
If a > 0 Then
    ListBox1.Column = myarr
    Label1.Caption = ListBox1.ListCount
    Label1.Caption = "Listelenen : " & ListBox1.ListCount & " Adet"
End If

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 11
TextBox1.SetFocus
Label1.Caption = "Listelenen : 0 Adet"
End Sub

 

[CaNeR__16]

bu kodu nereye yazıcaz ne yapıpta yazıcaz

 

[samimice78]

banada lazımdı fakat gönderdiğiniz dosyada olmadı malesef

 

[omurkorkmaz]

benimde işime yaradı teşekkürler kodlar gayet açık

 

[sevcankonak]

arkadaşın işine yaradımı bilmiyorum ama benim işime çok yaradı allah razı olsun kardeşim senden

 

[cchatg]

atan atana

bir soru sorulmuş nasıl yaparım dıye hıc bır acıklama yok exceli açtık hı ne yapacak miillet onu söyleyin sırasıylada ogrenelım hazır kod gonderıyorsunuz