Soru textbox1 e yazdığım sayıyı tüm sekmelerde arayacak

[zulfuernek]

textbox 1 e yazdığım sayıyı yaklaşık 15 tane sekme içerisinde arayacak;

hangi sekmelerde o sayı varsa listbox1 de alt alta sıralayacak

mesela . girdiler sekmesinde kaydı varsa
"girdiler listesinde kaydı mevcut" diye yazacak. yani hangi sayfalarda var ise listboxta alt alta sıralamasını istiyorum. kayı bir sayfada birden fazla olabilir fakat o sayfa

 

[zulfuernek]

Veya şöylede olabilir. Listboxta değilde labelde virgül bırakarak hangi sheetlerde varsa onları yanyana yazsın. Araya virgül bırakarak. Daha sağlıklı olacaktır.

 

[Orion1]

Hangi sütun aralığında arayacak?

 

[zulfuernek]

@Orion1 hocam her sheette farklı sütunlarda yer alıyor atanacak sayı. Ctrl+f fonksiyonunda seçwnekler menüsünde bu çalışma kitabında ata desiğimiz şekilde arama yapıp mevcut durumu altında sıralaması gibi burdada tekstbox içinde veya listbox içeriainde göstermesini istiyoruz

 

[Orion1]

@Orion1 hocam her sheette farklı sütunlarda yer alıyor atanacak sayı. Ctrl+f fonksiyonunda seçwnekler menüsünde bu çalışma kitabında ata desiğimiz şekilde arama yapıp mevcut durumu altında sıralaması gibi burdada tekstbox içinde veya listbox içeriainde göstermesini istiyoruz

Farklı sütunlarda bulunabilir.1 kolonla 10 ncu kolon arası diyebilirsiniz.Hangi kolon aralığında?

 

[zulfuernek]

@Orion1 A sütunu ile AA sütunları arasında hocam

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, k As Range
ListBox1.Clear
For Each sh In Worksheets
    Set k = sh.Range("A:AA").Find(CDbl(TextBox1.Value), , xlValues, xlWhole)
    If Not k Is Nothing Then ListBox1.AddItem sh.Name
Next
End Sub

 

[zulfuernek]

@Orion1 hocam emeğine sağlık çok teşekkür ederim. ancak şimdi bir şey dikkatimi çekti. bu da ister istemez çeşitli bilgi yanlışlığına sebebiyet vermekte. bu bilgileri tüm sheetlerden çekiyor fakat bu bilgiyi çekerken sayfa istisnası yapabilirmiyiz. yani YAZDIR ve KAYDET sekmelerini hariç tutsun bu sayfalarda aramasın. bende ona göre kodlamada sayfa ekleyip düzenleyebilirim. teşekkür ederim.

 

[Orion1]

@Orion1 hocam emeğine sağlık çok teşekkür ederim. ancak şimdi bir şey dikkatimi çekti. bu da ister istemez çeşitli bilgi yanlışlığına sebebiyet vermekte. bu bilgileri tüm sheetlerden çekiyor fakat bu bilgiyi çekerken sayfa istisnası yapabilirmiyiz. yani YAZDIR ve KAYDET sekmelerini hariç tutsun bu sayfalarda aramasın. bende ona göre kodlamada sayfa ekleyip düzenleyebilirim. teşekkür ederim.

Buyurun.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, k As Range
ListBox1.Clear
For Each sh In Worksheets
    If sh.Name <> "KAYDET" And sh.Name <> "YAZDIR" Then
        Set k = sh.Range("A:AA").Find(CDbl(TextBox1.Value), , xlValues, xlWhole)
        If Not k Is Nothing Then ListBox1.AddItem sh.Name
    End If
Next
End Sub