Bir hücreye tıklayınca farklı excel sayfasındaki eşleşen satırı gösterme

[excel_ist]

Barajlar adlı excel dosyamda barajın adına tıklayınca ihale isimli excel dosyam açılacak. Ancak hangi baraja tıklamışsam sadece o baraja ait bilgileri içeren satırı bana göstersin istiyorum. yani açılırken filtreleme yapsın. bunu indis ile denedim fakat işin içinden çıkamadım.

baraj ismine tıklıcam ve o baraja ait ihale bilgilerini tek satırda bana getirecek.:???:

Not: eğer karşılaştırma bir hücre ile illa gerekli ise proje ihale bilgisi sutunu ile yapılabilir(boş hücreyi göz ardı edebilriz). ama öncelik tıklayınca barajın ismine göre bulabilmesi. Çünkü barajlarvegolet dosyasına extradan bi sütun açıp onları tek tek doldurmamız gerekecek. ama dediğim gibi olması gerekli ise bu sutun verileri de girilir.

Şimdiden Teşekkürler

 

[Murat OSMA]

Sonuçta almak istediğiniz nedir onu net bir şekilde anlamadım ? :dusun:

 

[excel_ist]

Sonuçta almak istediğiniz nedir onu net bir şekilde anlamadım ? :dusun:

Örnek:
barajvegolet dosyasındaki "Bayat Derbent" yazılı hücreye(D3) tıkladığımda ihale dosyasındaki "Afyonkarahisar Bayat Derbent Göletisulaması" yazılı satırın tamamının :yardim: (sanki filtreleme yapılmış gibi)(sadece o satır ama ihale dosyasındaki diğer satırlar olmayacak) gösterilmesi.

Aşağıda ihale_istenen.xlsx dosyasında yapmaya çalıştığım hali var. bir inceleyin isterseniz. ilgili baraj adına tıklayınca ihale_istenen gibi sonuç gösterecek :yardim:

 

[excel_ist]

acaba yardımcı olabilecek kimse yok mu?

 

[Murat OSMA]

Sayfanın kod kısmına şu kodları yapıştırıp deneyiniz;

Option Compare Text
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Rky As Workbook, hedef
    If Target.Column <> 4 Then Exit Sub
    hedef = VBA.StrConv(Replace(Replace(Target.Value, _
    Chr(10), " "), "i", "ı"), vbProperCase)
    Set Rky = Workbooks.Open(ThisWorkbook.Path & "\ihale.xlsx")
    ActiveSheet.Range("$A$2:$P$" & _
    Range("A65536").End(3).Row).AutoFilter Field:=3, Criteria1:="*" & hedef & "*"
End Sub

 

[Emir Hüseyin Çoban]

. . .

A sütununda seçim yapıp, Çalıştır butonunu tıklayınız.

. . .