grup listeleme

[DemirBilek57]

Merhaba,
arkadaşlar ek'te gönderdiğin çalışmamda bana yardımcı olurmusunuz.

 

[algil]

Aşağıdaki formül işinizi görebilir.

=EĞER(C5="x";"1,";"")&EĞER(D5="x";"2,";"")&EĞER(E5="x";"3,";"")&EĞER(F5="x";"4,";"")&EĞER(G5="x";"5";"")

 

[DemirBilek57]

Sayın Algil yardımınız için çok teşekkür ederim
formül ziyadesi ile işimi gördü. Acaba bu grupları sıralarken örneğin: 1,2,5 grupu olduğunda virgül 5 rakamından sonra çıkmıyor ama ogün 1,2,3 grupları olduğunda 1,2,3, şeklinde çıkıyor bu virgülü yok etmenin bir yolu varmıdır.Yani benim son grubum ne olursa olsun virgül çıkmasın. Böyle bi şey mümkün mü? Yardımlarınız için tekrar teşekkürler.

 

[algil]

Belki bu işini görür. Kolaylıklar

=EĞER(C6="x";"1";"")&EĞER(VE(C6="x";BAĞ_DEĞ_DOLU_SAY(D6:G6)>0);",";"")&EĞER(D6="x";"2";"")&EĞER(VE(D6="x";BAĞ_DEĞ_DOLU_SAY(E6:G6)>0);",";"")&EĞER(E6="x";"3";"")&EĞER(VE(E6="x";BAĞ_DEĞ_DOLU_SAY(F6:G6)>0);",";"")&EĞER(F6="x";"4";"")&EĞER(VE(F6="x";G6="x");",";"")&EĞER(G6="x";"5";"")

 

[Recep İpek]

1 2 3 4 5 sayıları sabit ise kullanıcı tanımlı fonksiyonla yapılmış çözüm ektedir.

Function GRUPBUL(alan As Range)
veri = Array(1, 2, 3, 4, 5)
For Each xbul In alan
i = i + 1
If xbul = "X" Then son = son & " " & veri(i - 1)
Next
GRUPBUL = son
End Function

 

[DemirBilek57]

Sayın Algil formülünüz işimi görür fakat benim gruplarım tam olarak şunlar 3,4,5,7,8,12,13,14,15 o formülü bu gruplara uyarlasam formül hata vermez mi. Çünkü formül çok uzun olacak ve 255 karakteri geçmiş olacak.
Sayın ripek'in yazmış olduğu kod için ise gupların sonunda virgül olursa sanırım olay tamadır fakat gruplar dediğim gibi 3,4,5,7,8,12,13,14,15 sadece bunlar
Yardımlarınız için teşekkürler.

 

[Recep İpek]

O zaman kodları aşağıdaki şekilde değiştiriniz.

Function GRUPBUL(alan As Range)
veri = Array(3, 4, 5, 7, 8, 12, 13, 14, 15)
For Each xbul In alan
i = i + 1
If xbul = "X" Then son = son & veri(i - 1) & ","
Next
If Right(son, 1) = "," Then son = Left(son, Len(son) - 1)
GRUPBUL = son
End Function

 

[DemirBilek57]

Sayın ripek teşekkürler. İşte tam olarak aradığım buydu. Demekki gerçekten olay beni aşıyormuş.

 

[Recep İpek]

İşinize yaradığına sevindim. :keyif:

Kolay gelsin.

 

[DemirBilek57]

Sağolun
Sizede Kolay Gelsin