Filtreleme sonrası açılır liste yaratmak

[bdmaestro]

Ödemetanim sayfasında 3 çeşit seçenek var...ÇEK,SENET,BORÇ
Ödemeform sayfasında borç şeklinin seçimine göre ödemetanim sayfasındaki B sütununu açılır listeye getirmek istiyorum...Nasıl yapabilirim?

 

[bdmaestro]

=KAYDIR(odemetanim!$B$7;(KAÇINCI(odemeform!C13;odemetanim!E7:E50000;0))-1;0;(KAÇINCI(odemeform!C13;odemetanim!E7:E50000;1)-(KAÇINCI(odemeform!C13;odemetanim!E7:E50000;0)-1));1)

bu formülü sayfa isimlei ile tanımladığımda hata alıyorum...ama ödeme tanım sayfasında yaptığımda çalışıyor..nerde hata yapıyorum,kullanımda mı problem var yazmada mı?

 

[hamitcan]

Private Sub Worksheet_Activate()
Sayfa8.Range("b7:b" & [b65536].End(3).Row).Copy Sayfa1.[a1]
Names.Add Name:="TANIM", RefersTo:="=SAYFA1!$a$1:$A$" & Sayfa1.[A65536].End(3).Row
End Sub

 

[bdmaestro]

=KAYDIR(odemetanim!$B$7;(KAÇINCI(odemetanim!$Q$1;odemetanim!$E$7:$E$50000;0))-1;0;(KAÇINCI(odemetanim!$Q$1;odemetanim!$E$7:$E$50000;1)-(KAÇINCI(odemetanim!$Q$1;odemetanim!$E$7:$E$50000;0)-1));1)


Ben böyle çözdüm problemi ama biraz ezbere oldu......tek sayfaya başvuru yapıp o alanı tanımlama imkanı var ama değişik sayfalardan veri alıp alan tanımlayamıyorsun sanırım???

 

[bdmaestro]

Hamitcan ;

Ben yaptığın dosyayı indirdim ama ödeme sayfası c13 hücresindeki açılır liste c12 deki seçime göre şekillensin di istediğim... senin gönderdiğin dosyada bu olmuyor?

 

[hamitcan]

Böyle deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$12" Then Exit Sub
    Sayfa8.Range("$A$6:$O$500").AutoFilter Field:=5, Criteria1:=[c12]
    Sayfa8.Range("b7:b" & [b65536].End(3).Row).Copy Sayfa1.[a1]
    Names.Add Name:="TANIM", RefersTo:="=SAYFA1!$a$1:$A$" & Sayfa1.[A65536].End(3).Row
End Sub