Filtreleme hakkında?

[ortamkaynak]

Öğrenci veri tabanında sıra no, öğrenci no, ad, soyad, D.tarihi, D.yeri, Bölüm ve harç alanları bulunmaktadır.

Sıra no, öğrenci no, alanlar sayı;

Ad, soyad,d.yeri alanları metin;

D.tarihi alanı tarih;

Cinsiyat alanı açılan kutu;

Harç alanı onay kutusu olacak şekilde düzenlenmelidir.

- Bu veritabanında harcını ödemeyen öğrencilerin listesi görüntülendiği,

- Öğrenci no'ya göre filtrelemenin yapıldığı butonlar olmalıdır.

NoT:Sıra no her zaman 1'den başlayıp sıralı bir şekilde görünmelidir.

ekteki dosyada koyu olarak belirttigim alanlara kadar gelinmiştir..Tam anlamıyla istedigim oldugu söyleenemez.. Harca göre filtreledigimde option box lar üst üste biniyor dolayısıyla karısıklıga yol acıyor hepsinde degil bir kısmında bunun sebepini ögrenmek istiyorum bir digeri de sıra numarasını nasıl her zaman 1 den baslatmam gerekiyor :redface:

İlginize teşekkürler şimdiden

 

[Ergün Güler]

Selam,

Tavsiyem, sayfa1'deki tüm optionbox'ları siliniz.
sayfanızın kod sayfasına

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

son = Range("L65536").End(3).Row

If Target.Count > 1 Then Exit Sub

If Intersect(Target, Range("L6:L" & son)) Is Nothing Then Exit Sub

If Target = "" Then Exit Sub

If Target = "YATIRILDI" Then
Target = "YATIRILMADI"
ElseIf Target = "YATIRILMADI" Then
Target = "YATIRILDI"
End If

End Sub

uygulayınız.

 

[ortamkaynak]

Selam,

Tavsiyem, sayfa1'deki tüm optionbox'ları siliniz.
sayfanızın kod sayfasına

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

son = Range("L65536").End(3).Row

If Target.Count > 1 Then Exit Sub

If Intersect(Target, Range("L6:L" & son)) Is Nothing Then Exit Sub

If Target = "" Then Exit Sub

If Target = "YATIRILDI" Then
Target = "YATIRILMADI"
ElseIf Target = "YATIRILMADI" Then
Target = "YATIRILDI"
End If

End Sub

uygulayınız.

Çok güzel oldu valla ama hocamız option kutu istiyor illa ona da bir çözüm bulursanız süper olur