Ders Dağıtım Çizelgesi

[xternet]

Merhaba arkadaşlar.
Ben biraz uğraştım ama işin içinden çıkamadım. Açıklamalı bir örnek dosya ekledim. Bu dosyada çalışmanın sadece bir kesiti var. İlgili formülleri oluşturabilirseniz çok sevinicem. Yardımlarınızı bekliyorum.
İyi çalışmalar.

 

[Orion1]

Merhaba.
Bir şeyler yapmaya çalıştım.
AD37 deki hücre'deki listeden bir isim seçerek Gireceği ders sütun başlığındaki durumu izleyiniz.Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, sat As Long
If Intersect(Target, [AD37]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Set s2 = Sheets("listeler")
sat = 38
On Error GoTo hata
Range("AN38:AZ57").ClearContents
For i = 8 To s2.Cells(65536, "E").End(xlUp).Row
    If Target.Value = s2.Cells(i, "E").Value Then
        Range("AT" & sat).Value = s2.Cells(i, "F").Value
        sat = sat + 1
    End If
Next
hata:
End Sub

 

[xternet]

Sayın Orion2: çabanıza teşekkür ediyorum. Ancak ders hanesinde dersin genel branş ismi değilde dersin isminin tablodan okunarak yazılmazı önemli.
İyi çalışmalar.

 

[muygun]

Slm.
İşlevlerle çözülebilirliğini denedim.
İnceleyin.

 

[Orion1]

Sayın Orion2: çabanıza teşekkür ediyorum. Ancak ders hanesinde dersin genel branş ismi değilde dersin isminin tablodan okunarak yazılmazı önemli.
İyi çalışmalar.

Bu bahsettiğiniz tablo hangi hücre aralığı içindedir.
Ben göremedimde.
Tamam gördüm.J:K sütunlarında imiş.Ama Örnek olarak alırsak 1nci sıradaki kişiye baranşı hanesinde meslek dersleri demişsiniz.Bu durumda ders olarak ne yazılmalı,branş'a ingilizce yazılırsa ders olarak ne yazılmalı.Vs,vs.Yani bu konuda açıklama gerekiyor.

 

[kartal]

arkadaşlar dosyayı lütfen yenileyin teşekkürler.