Link ile filtreleme

[unophoenix]

Arkadaşlar kolay gelsin. Şöyle bir sorum var eğer ekteki dosyayı incelerseniz. Şimdi dosyayı açtığınızda sheet teki isimlerden birine tıklandığında DELIVERY sheetine giderek Tıklanan isimdeki projeyi filtreleyerek açmasını istiyorum. Bu konuda yardımci olursanız sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sheet1 in kod sayfasına kopyalayarak deneyin. Proje adını seçince çalışacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Or Target = "" Then Exit Sub
[DELIVERY!b2:l65536].AutoFilter Field:=1, Criteria1:=UCase(Target)
Sheets("DELIVERY").Activate
End Sub

 

[unophoenix]

çok çok teşekkür ederim. harikasınız