Düşeyara bütün sayfalarda arama yaparmı

[bydll]

Arkadaşlar elimde bir tablo var. Yüzlerce sayfadan oluşuyor. Ve bu excelin en başındaki sayfada diğer tablolardan çekilmiş veriler olucak. Düşeyara ile yaptığım zaman sayfa isimlerini formülün içine tektek yazmam gerekiyor. Bütün sayfalarda düşey ara diye birşey varmı yada makro ve benzeri bişeyle yapabilirmiyim.

Örn:
Bütün sayfalarda isim,soyisim,arac,plaka olsun. Bu arada sayfa isimleri plaka.
Ben ilk sayfadaki 1. sütuna mercedes yazınca yanındaki sütuna, bütün sayfaları arayıp mercedes marka arabası olan bir isim gelsin. Mercedes marka arabası olan bi kaç kişi olabilir ama bana herhangi birtanesini getirmesi yeterli.

Yardımlarınız için teşekkürler.

 

[Ali]

Sayfa sıralı ise Düşeyara ilede olur,Kullanıcı Tanımlı fonksiyon ilede olabilir. Siz bir örnek dosya gönderirseniz daha sağlıklı cevap verilebilir.

 

[Orion1]

Makro ile olabilir tabii.KTF de yapılabilir.Yine formül şeklinde kullanabilirsiniz.
Örnek bir dosya yollarsanız ilgilenen olacaktır.:COOL:

 

[uzmanamele]

merhaba
aşağıdaki linkte syn yurttas'ın DÜSEYARASAYFALAR adında ktf si olacak, inceleyiniz

http://www.excel.web.tr/f122/kullan-c-tan-ml-fonksiyon-ornekleri-t49919.html

'kodları yazan: Yurttaş
Function DUSEYARASAYFALAR(Look_Value As Variant, Tble_Array As Range, _
                          Col_num As Integer, Optional Range_look As Boolean)
Dim wSheet As Worksheet
Dim vFound

On Error Resume Next

    For Each wSheet In ActiveWorkbook.Worksheets
    With wSheet
    Set Tble_Array = .Range(Tble_Array.Address)
            vFound = WorksheetFunction.VLookup _
            (Look_Value, Tble_Array, _
            Col_num, Range_look)
    End With
    If Not IsEmpty(vFound) Then Exit For
    Next wSheet

    Set Tble_Array = Nothing
    DUSEYARASAYFALAR = vFound

End Function

ek dosyayı inceleyiniz.

 

[Merhum İdris SERDAR]

Arkadaşlar elimde bir tablo var. Yüzlerce sayfadan oluşuyor. Ve bu excelin en başındaki sayfada diğer tablolardan çekilmiş veriler olucak. Düşeyara ile yaptığım zaman sayfa isimlerini formülün içine tektek yazmam gerekiyor. Bütün sayfalarda düşey ara diye birşey varmı yada makro ve benzeri bişeyle yapabilirmiyim.

Örn:
Bütün sayfalarda isim,soyisim,arac,plaka olsun. Bu arada sayfa isimleri plaka.
Ben ilk sayfadaki 1. sütuna mercedes yazınca yanındaki sütuna, bütün sayfaları arayıp mercedes marka arabası olan bir isim gelsin. Mercedes marka arabası olan bi kaç kişi olabilir ama bana herhangi birtanesini getirmesi yeterli.

Yardımlarınız için teşekkürler.

Bir de buradaki 2. dosyaya bakın.

http://www.excel.web.tr/f60/vlookup-duseyara-uygulamasi-t17226.html


.

 

[tatar7]

sayın uzmanamale

merhaba
aşağıdaki linkte syn yurttas'ın DÜSEYARASAYFALAR adında ktf si olacak, inceleyiniz

http://www.excel.web.tr/f122/kullan-c-tan-ml-fonksiyon-ornekleri-t49919.html

'kodları yazan: Yurttaş
Function DUSEYARASAYFALAR(Look_Value As Variant, Tble_Array As Range, _
                          Col_num As Integer, Optional Range_look As Boolean)
Dim wSheet As Worksheet
Dim vFound

On Error Resume Next

    For Each wSheet In ActiveWorkbook.Worksheets
    With wSheet
    Set Tble_Array = .Range(Tble_Array.Address)
            vFound = WorksheetFunction.VLookup _
            (Look_Value, Tble_Array, _
            Col_num, Range_look)
    End With
    If Not IsEmpty(vFound) Then Exit For
    Next wSheet

    Set Tble_Array = Nothing
    DUSEYARASAYFALAR = vFound

End Function

ek dosyayı inceleyiniz.

--------------------------------------------
çok güzel çalışma olmuş teşekkür ediyorum ancak;
kodu uyguladıımda kendisi dahil arıyor - örneğin 7.sayfada kontrol için bi isim listesi olsun, aramayı ilk 6 sayfadan değil 7. sayfa dahil arıyor ben mi yanlış uyguladım bilmiyorum ilgilenize teşekkür ediyorum