Diğer sayfadan arama yapmak

[zuzucuk]

selam arkadaşlar daha öncede 1-2 başlık açmıştım fakat yeni başlık altında sormakla umarım hata yapmıyorumdur. Soruma gelince Ekte bulunan örnek çalışmada Sayfa1 deki E7 hücresine girdiğim sorgu ile Sayfa2 deki B ve C sütunlarında arama yaparak sonucu Sayfa1 deki E8 deki hücreye yazdırmak. Arama sonucunda ekteki örnektende anlaşılacağı üzere misal misal Vedat diye bir arama yaptığımda vedat yazılı olduğu hücrenin 1 gerisinde bulunan hücredeki değeri E8 hücresine sonuç olarak yazdırmak eğer vedat diye bir kayıt yok ise böyle bir kayıt yoktur şeklinde bir açıklama ile ikaz etmek. Umarım derdimi anlaşılır dilde yazabilmişimdir. Çalışmada illa bu şekilde olacak diye bir kadie yoktur mantık bu şekilde olacak sadece. Şimdiden ilgilenen arkadaşlara teşekkür ederim.

 

[Ali]

Forumdaki Düşeyara ile ilgili örnekleri inceleyiniz. Mantığını anlamakta size yardımcı olacaktır.

E8 hücrenize

=EĞER(EHATALIYSA(DÜŞEYARA(E7;Sayfa2!B2:C8;2;0));"Aranan kriter bulunamadı";DÜŞEYARA(E7;Sayfa2!B2:C8;2;0))

yazınız.

 

[Orion1]

Merhaba.
Sayın Ali bey cevabı vermiş ama Bende İndis ve kaçıncı formülü ile buldum.
Förmül aşağıda
=EĞER(EĞERSAY(Sayfa2!B2:B8;Sayfa1!E7)=0;"ARANAN KRİTER BULUNAMADI";İNDİS(Sayfa2!A2:E8;KAÇINCI(E7;Sayfa2!B2:B8;0);1))
Ayriyetten ekli dosyayı inceleyiniz.

 

[Necdet]

Bende Makro ile çözüm önerecektim, her ne kadar soruyu soran kişi benzer soruya verilen yanıtları dikkate almamış olsa da ...

Sayın Ali, sanırım sizin formülünüzde değişiklik yapmak gerek, gerekçek aranacak olan değer isim ya da rakam olmasına göre değişiyor

Aşağıdaki kodları ilgili sayfanın kod bölümüne ekleyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E7]) Is Nothing Then Exit Sub
Set s2 = Sheets("Sayfa2")
Buldum = 0
For i = 2 To s2.[A65536].End(3).Row
If [E7] = s2.Cells(i, 2) Or [E7] = s2.Cells(i, 3) Then
[E8] = s2.Cells(i, 1)
Buldum = 1
Exit For
End If
Next i
If Buldum <> 1 Then [E8] = "Bulamadım"
End Sub

Not : Sayfa2 de Raflar her hücrede yazılmalı




Fonksiyon ile çözüm :

=IF(ISERROR(IF(ISNUMBER(E7);INDEX(Sayfa2!A2:A8;MATCH(E7;Sayfa2!C2:C8;0));INDEX(Sayfa2!A2:A8;MATCH(E7;Sayfa2!B2:B8;0))));"Bulamadım";IF(ISNUMBER(E7);INDEX(Sayfa2!A2:A8;MATCH(E7;Sayfa2!C2:C8;0));INDEX(Sayfa2!A2:A8;MATCH(E7;Sayfa2!B2:B8;0))))

 

[kombo]

E8 hücresine

=EĞER(EHATALIYSA(DOLAYLI("sayfa2!"&"A"&KAÇINCI(E7;Sayfa2!B2:B8;0)+1));"Aranan Kriter Yok";DOLAYLI("sayfa2!"&"A"&KAÇINCI(E7;Sayfa2!B2:B8;0)+1))

Yazın

 

[N.Ziya Hiçdurmaz]

Sub test()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For Each bak In s2.Range("b2:b8")
If s1.Range("e7") = bak.Value Then
bak.Offset(0, -1).Copy
s1.Range("e7").Offset(1, 0).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[zuzucuk]

arkadaşlar hepinize çok teşekkür ederim sayın Necdet_Yesertener vermiş olduğu kodlar süper oldu ellerinize kollarınıza sağlık yalnız anlayamadığım arama yaparken aranan sayfada BARIŞ BODUR yazıyor misal direk BARIŞ BODUR diye arattığımda raf numarasını veriyor fakat sadece BARIŞ yada BODUR yazdığımda bulamıyor bu benden mi kaynaklanıyor yoksa olması gereken bumudur. Büyük küçük harf ayırımıda yapmakta.

cümleten iyi günler dilerim.