- Katılım
- 11 Aralık 2006
- Mesajlar
- 73
- Excel Vers. ve Dili
- 2003 Türkçe
Merhaba,
arkadaşlar ek'te gönderdiğin çalışmamda bana yardımcı olurmusunuz.
arkadaşlar ek'te gönderdiğin çalışmamda bana yardımcı olurmusunuz.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=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";"")
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
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