Veri Doğrulama ve Filtre Beraber çalışsın..

[alptun20]

Arkadaşlar Sayfa2 deki Veri Doğrulamada örneğin 2009 yılını seçtiğimde, Sayfa 1 deki filtrede de 2009 un seçilmesini istiyorum. Yardımlarınız için teşekkürler...

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets("Sayfa1").Range("A1").AutoFilter field:=1, Criteria1:=Target.Value
End Sub

 

[alptun20]

Evren Abi verdiğin kodu yan hücrelerede uygulamaya çalıştım ancak başaramadım. Yardım edersen sevinirim. Saygılarımla....

 

[alptun20]

Acil yardımları bekliyorum, herkese hayırlı geceler..

 

[alptun20]

Evren Abi sitede olduğunu görünce tekrar yazayım dedim. Verdiğin makroyu yan hücrelere uygulayayamadım. Yardımcı olursan sevinirim. Saygılarımla...

 

[Orion1]

Evren Abi sitede olduğunu görünce tekrar yazayım dedim. Verdiğin makroyu yan hücrelere uygulayayamadım. Yardımcı olursan sevinirim. Saygılarımla...

Örnek dosya , yollayınız.Bu gibi durumlarda cevap alamıyorsanız hemen bir tane örnek dosya yolayıp üzerinde açıklama yapınız.Bu her zaman işe yarra.Unutmayın.Yan hücre diyorsunuz ama yan hücre neresidir.yan hücrenin yanıda varmıdır.Sorgulama yan hücredemi yapılacak.Bunlar belirsiz.Bunları sorunuzda açıklammışsınız.Belirsiz olan sorulara kimse girmek istemiyor.Bende istemiyorum.Ama bazende böyle açıklama yapıyorum.Sonrada bana soru soranlar kızıyorlar.Aslında var ya hiç açıklama bende yapmayacam bakıp gidicem.Millettle niye dalaşayım.Ama duramıyorum işte yinede.

 

[alptun20]

Hemen ekledim abi. Cevabını sabırsızlıkla bekliyorum

 

[Orion1]

Otomatik filtrede en fazla 2 koşul yapabiliyorsunuz excel 2003te.
Bu yüzden gelişmiş filtreyi uyguladım kodlarda.
dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:C2]) Is Nothing Then Exit Sub
On Error Resume Next
With Sheets("Sayfa1")
    '.Select
    .ShowAllData
    'Sheets("Sayfa2").Select
    .Range("E2:G2").Value = Range("A2:C2").Value
    .Range("A1:C" & .Cells(65536, "A").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=.Range("E1:G2"), Unique:=False
End With
End Sub