hücreye geldiğinde açılır liste oluşturmak

[emrebengul]

merhaba üstadlar

paylaşmış olduğum dosyada sayfa1 de ad soyad no ve bölüm olarak ayrılma mevcuttur. Yapmak istediğim sayfa2de bölümlere geldiğimde bölümde olan öğrencileri sıralamasını istiyorum. Şimdiden çok teşekkür ederim sağ olun.

 

[emrebengul]

Konu günceldir arkadaşlar

 

[cemshan]

Deneyiniz

Sub EgersayUygula()
    Dim sayfa1 As Worksheet
    Dim sayfa2 As Worksheet
    Dim sonuc As Long
    Dim i As Long
    Dim sayfa2Satir As Long
        
    Set sayfa1 = ThisWorkbook.Sheets("Sayfa1")
    Set sayfa2 = ThisWorkbook.Sheets("Sayfa2")
    
    
    sayfa2Satir = 2
    
  
    For i = 1 To sayfa2.Cells(Rows.Count, "A").End(xlUp).Row
        sonuc = Application.WorksheetFunction.CountIf(sayfa1.Range("D:D"), sayfa2.Cells(i, "A").Value)
        sayfa2.Cells(sayfa2Satir, "B").Value = sonuc
        sayfa2Satir = sayfa2Satir + 1
    Next i
    
    
    MsgBox "İşlem Tamam."
End Sub

 

[emrebengul]

sadece B2 sütununda sıfır olarak çıktı

 

[emrebengul]

cemshan bey
sıralamayı halletim fakat liste açılmıyor onu nasıl yapabiliriz

 

[cemshan]

Listeden kastınız nedir ?

 

[emrebengul]

şöyle mühendisliğe yani o hücreye geldiği zaman sayfa 1'deki mühendisliğe denk gelen isimler yazsın

 

[emrebengul]

konu günceldir.