Excel Veri Arama veya Bulma ?

[sercanyasin]

Arkadaşlar sizden bir konu hakkında yardımlarınızı bekliyorum lütfen ?

Ekteki dosyada Firma bilgileri ve ürün gamını gösteren bir excel dosyası var .
Bu dosyada Yapmak istediğim aradığım ürünün hangi firmada olduğunu ve sıra numarasını bulmak ? Bununla ilgili sizden ricam olacak yardımlarınızı bekliyorumm

İyi Günler . .

 

[gülnar33]

merhabalar,

süz yaptığınızda netice alamadınız mı acaba

kolay gele

 

[tokerx22]

Dosyanız ekte

umarım yardımcı olmustur

 

[xp45s]

sn evren hocamın arabul çalışmasını dosyanıza göre uyarladım.Alternatif olarak belki buda işinize yarayabilir.

 

[sercanyasin]

Tşkler Arkadaşlar

Arkadaşlar istediğim sonuça çok yakın bir çalışma yapmışsınız ellerinize sağlık benim buradaki amacıma çok yakın tek bir şey var ben ürün çeşitlerini aradığımda örnek: spotlar kelimesini bulmuyor farklı kelimeler de denedim olmadı bunu nasıl sağlarız acaba

bu siteye yeni üye oldum çok iyi ve güvenirli bir site olduğu için herkeze tşklerimi iletiyorum

kolay gelsin . . .

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim k As Range, adr As String, x As Long, sh As Worksheet
ListBox1.Clear
Label1.Caption = ""
If TextBox1.Text = "" Then Exit Sub
Set sh = Sheets("Sayfa1")
Set k = sh.Range("E:IV").Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        ListBox1.AddItem
        ListBox1.List(x, 0) = sh.Cells(k.Row, "A").Value
        ListBox1.List(x, 1) = sh.Cells(k.Row, "B").Value
        x = x + 1
        Set k = sh.Range("E:IV").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
Label1.Caption = "Listelenen : " & Format(ListBox1.ListCount, "#,##0")
End If
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;200"
Label1.Caption = ""
TextBox1.Text = "spotlar"
End Sub

 

[sercanyasin]

Merhabalar

Arkaşlar Çok Teşekkürler . . .

Çok yardımcı oldunuz gördüğüm en iyi forum sitesi diyebilirim.

ama bunu nasıl yaptınız anlamış değilim hala

 

[sercanyasin]

bir sorum daha olacak

ben bu excel dosyasının en az olanını gönderdim ben bunu kopyaladığım zaman başka bir yerde çalışmayacaktır bunun sütün ve satırlarını genişletebilirmiyim bunu gösterirseniz sevineceğim

tşkler .

 

[Orion1]

ben bu excel dosyasının en az olanını gönderdim ben bunu kopyaladığım zaman başka bir yerde çalışmayacaktır bunun sütün ve satırlarını genişletebilirmiyim bunu gösterirseniz sevineceğim

tşkler .

Bunu başka bir excel dosyasında çalıştıracaksanız,Userformu bu dosyadan export edip sonrada çalıştıracağınız dosyaya import etmelisiniz.
Yalnız sayfa ismi değişikse Set sh = Sheets("Sayfa1") Burada sayfa1 yazan yere o sayfa ismini yazmalısınız.
Ayrıca listboxın kolon genişliklerini (sizin dosyanızda 2 kolondur.Siz sorunuzu öyle sordunuz bende öyle yaptım)
Aşağıdaki kodda kırmızı yazan yerlere istediğiniz genişiliğ yazarak ayarlayabilirsiniz.
Listboxın genişliğini userform üzerinden manuel genişletmeyi unutmayınız

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = [B][COLOR="Red"]"50;200"[/COLOR][/B]
Label1.Caption = ""
TextBox1.Text = "spotlar"
End Sub

 

[sercanyasin]

bir sorum daha olucaktı ?

ben bunu 2007 excelde nasıl çalıştırabilirim ?

 

[sercanyasin]

Arkadaşlar !!!

Bu dosyayı 2007 Excelde Nasıl Çalıştırabilirim ? ?

Bana yardımcı olursanız sevinirim. Tşkler.