bağımsız değişkene göre filitre uyguma

[faleziki]

ustalarım aradım bulamadım bende konuyu açmak ihtiyacı hissettim

dosya ekte
sorum şu
ben öğrencinin numarasını bir hücreye yazdığımda öğrenciye ait tüm sorumlu derslerin listelenmesini istiyorum

süzme ilemi veya filitreleme işleminde numarasını seçmem gerekiyor
ben ise boş sayfada öğrenci numarasını gireyim ve tüm dersleri süzülsün istiyorum

 

[Ali]

Sonuçlar sayfasındaki A2 hücresine öğrenci nosunu yazarak listelenmeyi kontrol ediniz.

 

[Orion1]

Buyurun dosyanız.Sorgu sayfasında b3 hücresine öğrenci numarasını yazınız.
Formüllerle yapıldı.
Ekli dosyayı inceleyiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim S1, S2 As Worksheet
Dim SUT, SON As Integer
Set S1 = Sheets("VERİ")
Set S2 = Sheets("RAPOR")
S2.[A1:I1000].Clear
For SUT = 7 To S1.Cells(65536, "B").End(3).Row
If S1.Cells(SUT, "B") = Val(TextBox1) Then
S1.Cells(SUT, "B").Select
S1.Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Copy
S2.[A1].PasteSpecial
SON = S2.Cells(65536, "A").End(3).Row
S2.Cells(SON, "A").EntireRow.Delete
End If
Next
S2.Select
Unload Me
End Sub

 

[faleziki]

ustalar büyüksünüz tam istediğim gibi olmuş hepsi ellerinize sağlık

 

[Orion1]

ustalar büyüksünüz tam istediğim gibi olmuş hepsi ellerinize sağlık

Rica ederim.
İyi çalışmalar.