Tarihe göre Grup Ekleme

[steppe]

Merhaba Arkadaşlar
Ekli dosyada teferruatlı açıkladığım A sütunundaki tarihe göre B sütunundaki öğrencilerin önüne Grubunu nasıl ekleyebilirim.
Yardımlarınız için şimdiden teşekkür ederim.

http://uploadsitesi.com/d.php?d=v82Cql

 

[Ömer]

Merhaba,

Ben soruyu yanlış anlamışım. Sayın Baran'ın kodlarını kullanınız.

.

 

[Ömer BARAN]

Merhaba. Alternatif

-- Formül ile çözüm (C sütununa grup adı yazılır):
Aşağıdaki formülü C2 hücresine uygulayıp liste boyunca kopyalayın.
.

=[COLOR="red"]EĞER[/COLOR]([COLOR="Red"]EĞERSAY[/COLOR]($A$2:A2;A2)<=3;"Müzik Grubu";"Tiyatro Grubu")

-- Makro ile çözüm: (B sütunundaki isimin yanına parantez içinde grup adı yazılır.
...... Alt taraftan ilgili sayfa adına fareyle sağ tıkalayıp KOD GÖRÜNTÜLEyi seçin,
...... Açılan VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırın,
...... Kod'u çalıştırın.
.

Sub GRUP()
For brn = 2 To Cells(Rows.Count, 1).End(3).Row
    If WorksheetFunction.CountIf(Range("A2:A" & brn), Cells(brn, 1)) <= 3 Then
        Cells(brn, 2) = Cells(brn, 2) & "( Müzik Grubu )"
    Else
        Cells(brn, 2) = Cells(brn, 2) & "( Tiyatro Grubu )"
    End If
Next
End Sub

 

[steppe]

Ömer Hocalarım,
Yardımlarınız için çok teşekkür ederim.