Excel Grup adlarını otomatik alma

Kodla Büyü
s_kajmeran

s_kajmeran

Hiperaktif Üye
Hiperaktif
Mesajlar
3,888
Merhaba bir excel listem var...
grup adları
a
b
c
d

no-adı soyadı-grup
1
2
3
4
5
1
2
3
1
2
3
4
5
1
2
3
4


ikinci listedeki grup adlarını sıraya göre otomatik dağıtmak istiyorum ama başaramadım... Yani her 1234... giden sayılar bir grup olacak
Yukardaki örnekte ilk 5 kişi A grubu sonraki 3 kişi B grubu daha sonraki 5 kişi C grubu gib otomatik versin grup isimlerini...
 
Sub Grupla()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
a = WorksheetFunction.CountIf(Range("A2:A" & i), 1)
Cells(i, 3) = Range("I1").Offset(a, 0)
Next
End Sub

Makrolu çözümü.
 
Teşekkür ederim hocam. Bilgisayara geçince bakacağım...
Tekrar teşekkürler ?
 
Cevap yazmak için giriş yap yada kayıt ol.
BBNET
Geri
Üst