Derse Göre Grup Oluşturma

[Ömer BARAN]

Tekrar merhaba.

Aşağıda kırmızı renklendirdiğim satırlardan sonra mavi renklendirdiğim satırları ekleyerek dener misiniz?
.

.......
.......
[COLOR="Red"]    beden = "Beden Eğitimi ve Spor": görsel = "Görsel Sanatlar": müzik = "Müzik"[/COLOR]
[COLOR="Blue"]    din = "Din Kültürü ve Ahlak Bilgisi": inkılap = "T.C. İnkılâp Tarihi ve Atatürkçülük"[/COLOR]
.......
.......
[COLOR="Red"]If WorksheetFunction.CountIf(Range("G" & sat & ":G" & isat), beden) + _
    WorksheetFunction.CountIf(Range("G" & sat & ":G" & isat), görsel) + _
    WorksheetFunction.CountIf(Range("G" & sat & ":G" & isat), müzik) = 3 Then
    grup = "7. GRUP": Range("H" & sat & ":H" & isat) = grup: sat = isat[/COLOR]

[COLOR="blue"]ElseIf WorksheetFunction.CountIf(Range("G" & sat & ":G" & isat), din) + _
    WorksheetFunction.CountIf(Range("G" & sat & ":G" & isat), inkılap) = 2 Then
    grup = "6. GRUP": Range("H" & sat & ":H" & isat) = grup: sat = isat[/COLOR]
.......
.......

 

[beyinmuhendisi]

Sayın Ömer BARAN;
Yardımlarınız için teşekkür ederim. Gönlünüze sağlık, güzel oldu. Bazı hatalar var ama bu sizin yazdığınız kod ile alakalı değil. Öğretmen arkadaşlar hatalı veri girmişler. Rabbim ne muradınız varsa versin. Amin!
Hakkınızı helal edin.

 

[Ömer BARAN]

Eyvallah, önemli olan ihtiyacın görülmesi.
Kolay gelsin.