Açılır liste içerisinde bulunan sorumluluk derslerine göre sınava girecek öğrenci ve öğrenci bilgilerini çağırmak

[Turan61]

Merhaba arkadaşlar

Excel de "Veri", "Liste", "Sorumluluk Not Çizelgesi" ve "Sarf Tutanağı" adında açılmış dört ayrı sayfa bulunmaktadır.

"Sarf Tutanağı" ve "Not Çizelgesi" sayfaları içerisinde "C2" hücresinde açılır liste bulunmaktadır.

Bu listeden herhangi bir ders seçimi yaptığımda o derse girecek bütün öğrencileri "Veri" sayfasından nasıl çekebilir ve alt alta nasıl sıralayabilirim.

 

[Mahmut Kök]

Aşağıdaki kodu Not Çizelgesi ve Sarf Tutanağı sayfalarında çalıştırın.

Sub dersSecildi()

Dim sVeri
Set sVeri = Sheets("Veri")

Dim dersAdi
dersAdi = Range("C2").Value

Dim sayac As Integer
sayac = 1

'Önce eski listeyi silelim.
Range("A5:H31").ClearContents

Dim sonSatir As Integer

Dim alan
Set alan = sVeri.Range("H2:X" & sVeri.Range("a65536").End(3).Row)

For Each hucre In alan

    If (hucre.Value = dersAdi) Then
  
    Dim str
    str = hucre.Row
    
    sonSatir = Range("A31").End(3).Row + 1
  
    'Sıra
    Cells(sonSatir, "A") = sonSatir - 4
    'Sınıfı
     Cells(sonSatir, "B") = sVeri.Cells(str, "F").Value
    'Numara
     Cells(sonSatir, "C") = sVeri.Cells(str, "C").Value
     'Adı soyadı
      Cells(sonSatir, "D") = sVeri.Cells(str, "E").Value
  
    End If

Next

End Sub

 

[Turan61]

Hocam çok teşekkür ederim