Köprü ve makro

[svorm]

Merhaba,

Yaptığım köprünün arkasına makro bağlamak istiyorum.
Köprüdeki değere göre verinin diğer sayfada süzgü oluşturmasın ısağlamam lazım.

Şimdiden yardımlarınız için teşekkür ederim.

 

[Ömer]

Merhaba,

K4 hücresine yazarak alt satırlara kopyalayınız..

=EĞER(EHATALIYSA(KAÇINCI(SATIRSAY($K$4:K4);Sayfa1!$A:$A;0));"Seçim Bulunamadı";
KÖPRÜ("[[COLOR=red]kitap1[/COLOR].[COLOR=blue]xlsx[/COLOR]]Sayfa1!A"&KAÇINCI(SATIRSAY($K$4:K4);Sayfa1!$A:$A;0)&":P"&
KAÇINCI(SATIRSAY($K$4:K4);Sayfa1!$A:$A;0)+EĞERSAY(Sayfa1!$A:$A;
SATIRSAY($K$4:K4))-1;SATIRSAY($K$4:K4)&" Nolu Bölgeyi Seç"))

.

 

[svorm]

İlginiz için teşekkürler.

Fakat köprüye bastıktan sonra diğer sayfada filtreye köprüdeki bulunan değeri otomatik olarak seçtiremezmiyiz.

 

[Ömer]

Bu haliyle istediğiniz gibi seçim yapıyor, denemediniz mi?

.

 

[svorm]

Denemez olurmuyum, yalnız bunu çalıştırdığımda hücrede nereyi seçmesi gerektiğini söylüyor, ben ise direk filtrelemek istiyorum.

teşekkürler

 

[Ömer]

Filtreleme istiyorsanuz formülü silin. Aşağıdaki kodları GRUP sayfasının kod bölümüne kopyalayın. K4:K2004 arasında veri yazdığınız hücreye çift tıklarsanız istediğiniz olacaktır. Aralığı değiştirebilirsiniz..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Set S1 = Sheets("Sayfa1")
If Intersect(Target, [[COLOR=red]K4:K2004[/COLOR]]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
 
    S1.[A2].AutoFilter 1, Target
    MsgBox Target & " Nolu Bölge İçin Filtre Uygulandı"
    Target.Offset(1, 0).Select
 
End Sub

.

 

[svorm]

Sayın Ömer vermiş olduğunuz kod işimi tam olarak görüyor. Hatta süper.

Teşekkür ederim.

Peki köprü varken bunu yapabilme şansım var mı? (Yada Grup sayfasında en son seçilen hücrenin değerini nasıl seçtirebilirim)

 

[Ömer]

Peki köprü varken bunu yapabilme şansım var mı?

Yapılabilir, yalnız aşağıdaki sorunuzu anlayamadım.

Yada Grup sayfasında en son seçilen hücrenin değerini nasıl seçtirebilirim

.

 

[svorm]

Sayın ömer ilgliniz için gerçekten çok teşekkür ederim.

Sayfada köprü kalacak, köprüyü tıkladığın zaman o hücrenin değerini diğer sayfada filtreleme yapacak. yani köprüye bastığında mevcut hücredeki değer Aa ise diğer sayfada filtrede Aa yı arıyacak.

Aslında dediğim gibi yukarıda verdiğiniz kod ile işimi çözdüm.

 

[Ömer]

Bu şekilde deneyiniz..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set S1 = Sheets("Sayfa1")
If Intersect(Target, [K4:K2004]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
 
    S1.[A2].AutoFilter 1, Target
End Sub

.

 

[svorm]

Yardımlarınız için teşekkür ederim

 

[Phrasal]

Merhabalar
Dosyanın son halını buraya upload edersenız bızde faydalanırız

Tesekkurler