NADİR YILDIZ
Altın Üye
- Katılım
- 7 Ocak 2006
- Mesajlar
- 1,418
- Excel Vers. ve Dili
- 2016 Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞERHATA(EĞERHATA((KAÇINCI(E4;E5:$E$33;0)+B4);KAÇINCI(E4;$E$3:E3;0)-1);"")

unction KacAdet(Aralik As Range, Fatura As Range)
For i = Aralik.Row To Aralik.Row + Aralik.Count
If Fatura = Cells(i, Aralik.Column) Then
If ka = "" Then
ka = i - (Aralik.Row - 1)
Else
ka = ka & ", " & i - (Aralik.Row - 1)
End If
End If
Next
KacAdet = ka
End Function