Filtreleme kodunda değişiklik yapma

[kemal turan]

Merhaba ustadlar,
Aşağıdaki kodumuz mevcut sahifemizin A2 hücresinden itibaren,
seçilen hücre değerine göre stok sahifesi b sutunundan filtreleme yapıp mevcut sahifenin B2 hücresinden itibaren aşağıya doğru sıralıyor.
İsteğim;
Mevcut sahifemizin a2 hücresinden değilde A20 hücresinden itibaren seçeceğimiz hücre bilgisinin filtrelemesini B20 hücresinden itibaren aşağıya doğru yapması.
Kısaca isteğim mevcut sahifenin üstten 20 satırına ihtiyacım var.
kodun üzerinde birşeyler yapmaya çalıştım.Başaramadım.
Yardımlarınızı bekliyorum.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
c = 0
If Not Intersect(Target, [a2:a10000]) Is Nothing Then
[b2:E65536].ClearContents
If Target = "" Then Exit Sub
For a = 2 To [STOK!a65536].End(3).Row
If Sheets("stok").Cells(a, "a") = Target Then
c = c + 1
If WorksheetFunction.CountIf([b:b], Sheets("stok").Cells(a, "b")) = 0 Then
Cells(c + 1, "b") = Sheets("stok").Cells(a, "b")
Range("E2").Select
End If
End If
Next
[b2:b65536].Sort Key1:=[b2], Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If

 

[Orion1]

ilgili yere aşağıdaki kırmızı kodu ekleyiniz.

End If
End If
[B][COLOR="Red"]if c+1 = 20 then exit for[/COLOR][/B]
next i

 

[kemal turan]

Sn.Orıon
Verdiğiniz kodu yanlış yere mi yapıştırdım ama olmadı.
Herhalde tam anlatamadım.
Örnek dosyaya bakabilirseniz sevinirim.

 

[Orion1]

kodunuz anlamadım.
Verieler nerden geliyor nerya yazlıyor.
Burada sorduğunuz soru ile dosyanızda yazdığınız şeyler farklı.
Anlayamadığm (soruyu) yapamadım.
Kolay gelsin.

 

[kemal turan]

Sn. Orıon kodlar hususunda pek bilgim olmadığı için anlayabileceğiniz tarzda isteğimi aktaramıyorum.
Kusura bakmayın.
Seçim sayfa1 A sutunundan yapılıyor,
seçilen hücre değerine göre veriler stok sahifesinin b sutunundan gelip sayfa1 b2 hücresinden itibaren aşağıya doğru sıralanıyor.
Eminim bu sizler için çok basit

 

[Orion1]

Ben anlayamım maalesef.,
Dilerim başka arkadaşlar yardımcı olurlar.
Kolay gelsin.

 

[kemal turan]

Dilerim başka bir arkadaşımız yardımcı olabilir.
Her şey için teşekkürler.
Selametle kalın.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Yapılan değişiklikler kırmızı renkli olanlardır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
c = 0
If Not Intersect(Target, [a[COLOR=Red]20[/COLOR]:a10000]) Is Nothing Then
[b[COLOR=Red]20[/COLOR]:E65536].ClearContents
If Target = "" Then Exit Sub
For a = 2 To [STOK!a65536].End(3).Row
If Sheets("stok").Cells(a, "a") = Target Then
c = c + 1
If WorksheetFunction.CountIf([b:b], Sheets("stok").Cells(a, "b")) = 0 Then
Cells(c + [COLOR=Red]19[/COLOR], "b") = Sheets("stok").Cells(a, "b")
Range("E2").Select
End If
End If
Next
[b[COLOR=Red]20[/COLOR]:b65536].Sort Key1:=[b[COLOR=Red]20[/COLOR]], Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub

 

[kemal turan]

Levent Bey,
Çok teşekkür ederim.
Cevabınız kadar, anlaşılmış olmak ta beni mutlu etti.
Bu forumdaki uzmanlarımızın hakkını nasıl öderiz bilmiyorum.
Aslında ben de aynı değişiklikleri yaptım.
Hatam A sutununa yazdığım veri biçimi verilerin geldiği stok sahifesi a sutunundakinden farklı olduğundan değer getirmemiş.
Allah razı olsun,Selametle kalın.